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本 书 重点 齐 析 MATLAB R2008a 版 本 的 最 新 功能 与 特性 ， 结 合 多 个 专业 问题 讲解 MATLAB 数值 计算 
及 数据 的 可 视 化 功能 ,并 全 程 实例 解说 MATLAB 数值 计算 技术 ， 有 目标 更 明确 。 本 书 点 面 兼顾 ， 目 录 分 类 细 
致 而 科学 ， 方 便 不 同类 型 读者 的 快速 查阅 。 配 套 光 盘 可 以 免 去 读者 烦琐 的 代码 输入 工作 ， 提高 学 习 效 率 。 
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内 容 简 介 


本 书 共 27 章 ， 分 为 4 个 部 分 ， 详 细 讲 解 MATLAB 的 计算 和 数据 表现 功能 ， 介 绍 利用 MATLAB 对 科学 
问题 进行 计算 与 仿真 ， 并 针对 部 分 专业 问题 ， 给 出 利用 MATLAB 进行 模拟 程序 和 仿真 结果 。 

本 书 第 1 部 分 包括 第 1~6 章 ， 介 绍 MATLAB 基本 知识 : 数据 类 型 、 向 量 与 矩阵 的 定义 、 表 达 式 、 
程序 结构 与 优化 、 文 件 处 理 。 同 时 ， 还 给 出 一 些 实用 经 验 促进 读者 更 好 地 利用 该 软件 。 第 2 部 分 包括 第 
7~15 章 , 详细 介绍 基本 科学 问题 的 求解 方法 ， 如 线性 方程 组 、 超 越 方程 、 数 据 拟 合 与 插值 、 最 值 问题 、 
随机 数 、 微 分 方程 组 、 积 分 运算 、 数 学 变换 、 特 殊 函数 等 。 第 3 部 分 包括 第 16~ 18 章 ， 具 体 介 绍 二 维 
和 三 维 图 形 的 绘制 、 用 户 图 形 界面 设计 等 。 第 4 部 分 包括 第 19~ 27 章 ， 具 体 介 绍 混沌 、 分 形 、 元 胞 自 
动机 、 光 学 现象 、 机 械 运动 、 常 用 算法 等 方面 的 编程 知识 。 

本 书写 作 结构 清晰 ， 图 形 与 程序 结合 ， 实 例 丰 富 ， 实 用 性 强 。 通 过 实例 详细 地 对 实际 问题 进行 了 剖 
析 并 讲解 如 何 用 程序 实现 。 

本 书 适 合 有 一 定数 学 基础 和 专业 知识 、 对 MATLAB 不 熟悉 的 人 士 ， 以 及 利用 MATLAB 进行 数值 模拟 
研究 的 人 员 参 考 使 用 ， 也 可 作为 学 校 或 研究 机 构 及 企业 中 利用 MATLAB 进行 数值 计算 的 教程 ， 或 自学 
MATLAB 的 读者 的 参考 用 书 。 


未 经 许可 ， 不 得 以 任何 方式 复制 或 抄 著 本 书 之 部 分 或 全 部 内 容 。 
版 权 所 有 ， 侵 权 必 究 。 
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美国 The MathWorks 公司 推出 的 MATLAB 语言 一 直 是 国际 科学 界 应 用 和 影响 最 广泛 的 三 大 计 
算 机 数学 语言 之 一 。MATLAB 语言 有 其 他 基础 程序 语言 无 法 比拟 的 优势 和 适用 面 。 近 10 年 来 ， 随 
着 MATLAB 语言 和 Simulink 仿真 环境 在 各 学 科 领 域 中 日 益 广泛 的 应 用 ， 我 国 的 科研 工作 者 和 教育 
工作 者 也 逐渐 将 MATLAB 和 Simulink 语言 作为 首选 的 计算 工具 。 

随 着 科技 的 不 断 进 步 和 发 展 ,科研 工作 者 在 从 事 研究 的 过 程 中 深刻 体会 到 仿真 验证 的 重要 性 以 
及 数据 交换 运算 的 优越 性 。 无 疑 MATLAB 在 这 方面 具有 天 生 的 优势 ， 我 们 可 以 认为 只 要 能 用 数据 
描述 的 对 象 必然 可 以 使 用 MATLAB 进行 分 析 和 研究 ， 并 且 一 旦 熟悉 相关 工具 箱 函数 以 后 ， 一 系列 
的 复杂 运算 和 让 人 头痛 的 编程 工作 已 经 不 能 再 困扰 我 们 。 

正 是 由 于 MATLAB 所 具有 的 强大 运算 功能 和 广泛 的 适用 性 ， 使 得 MATLAB 以 极 快 的 速度 在 扩 
展 自己 的 应 用 功能 。MathWorks 公司 近 几 年 不 断 推出 新 版 本 软件 ， 每 个 新 版 本 都 有 令 人 惊叹 的 新 
工具 和 新 功能 ， 这 又 使 得 更 多 人 对 这 款 软件 趋 之 若 鳌 。 然 而 面 对 具 有 如 此 超 强 功能 的 一 款 “ 巨 型 " 
软件 ， 即 便 是 从 事 多 年 MATLAB 研究 的 专家 也 只 能 对 其 庞大 的 功能 “ 望 洋 兴叹 "， 对 初学 者 来 说 ， 
要 掌握 这 门 工具 语言 几乎 成 为 一 项 “不 可 能 完成 的 任务 "。 

市 面 上 虽然 充斥 着 各 种 介绍 MATLAB 语言 的 书籍 ,但 熟悉 MATLAB 语言 的 人 都 知道 ,专业 书籍 大 多 只 能 
对 某 个 方向 或 领域 的 相关 内 容 做 出 较为 详细 的 阐述 ， 当 遇 到 基础 运算 和 操作 的 问题 ， 以 及 一 些 边缘 算法 时 ， 
很 多 有 多 年 经 验 的 研究 人 员 也 不 得 不 查阅 基础 书籍 或 者 求助 于 MATLAB 的 帮助 文档 。 但 是 我 们 都 知道 
MATLAB 帮助 文档 是 英文 的 ， 这 对 于 很 多 国内 的 学 习 者 来 说 是 一 大 “拦路 虎 "。 而 那些 基础 的 书籍 基本 上 只 能 
是 对 基础 函数 做 一 些 概念 | 竹 的 介绍 ， 不 能 全 面 细致 地 帮助 我 们 解决 实际 问题 。 

刘 正 君 博 士 组 织 编写 的 《MATLAB 科学 计算 与 可 视 化 仿真 宝典 》， 正 是 可 以 帮助 您 解决 各 种 研究 和 应 
用 中 实际 问题 的 最 佳 参考 资料 。 作 者 多 年 从 事 MATLAB 的 应 用 研究 工作 ， 在 图 像 加 密 、 光 学 变换 、 光 束 整 
形 、 混 沌 、 分 形 、 元 胞 自动 机 等 领域 有 着 丰富 的 经 验 ， 同 时 在 MATLAB 技术 论坛 长 期 解决 各 类 学 习 者 在 使 
用 MATLAB 技术 时 遇 到 的 各 种 问题 ， 非 常 了 解 广大 使 用 者 在 应 用 时 所 面临 的 各 种 难题 。 

《MATLAB 科学 计算 与 可 视 化 仿真 宝典 》 一 书 ， 从 最 基础 的 MATLAB R2008a 版 本 安装 方法 和 
一 些 基 本 操作 知识 入 手 , 全 面 详细 地 介绍 了 数值 及 其 科学 计算 的 基础 知识 、 数 据 可 视 化 仿真 操作 及 
科学 编程 等 内 容 。 全书 每 个 知识 点 都 配 以 实例 解说 相关 功能 和 操作 , 是 专业 学 习 和 研究 工作 者 值得 
参考 的 经 典 书籍 ， 同 时 该 书 也 非常 适合 初学 者 作为 入 门 引导 。 在 此 ，MATLAB 中 文 论坛 向 广大 读者 
隆重 推荐 此 书 。 5 


张 延 亮 


MATLAB 中 文 论坛 创始 人 (www.iLoveMatlab.cn) 
于 新 加 坡 南洋 理工 大 学 


首 晤 本 可 有 川 


作者 简介 


刘 正 君 ， 毕 业 于 哈尔滨 工业 大 学 光学 专业 ， 理 学 博士 。 主 要 研究 方 
向 包括 图 像 加 密 、 光 学 变换 、 光 束 整 形 、 混 沌 、 分 形 、 元 胞 自动 机 等 。 
MATLAB 论坛 技术 版 的 版 主 ， 有 大 量 MATLAB 程序 编写 经 验 ， 以 及 使 用 
MATLAB 技术 近 8 年 时 间 的 积累 ， 尤 其 对 数值 计算 和 可 视 化 等 方面 有 深 
入 研究 。 
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MATLAB R2008a 在 2008 年 3 月 正式 发 布 ， 该 版 本 对 很 多 工具 箱 中 的 函数 进行 了 更 新 和 补充 。 
在 该 版 本 中 ， 解 决 了 MATLAB 几 个 长 期 以 来 固有 的 弊端 ， 同 时 加 入 一 些 重要 的 功能 ， 如 完全 实现 
面向 对 象 编程 、 支 持 Handle 类 型 、 引 入 命名 空间 的 管理 等 。 这 次 更 新 是 非常 富有 战略 眼光 的 ， 也 
代表 了 MATLAB 的 一 次 历史 性 转型 。 

MATLAB 是 一 款 适 合 不 同 专业 的 人 士 解决 问题 的 软件 , 其 最 大 特色 在 于 其 根据 需要 不 断 扩充 工 
具 箱 。 即 使 不 是 专业 软件 开发 人 员 ， 也 可 以 调用 MATLAB 中 的 工具 箱 进 行 计算 ， 再 借助 通用 数据 
类 型 交换 数据 ， 从 而 利用 MATLAB 强大 的 科学 计算 功能 。 

随 着 科学 的 发 展 , 使 用 数值 仿真 来 验证 定理 或 者 结论 的 方式 已 经 成 为 一 种 重要 的 手段 。 它 具有 
快速 、 节 省 成 本 及 灵活 多 变 等 特点 。 而 MATLAB 已 经 在 数值 仿真 任务 中 占有 统治 地 位 。 同 时 它 的 
版 本 每 年 更 新 两 次 , 及 时 扩充 自身 的 功能 , 应 用 专业 领域 广泛 。 这 一 点 是 很 多 同类 软件 无 法 比拟 的 。 

MATLAB 软件 是 基于 C 语言 和 FORTRAN 语言 编写 的 。 但 是 MATLAB 对 很 多 功能 都 已 经 进行 
了 函数 化 : 一 个 复杂 的 计算 任务 ， 在 MATLAB 中 常常 用 一 条 语句 就 可 以 实现 。 同 时 对 于 初学 者 ， 
该 软件 很 容易 入 门 。 伴 随 着 使 用 者 对 问题 研究 的 深入 ， 可 以 积累 MATLAB 程序 ， 常 用 的 程序 段 可 
以 写成 函数 文件 的 形式 ， 有 一 定数 目的 程序 文件 之 后 ， 就 可 以 建立 自己 的 “工具 箱 "。 本 书 编写 从 
简单 问题 入 手 ， 逐 步 扩 展 到 专业 问题 的 求解 。 本 书 对 于 MATLAB 函数 的 介绍 采用 统一 格式 进行 ,， 
同时 给 出 大 量 实 例 帮助 读者 理解 函数 的 功能 。 

熟练 应 用 MATLAB 需要 一 定时 间 , 读者 在 安装 好 R2008a 版 本 后 可 以 运行 本 书 给 出 的 程序 , 通 
过 修改 参数 查看 输出 变化 以 了 解 MATLAB 函数 的 功能 。 另 外 ， 需 要 注意 的 一 点 是 本 书 介绍 的 少 部 
分 函数 属于 MATLAB R2008a 特有 的 ， 较 低 版 本 因 缺 少 相应 函数 会 出 现 错误 提示 。 为 了 节省 读者 输 
入 程序 的 时 间 ， 本 书 的 配套 光盘 中 提供 了 MATLAB 代码 ， 为 程序 代码 实现 高 效率 复 用 提供 便利 条 
件 。 


主要 内 容 


本 书 全 面 地 讲解 MATLAB 数值 计算 和 数据 可 视 化 仿真 方面 的 功能 ， 全 书 分 为 4 个 部 分 ， 共 27 
章 。 具 体内 容 如 下 所 示 。 

第 1 部 分 基础 篇 包括 第 1~6 章 。 本 部 分 首先 介绍 MATLAB R2008a 版 本 的 安装 方法 和 一 
些 基本 操作 知识 。 对 于 新 手 来 说 ， 了 解 基本 操作 是 非常 重要 的 。 总 体 来 说 ， 该 版 本 保持 了 以 前 版 本 
的 大 部 分 功能 ， 熟 悉 以 前 版 本 的 读者 可 以 很 快 习惯 这 个 版 本 的 使 用 。 接 下 来 介绍 数据 类 型 、 向 量 和 
矩 阵 的 使 用 ， 它 们 是 编程 的 基础 。 随 后 介绍 不 同类 型 的 表达 式 ， 它 们 是 进行 数值 计算 的 纽带 。 接 下 
来 介绍 程序 结构 与 优化 设计 , 讲解 主要 的 程序 结构 、 程 序 加速 与 调试 方面 的 知识 。 最 后 介绍 不 同类 
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型 文件 的 处 理 方法 ， 其 中 还 包括 文件 批量 处 理 的 方法 。 

第 2 部 分 “科学 计算 包括 第 7~ 15 章 。 本 部 分 介绍 一 些 MATLAB 求解 高 等 数学 知识 方面 的 
函数 功能 。 首 先 介绍 线性 方程 组 与 超越 方程 的 求解 方法 ， 解 方程 在 很 多 问题 中 都 会 遇 到 ,通过 本 部 
分 读者 可 以 了 解 不 同类 型 方程 的 解法 。 然 后 介绍 数据 拟 合 与 插值 的 MATLAB 实现 ， 它 们 是 数据 处 
理 的 常用 工具 。 随 后 介绍 最 值 问题 的 解法 ， 因 为 很 多 问题 的 最 优 结果 往 往 是 最 大 值 或 者 最 小 值 ， 这 
部 分 内 容 可 以 帮助 读者 找到 最 佳 答案 。 接 下 来 介绍 随机 数 的 使 用 ， 它 们 是 一 些 经 典 算法 的 基础 ， 如 
蒙特 - 卡 罗 算 法 、 随 机 布朗 运动 等 。 然 后 介绍 微分 方程 组 的 求解 和 一 些 积分 表达 式 的 计算 ， 它 们 是 
高 等 数学 的 基石 。 最 后 介绍 常用 数学 变换 的 MATLAB 实现 ， 以 及 一 些 特殊 函数 的 MATLAB 计算 方 
法 。 

第 3 部 分 “数据 可 视 化 仿真 ”包括 第 16~ 18 章 。 本 部 分 主要 介绍 图 形 的 绘制 与 编辑 、 用 户 图 
形 界面 设计 方面 的 知识 。 首 先 介绍 二 维 图 形 的 绘制 ， 其 中 包括 绘图 函数 的 功能 介绍 、 图 形 对象 的 纺 
辑 方法 、 特 殊 图 形 的 绘制 、 多 图 的 布局 方法 、 基 本 图 像 处 理 函 数 介绍 、 制作 动 画 的 方法 ， 以 及 图 形 
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见 图 形 的 绘制 。 最 后 介绍 基本 的 用 户 图 形 界面 设计 ,利用 这 方面 的 知识 读者 可 以 进行 人 机 交互 操作 ， 
辅助 研究 动态 过 程 。 

第 4 部 分 科学 问题 编程 ”包括 第 19~ 27 章 。 本 部 分 介绍 不 同 专业 问题 的 编程 实现 。 首 先 介 
绍 基 本 的 建 模 知识 , 学 习 它 们 可 以 辅助 求解 专业 问题 。 然 后 介绍 混沌 方面 部 分 现象 的 模拟 ， 如 离散 
与 微分 方程 中 的 分 岔 混沌 现象 的 计算 、 混 沌 吸引 子 、Lyapunov 指数 等 。 接 下 来 介绍 分 形 图 形 的 几 
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砂 堆 规则 等 ， 晶 体 生长 的 模拟 ， 几 种 光学 现象 的 模拟 ， 如 鱼 眼 效果 、 全 息 、 干 涉 现象 等 ， 几 种 机 械 
运动 的 仿真 ,如 凸轮 与 连 杆 的 运动 等 , MATLAB 在 经 济 学 中 的 应 用 等 都 在 本 部 分 中 给 予 了 详细 的 介 
绍 。 在 本 部 分 的 最 后 介绍 了 几 种 常用 算法 原理 和 程序 实现 。 


本 书 特色 


本 书 是 MATLAB 论坛 技术 版 版 主 多 年 实战 经 验 的 总 结 。 

全 程 实例 解说 MATLAB 数值 计算 和 数据 可 视 化 功能 ， 提 高 读者 实用 经 验 。 

本 书 以 MATLAB R2008a 版 本 为 例 介绍 其 在 数值 模拟 中 的 应 用 , 覆盖 不 同 专业 问题 的 解法 。 
本 书 点 面 兼顾 ， 靶 盖 更 多 专业 的 问题 。 

配套 的 光盘 可 以 免 去 读者 烦琐 输入 代码 的 工作 ， 提 高 学 习 效率 。 

较 多 过 程 模拟 采用 动画 方式 ， 使 其 生动 形象 。 
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MATLAB 简介 介绍 MATLAB 的 发 展 和 版 本 2008a 的 功能 。 

@ 安装 说 明 介绍 MATLAB2008a 版 本 的 安装 过 程 。 

9 初学 者 如 何 开 始 使 用 MATLAB 简单 介绍 初学 者 应 该 注意 的 问题 。 
久 如 何 获取 帮助 ”介绍 寻求 帮助 的 办 法 。 

人 路 径 设置 与 转换 介绍 设置 当前 路 径 和 搜索 路 径 的 方法 。 

@ 偏好 设置 介绍 设置 界面 风格 等 方法 。 

人 添加 工具 箱 总 结 两 种 添加 工具 箱 的 方法 。 


本 章 是 本 书 的 第 1 章 ， 将 介绍 MATLAB 的 基础 知识 ， 其 中 包括 MATLAB 简介 、 基 本 知识 和 函 
数 的 使 用 ， 以 及 如 何 开始 使 用 MATLAB 等 。 希 望 通过 本 章 的 介绍 ， 使 得 读者 对 MATLAB 产生 兴趣 ， 
不 断 积累 使 用 中 的 经 验 和 技巧 , 同时 也 能 和 其 他 人 共享 你 的 收获 。 相信 各 位 朋友 能 在 分 享 中 学 习 到 
新 东西 ， 作 者 也 尽量 把 自己 掌握 的 相关 知识 和 体会 展现 给 读者 。 


1.1 认识 MATLAB 


在 1980 年 ， 美 国 的 Clevel Moler 博士 在 新 墨西哥 大 学 教授 线性 代数 时 ， 发 现 采 用 高 级 语言 
程 很 不 方便 ， 因 此 他 开发 了 MATLAB ( Matrix Laboratory， 缩 写 为 MATLAB ) 软件 ， 即 矩阵 实验 室 。 
该 软件 是 进行 科学 计算 的 软件 系统 。 经 过 几 年 试用 之 后 ， 在 1984 年 该 软件 的 公开 版 本 正式 推出 ， 
它 的 核心 代码 是 采用 C 语言 编写 的 。 在 MATLAB 环境 中 ， 和 矩阵 运算 编程 和 代码 输入 非常 容易 且 简 
单 。 后 来 以 Moler 博士 为 首 的 一 批 数学 家 与 软件 专家 组 建 了 MathWorks 软件 开发 公司 ， 从 事 
MATLAB 语言 的 研究 与 开发 工作 。 在 以 后 的 版 本 中 又 增添 了 图 形 生成 功能 、 图 像 处 理 、 多 媒体 和 
Simulink 等 功能 。 它 的 应 用 范围 越 来 越 广 泛 ， 随 着 需求 的 增加 其 功能 不 断 扩充 ， 在 工程 计算 的 不 同 
领域 都 表现 非常 活跃 。 

目前 的 MATLAB 语言 已 经 成 为 国际 上 最 流行 的 编程 软件 ， 其 用 户 数量 多 于 Mathematica 和 
Maple 数学 软件 。 它 除了 传统 的 交互 式 编程 风格 外 ,还 提供 了 丰富 可 靠 的 矩阵 运算 、 图 形 绘制 、 数 
据 处 理 、 图 像 处理 、 语 言 编 程 等 专用 函数 ， 并 把 函数 分 类 在 工具 箱 之 中 。MATLAB 广泛 地 应 用 于 航 
空 航天 动力 学 系统 、 卫 星 控制 制导 系统 、 通 信 系 统 、 船 舶 和 汽车 、 图 像 信号 处 理 和 信和 号 分 析 、 自 动 
控制 、 优 化 设计 、 模 糊 推理 、 小 波 变 换 、 神 经 网 络 、 时 序 分 析 与 建 模 、 振 动 理论 、 化 学 统计 学 、 经 
济 学 等 领域 ， 同时 具有 一 般 高 级 语言 无 法 比拟 的 优势 。 在 欧美 高 等 院 校 中 ，MATLAB 语言 已 经 成 为 
应 用 线性 代数 、 自 动 控制 理论 、 数 理 统计 、 数 字 信号 处 理 、 时 间 序 列 分 析 、 动 态 系统 仿真 等 高 级 课 
程 的 基本 教学 工具 , 成 为 本 科 生 、 硕 士 研究 生 、 博 士 研究 生 必 须 掌握 的 基本 技能 ， 同 时 也 是 广大 研 
究 者 所 青睐 的 计算 工具 ， 在 数值 模拟 中 广泛 使 用 。MATLAB 的 主要 功能 包括 ， 
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此 高 级 语言 可 用 于 技术 计算 。 

此 开发 环境 可 对 代码 、 文 件 和 数据 进行 管理 。 

交互 式 工具 可 以 按 迭 代 的 方式 探查 、 设 计 及 求解 问题 。 

数学 函数 可 用 于 线性 代数 、 统 计 、 傅 里 时 分 析 、 筛 选 、 优 化 以 及 数值 积分 等 。 
二 维和 三 维 图 形 函 数 可 用 于 可 视 化 数据 。 

各 种 工具 可 用 于 构建 自 定义 的 图 形 用户 界 面 。 


各 种 函数 可 将 基于 MATLAB 的 算法 与 外 部 应 用 程序 和 语言 ( 如 C, C++, Fortran, Java, COM 
和 Microsoft Excel ) 集成 。 

MATLAB 从 最 初 的 版 本 经 历 多 次 升级 ， 比 如 从 5.3 到 6.5。 从 2006 年 开始 ，MathWorks 公司 
将 每 年 进行 两 次 产品 发 布 ， 时 间 分 别 在 每 年 的 3 月 和 9 月 。 版 本 名 用 “年 份 +a"” 或 者 “年 份 +b" 
来 命名 ， 比 如 2006a 和 2007b， 其 中 a 对 应 3 月 份 发 布 的 版 本 ，b 对 应 9 月 份 发 布 的 版 本 。 同 时 
每 一 次 发 布 都 会 包含 所 有 的 产品 模块 和 一 些 新 增产 品 。 下 面 介绍 一 下 2008a 版 本 的 一 些 信息 。 

MATLAB R2008a 于 2008 年 3 月 1 日 发 布 ，R2008a 版 本 包括 了 MATLAB 和 Simulink 的 新 特 
性 、 两 个 新 产品 , 以 及 对 82 种 其 他 产品 的 更 新 和 Bug 修复 。 从 R2008a 开始 , MATLAB 和 Simulink 
的 产品 系列 需要 激活 。R2008a 还 引入 了 一 个 可 以 提供 通用 许可 管理 需求 的 在 线 工 具 。MATLAB 产 
品系 列 的 新 功能 包括 ; 


镶 MATLAB 支持 先进 的 面向 对 象 编程 ， 包 括 对 类 和 对 象 、 继 承 、 方 法 、 属 性 、 事 件 和 封装 的 
全 面 支持 。 

人 Optimization Toolbox 支持 大 型 优化 问题 的 内 点 解 算 器 和 并 行 计 算 支持 。 

争 Financial Toolbox 用 于 均值 方差 组 合 优化 的 线性 互补 程序 ( LCP ) 

镶 Parallel Computing Toolbox 全 面 支持 PBS Progs 和 TORQUE 调度 器 。 

争 Statistics Toolbox 的 交叉 验证 、 特 征 选择 、 准 随机 号 码 和 最 小 二 乘法 。 


Simulink 产品 系列 的 新 功能 包括 ; 


人 Simulink 重新 设计 的 多 平台 Library Browser ( 库 浏 览 器 ) 

急 Real-Time Workshop Embedded Coder 支持 符合 AUTOSAR 的 代码 生成 。 

争 在 M-Lint code analyzer 和 Simulink Design Verifier 上 EmbeddedMATLABT 语言 子 集 功 能 
的 代码 检测 功能 。 

争 IEC 61508 类 指南 可 检查 Simulink Verification and Validation 上 的 关键 安全 系统 。 

Simulink Fixed Point 中 支持 可 自动 转换 浮 点 模型 的 Fixed-Point Advisor。 

争 Communications Blockset 对 调制 器 、 解 调 器 、 编 码 器 和 解码 器 功能 的 定点 支持 。 


MATLAB 是 一 种 用 于 算法 开发 、 数 据 可 视 化 、 数 据 分 析 以 及 数值 计算 的 高 级 技术 计算 语言 和 交 
互 式 环境 。 使 用 MATLAB， 可 以 较 使 用 传统 编程 语言 ( 如 C，C++ 和 Fortran ) 更 快 地 解决 技术 计 
算 问 题 。MATLAB 的 应 用 范围 非常 广 ， 包 括 信号 和 图 像 处 理 、 通 信 、 控 制 系统 设计 、 测 试 和 测量 、 
财务 建 模 和 分 析 以 及 计算 生物 学 等 众多 应 用 领域 。 附 加 的 工具 箱 ( 单独 提供 的 专用 MATLAB 函数 
集 ) 扩展 了 MATLAB 环境 ， 以 解决 这 些 应 用 领域 内 特定 类 型 的 问题 。MATLAB 提供 了 很 多 用 于 记 
录 和 分 享 工 作成 果 的 功能 ， 可 以 将 用 户 的 MATLAB 代码 与 其 他 语言 和 应 用 程序 集成 ， 开 发 用 户 的 
MATLAB 算法 和 应 用 。 
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1.2 安装 说 明 
MATLAB 的 安装 步骤 如 下 ， 


ED 把 MATLAB 软件 的 光盘 放置 在 光驱 中 ， 找 到 setup.exe 文件 双击 运行 后 会 出 现 如 图 1.1 
所 示 的 界面 ， 单 击 Next 按钮 将 会 出 现 如 图 1.2 所 示 的 界面 。 
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图 1.1 安装 初始 界面 图 1.2 ”版 权 协议 界面 
EX 选择 Yes 单 选项 再 单 击 Next 按钮 出 现 如 图 1.3 所 示 的 界面 。 在 输入 正确 的 注册 码 后 单 击 
变 为 可 用 状态 的 Next 按钮 ， 出 现 如 图 1.4 所 示 的 界面 。 





图 1.3 ”输入 注册 码 界面 图 1.4 安装 方式 的 选择 


ER 这 里 有 两 种 安装 方式 ;Typical 和 Custom。 如 果 用 户 不 熟悉 MATLAB 中 工具 箱 所 具有 的 
功能 ， 建 议 选 择 了 pical 方式 安装 ;对 于 熟悉 MATLAB 工具 箱 的 用 户 建 议 选 择 Custom 方 
式 ， 这 种 方式 下 用 户 可 以 选择 自己 需要 的 工具 箱 进行 安装 。 单 击 Next 按钮 出 现 如 图 1.5 
所 示 的 界面 。 

IE 在 如 图 1.5 所 示 的 界面 中 ， 用 户 可 以 根据 自己 的 软件 安装 习惯 来 设 定 路 径 。 设 置 好 路 径 
后 单 击 Next 按钮 将 会 弹出 如 图 1.6 所 示 的 界面 。 在 该 界面 中 ， 用 户 可 以 使 用 鼠标 把 选项 
前 面 的 钧 号 去 掉 ， 即 不 安装 对 应 的 内 容 。 只 选择 需要 的 内 容 ， 可 以 减 小 安装 的 空间 要 求 ， 
同时 也 可 以 减 小 MATLAB 启动 时 的 加 载 量 。 用 户 选 择 好 自己 需要 的 安装 内 容 后 单 击 Next 
按钮 继续 安装 进程 ， 弹 出 如 图 1.7 所 示 的 界面 。 
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图 1.5 设置 安装 路 径 的 界面 图 1.6 选择 模块 和 工具 箱 的 界面 

用 户 单 击 Next 按钮 会 弹出 如 图 1.8 所 示 的 确认 安装 内 容 的 界面 。 用 户 可 以 检查 一 下 是 否 
有 误 , 如 果 发 现 问题 可 单 击 Back 按钮 返回 前 一 步 重 新 设置 ， 确 认 无 误 后 单 击 Install 按钮 
进入 复制 文件 环节 和 安装 进程 的 界面 。 在 复制 完 文件 后 ，MATLAB 的 安装 程序 会 提示 用 
户 安装 完成 ， 至 此 MATLAB 就 成 功 安装 了 。 
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图 1.7 ”快捷 方式 和 支持 文件 类 型 图 1.8 确认 安装 内 容 的 界面 


有 的 版 本 在 安装 的 时 候 可 能 需要 Java 虚拟 机 ， 相 应 文件 可 以 在 如 下 网 址 下 载 
fp:Wftp.mathworks.corypuby/tech-support/solutions/s26356/msjavx86.exe。 





1.3 ”初学 者 如 何 开始 使 用 MATLAB 
在 默认 界面 中 由 当前 路 径 


启动 MATLAB， 就 可 以 进入 MATLAB 的 默认 界面 ， 下 1.9 所 示 。 
( Current Directory )、 命 令 历史 记录 ( Command History ) 和 命令 窗 ( Command Window ) 等 3 
个 窗口 组 成 。 用 户 可 以 根据 自己 的 习惯 在 菜单 ee Layout 下 选择 需要 的 窗口 风格 。 





图 1.9 MATLAB 的 默认 界面 
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用 户 可 以 在 MATLAB 界面 的 左上 角 单 击 和 白色 按钮 ( 标注 “新 M 文件 ”的 按钮 ) 打开 一 个 空白 
的 M 文件 编辑 窗口 ， 开 始 输入 自己 的 程序 内 容 。 类 似 文件 夹 的 按钮 可 以 打开 当前 文件 夹 来 选择 要 
打开 的 文件 .在 Current Directory 当前 路 径 文本 框 中 可 以 输入 或 选择 一 个 路 径 。 初 次 使 用 MATLAB 
的 用 户 应 该 先 熟悉 整个 界面 环境 ， 了 解 各 个 部 分 的 作用 。 如 果 熟 悉 以 前 版 本 ， 用 户 只 要 先 熟 悉 自己 
常用 的 功能 即 可 开始 工作 了 ( MATLAB 新 的 版 本 会 增加 一 些 功能 , 但 是 以 前 的 一 些 常用 功能 还 会 保 
留 )。 

初学 者 可 以 通过 很 短 的 时 间 来 熟悉 上 面 介绍 的 MATLAB 基本 操作 方面 的 知识 ， 然 后 就 可 以 开 
始 编写 程序 来 解决 自己 的 问题 。 一些 高 级 的 功能 可 以 日 后 再 去 了 解 , 而 且 这 些 功 能 随 着 版 本 的 不 同 
会 略 有 差异 。 


1.4 如 何 获取 帮助 


用 户 可 以 有 3 种 方式 获取 MATLAB 中 的 使 用 帮助 ， 即 本 地 帮助 、 求 助 朋 友和 网 络 帮助 。 求 助 
的 原则 是 先 自己 想 办 法 ， 实 在 想 不 出 来 可 以 考虑 使 用 求助 方式 找 办 法 。 
1.4.1 本 地 帮助 


我 们 可 以 从 MATLAB 中 获得 帮助 ， 对 于 MATLAB 中 函数 ( 有 的 书 叫做 命令 ， 本 书 统一 称 为 函 
数 ) 帮助 信息 可 以 用 下 面 的 方式 调用 : 


help functionname 


比如 用 户 在 命令 窗 中 输入 help dir 将 会 弹出 如 下 信息 ， 如 图 1.10 所 示 。 
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图 1.10 获取 帮助 信息 
这 个 帮助 信息 中 含有 函数 功能 的 描述 、 调 用 格式 、 参 数 意义 、 示 例 、 相 关 函 数 、help 窗口 
的 链接 等 信息 。 用 户 可 以 通过 英文 的 含义 来 了 解 函 数 的 使 用 。 对 于 有 下 画 线 标识 的 相关 函数 ， 
用 户 可 以 用 鼠标 单 击 得 到 相应 函数 的 帮助 信息 。 例 如 ， 单 击 “doc dir” 将 会 出 现 如 图 1.11 所 
示 的 帮助 窗口 。 
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图 1.11 帮助 窗口 
用 户 可 以 在 帮助 窗口 中 看 到 一 些 非 文本 的 内 容 ， 它 如 同一 本 电子 书 ， 尽 可 能 地 详细 介绍 
MATLAB 的 使 用 。 这 是 一 个 比较 好 的 帮助 手段 ,用 户 可 以 选择 合适 的 英文 关键 词 来 搜索 需要 的 信息 。 
对 于 一 些 基 础 的 问题 ， 用 户 完 全 可 以 在 这 里 找到 答案 。 


1.4.2 ”网 上 求助 


通过 网 上 求助 可 以 帮助 用 户 解决 一 些 难 题 。 用 户 可 以 借助 baidu 和 google 搜索 引擎 来 搜索 ， 
网 址 分 别 为 http:Wwww.baidu.com 和 http:Wwww.google.com。 

搜索 之 前 用 户 应 该 提炼 出 问题 中 的 关键 词 , 在 搜索 引擎 中 输入 这 些 关 键 词 , 然后 在 搜索 结果 中 
寻找 适合 自己 问题 的 答案 。 目前 网 络 资源 极 大 丰富 , 一 般 问 题 的 答案 或 者 很 多 源 代码 都 可 以 免费 下 
载 到 。 

此 外 一 些 高 校 的 BBS 和 MATLAB 技术 论坛 还 提供 了 关于 MATLAB 使 用 的 交流 版 面 , 用 户 可 以 
注册 并 登录 参与 交流 。 


1.5 路 径 设 定 与 转换 


用 户 可 以 使 用 如 下 方法 改变 启动 后 的 当前 路 径 : 在 命令 窗 中 输入 edit MATLABrc 后 会 打开 
matlabrc.m 文件 ， 用 户 把 “cd newpath"( 其 中 newpath 是 用 户 希 望 的 完整 路 径 名 ) 添加 到 该 文件 
的 最 后 一 行 ， 保 存 后 将 matlabrc.m 文件 关闭 即 可 。 在 下 次 启动 MATLAB 的 时 候 ， 默 认 当前 路 径 就 
是 newpath 了 。 程 序 文件 的 管理 原则 是 分 类 保存 ， 尽 量 将 相关 的 文件 保存 在 一 起 ， 以 便于 日 后 查 
找 。 在 运行 程序 的 过 程 中 ， 用 户 可 以 使 用 函数 cd 在 不 同 路 径 之 间 转 换 。 

MATLAB 对 于 输入 内 容 ( 如 fname ) 的 搜索 是 按 下 面 的 顺序 进行 的 : 先 把 fname 作为 一 个 变 
量 来 搜索 ， 如 果 在 workspace 和 内 存 中 找 不 到 fname， 再 把 fname 作为 MATLAB 内 建 函 数 进行 搜 
索 ， 如 果 还 是 找 不 到 就 在 当前 路 径 中 搜索 fname.m 和 fname.mex 文件 。 如 果 上 述 范围 均 未 找到 ， 
MATLAB 会 提示 用 户 ，fname 是 未 定义 的 函数 或 者 变量 。 

在 MATLAB 安装 的 根 目录 中 ， 部 分 路 径 是 MATLAB 的 默认 搜索 路 径 ， 它 们 在 pathdef.m 文件 
中 定义 。 只 有 在 搜索 路 径 内 存储 的 函数 才能 被 用 户 调用 。 这 里 先 介绍 添加 一 个 路 径 到 MATLAB 的 
搜索 路 径 的 好 处 。 用 户 只 需要 把 若干 程序 文件 存储 在 一 个 文件 夹 中 , 就 可 以 在 其 他 路 径 调用 这 些 函 
数 。 举 例 来 说 ， 假 设 用 户 在 D 盘 上 新 建 了 两 个 文件 夹 DD1 和 DD2,， 这 两 个 文件 夹 的 程序 都 需要 调 
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用 同一 类 函数 { 它们 存储 在 同一 个 文件 夹 中 ， 简 称 工 具 箱 )。 此 时 ， 如 果 用 户 未 把 该 工具 箱 添 加 到 
MATLAB 的 搜索 路 径 下 ， 则 需要 分 别 把 工具 箱 中 所 有 用 到 的 文件 都 复制 到 目录 DD1 和 DD2 下 , 主 
程序 才能 正常 运行 。 这 显然 浪费 空间 和 用 户 的 时 间 ， 所 以 MATLAB 提供 了 一 个 搜索 路 径 功能 ( 默 
认 在 MATLAB 安装 目录 下 的 toolbox 中 )。 用 户 只 要 把 工具 箱 对 应 的 整个 文件 夹 复制 到 搜索 路 径 对 
应 的 目录 中 ， 同 时 把 该 路 径 正确 添加 到 搜索 路 径 中 ， 就 可 以 在 DD1 和 DD2 中 使 用 这 个 工具 箱 了 。 
下 面 就 以 MATLAB 安装 目录 下 的 toolbox 目录 作为 默认 的 添加 路 径 进 行 详细 说 明 。 
在 MATLAB 中 进行 搜索 路 径 设置 的 函数 有 path，addpath 和 rmpath。 下 面 将 详细 介绍 这 几 个 
函数 。 
函数 path 可 以 设置 搜索 路 径 ， 其 调用 格式 为 ， 


path 格式 1 
P = Path 格式 2 
path(path，'newpath') 格式 3 


p 是 所 有 搜索 路 径 构成 的 字符 串 ， 不 同 路 径 之 间 用 分 号 隔 开 。newpath 是 新 路 径 的 名 称 。 格 式 1 
将 把 所 有 的 搜索 路 径 显示 到 命令 窗 中 。 格 式 3 可 以 把 一 个 新 的 路 径 添 加 到 搜索 路 径 中 ， 位 置 是 所 
搜 路 径 的 最 后 面 , 当 MATLAB 退 出 后 这 个 添加 的 路 径 将 被 删除 ,而 默认 的 搜索 路 径 保存 在 pathdef.m 
文件 中 。 如 果 用 户 想 把 某 个 路 径 加 入 默认 的 搜索 路 径 ， 可 以 把 该 路 径 加 入 pathdef.m 文件 中 , 注意 
要 以 字符 串 形式 输入 。 

函数 addpath 可 以 把 路 径 加 到 搜索 路 径 的 最 前 面 ， 其 调用 格式 为 : 


addpath dirname 格式 1 
adqdqpath dairl air2 dir3 ... 格式 2 


dirname 和 dir1，dir2，dir3 等 是 路 径 名 。 格 式 1 把 dimame 路 径 加 到 搜索 路 径 的 最 前 面 。 格 式 2 
可 以 把 多 个 路 径 加 到 搜索 路 径 的 最 前 面 。 这 里 输入 的 路 径 必须 是 已 经 存在 的 路 径 。 下 面 是 相应 的 例子 : 


addpath D:\works 
addpath C:\ D:\ 


函数 rmpath 可 以 用 来 从 搜索 路 径 中 删除 一 个 或 者 多 个 路 径 ， 其 调用 格式 为 : 


rmpath dirname ” 格式 1 
rmpath airl dir2 dir3 格式 2 


dirname 和 dirl，dir2，dir3 等 表示 搜索 路 径 中 的 路 径 名 。 格 式 1 和 格式 2 可 以 分 别 用 来 删除 
一 个 或 者 多 个 搜索 路 径 。 这 里 要 删除 的 路 径 名 要 求 是 搜索 路 径 中 的 路 径 , 如 果 该 路 径 不 存在 于 搜索 
路 径 中 ， 将 提示 : 


>> Impath D:N\works\dqdq 
Warning: "Di:Nworks\kk;"” not found in path. 


下 面 是 使 用 rmpath 的 例子 。 


rmpath D:\works\kk 
rmpath C:\abc Di\ab 


用 户 还 可 以 使 用 pathtool 来 实现 搜索 路 径 的 设置 ， 直 接 在 命令 窗 中 输入 pathtool 就 可 以 弹出 
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相应 的 操作 窗口 ， 如 图 1.12 所 示 。 
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图 1.12 设置 路 径 操作 界面 
在 这 个 界面 中 ， 完 全 实现 了 前 面 介 绍 的 path，addpath 和 rmpath 的 功能 ， 同 时 用 户 还 可 以 调 
整 搜索 路 径 的 顺序 。 

















1.6 偏好 设置 


用 户 可 以 在 如 图 1.13 所 示 的 设置 窗口 ( 选择 菜单 File/Preferences 即 可 弹出 该 窗口 ) 中 设置 命 
令 窗 和 Editor 窗口 的 字体 、 字 号 、 背 景 颜色 等 信息 。 这 里 需要 提示 一 下 用 户 ， 一 些 字体 会 使 得 中 
文 不 能 正常 显示 ， 只 要 避 开 这 些 字 体 就 可 以 了 。 
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图 1.13 ”参数 设置 界面 
在 图 1.14 中 ， 建 议 用 户 将 EditorDebugger 项 下 的 自动 保存 ( Autosave ) 选项 关闭 ( 即 不 选 
择 Enable autosave in the MATLAB Editor 复 选 框 ), 否则 将 在 当前 路 径 下 自动 生成 一 个 与 M 文件 内 
容 一 样 的 asv 文件 。 一 般 情 况 M 文件 是 不 会 被 损坏 的 ， 除 非 用 户 不 经 意 删除 。 
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开关 自动 保存 功能 
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图 1.14 关闭 自动 保存 功能 
除了 自动 保存 之 外 ， 用 户 还 可 以 使 用 函数 pcode 来 加 密 程序 内 容 ， 其 调用 格式 为 : 


pcode filename 


filename 是 文件 名 。 执 行 完 pcode 语句 后 可 以 得 到 一 个 扩展 名 为 p 的 文件 ， 这 个 p 码 文件 具 
有 原来 文件 的 功能 ( 使 用 者 可 以 运行 、 调 用 p 码 文件 ), 但 是 即使 用 户 自己 也 无 法 查看 其 中 的 内 容 。 
这 样 的 文件 可 用 于 一 些 需要 隐藏 程序 内 容 的 场合 , 比如 用 户 把 自己 的 文件 给 别人 使 用 , 但 不 希望 别 
人 知道 其 中 的 内 容 。 

对 于 当前 路 径 也 可 以 设置 相应 的 参数 ， 如 最 多 的 当前 路 径 数目 、 显 示 的 文件 类 型 、 自 动 刷 新 时 
间 等 信息 。 对 于 workspace 的 设置 有 : 最 大 显示 元 素数 目 以 及 对 于 NaN 值 的 处 理 方式 .对 于 GUIDE 
的 设置 有 工具 条 显示 、 组 件 名 称 、 窗 口 文件 扩展 名 、 窗 口 文件 路 径 名 和 回调 函数 等 选项 。 

用 户 可 以 使 用 函数 quit 和 exit 来 退出 MATLAB 环境 ， 它 们 可 以 用 于 程序 结束 的 位 置 ， 这 样 程序 计 

完毕 后 MATLAB 就 可 以 自行 退出 了 。 利 用 下 面 的 语句 可 以 实现 自动 关机 : 


dos ('shutdown ~ -七 6) 


上 述 语句 的 功能 是 6 秒 后 关机 。 这 里 利用 函数 dos 调用 操作 系统 中 的 shutdown.exe。 在 
Windows XP 系统 中 有 shutdown.exe 文件 , 而 在 Windows 2000 系统 中 没有 这 个 应 用 程序 , 用 户 如 
果 需 要 可 以 从 XP 系统 中 复制 过 去 使 用 。 这 个 功能 可 以 用 于 长 时 间 执 行 的 程序 中 ， 如 果 用 户 离开 机 
器 去 做 其 他 事情 ， 相 应 程序 的 计算 结果 也 自动 保存 下 来 ， 以 便 用 户 开机 后 查看 。 

在 2008a 版 本 中 还 可 以 把 Editor 窗口 和 命令 窗 放 在 一 起 ， 用 户 可 以 按 图 1.15 所 示 操 作 。 

用 户 可 以 用 鼠标 单 击 右 上 角 的 人 按钮 把 Editor 窗口 和 命令 窗 放 在 一 起 ， 如 图 1,16 所 示 。 
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图 1.15 M 文件 编译 窗 图 1.16 集合 在 一 起 的 界面 
在 图 1.16 所 示 的 窗口 中 ， 上 面 程序 运行 的 内 容 如 果 出 现 错误 ， 可 以 在 下 面 的 命令 窗 中 显示 出 
来 。 这 个 风格 类 似 于 VC++ 语 言 ,这 样 的 风格 不 会 因 MATLAB 重新 启动 而 改变 。 如 果 用 户 单 击 Editor 
窗口 右 上 角 的 如 按钮 ，Editor 窗口 将 和 命令 窗 分 开 。 用 户 可 以 根据 自己 的 喜好 来 设置 。 在 Editor 
窗口 右上 角 有 5 个 按钮 ， 用 来 控制 多 个 M 文件 的 布局 ， 如 图 1.17 所 示 。 
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图 1.17 Editor 窗口 控制 按钮 
其 中 第 5 个 按钮 是 默认 风格 ， 第 1，2，3，4 个 按钮 对 应 的 界面 风格 如 图 1.18 所 示 。 
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图 1.18 多 个 Editor 窗口 的 布局 风格 


图 1.18 所 示 的 界面 风格 在 比较 不 同文 件 的 结果 时 非常 方便 。 可 以 用 鼠标 单 击 带 有 绿色 三 角形 
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的 按钮 或 者 按 快 捷 键 F5 执行 M 文件 。 


1.7 添加 工具 箱 


为 了 扩充 MATLAB 的 功能 ， 用 户 可 以 自己 添加 新 的 工具 箱 。 下 面 介绍 两 种 方法 ， 


争 如 果 是 安装 光 姐 上 的 工具 箱 ， 重 新 执行 安装 程序 ， 选 中 相应 的 工具 箱 即 可 。 

镶 ”需要 把 新 的 工具 箱 复制 到 MATLAB 安装 根 目 录 中 的 toolbox 文件 夹 下 ， 然 后 用 addpath 或 
者 pathtool 把 该 工具 箱 的 路 径 添 加 到 MATLAB 的 搜索 路 径 中 ( 用 户 还 可 以 在 pathdef.m 文 
件 中 把 该 路 径 设置 为 黑 认 路 径 )， 最 后 用 which newtoolbox_function 来 检验 新 工具 箱 中 的 
文件 是 否 可 以 访问 。 如 果 能 够 显示 新 设置 的 路 径 ， 则 表明 该 工具 箱 可 以 使 用 了 。 用 户 也 可 
以 查看 工具 箱 中 的 readme 文件 。 


如 果 用 户 自己 编写 了 一 些 文件 且 经 常 需要 调用 它们 , 可 以 考虑 把 它们 作为 一 个 工具 箱 。 用 户 把 
它们 存放 于 一 个 文件 夹 中 ， 然 后 作为 一 个 工具 箱 保 存在 toolbox 文件 夹 下 ， 并 且 按 上 面 介 绍 的 办 法 
进行 搜索 路 径 设置 。 

下 面 以 MathWorks 提供 的 工具 箱 Submodular Function Optimization 为 例 说 明 工 具 箱 安装 的 过 
程 。 该 工具 箱 可 以 从 网 页 http,Wwww.mathworks.cormymatlabcentralfileexchange/20504 下 载 得 到 。 


ER 下载 压缩 文件 SFO.zip， 解 压 后 复制 到 MATLAB 安装 根 目录 中 的 toolbox 文件 夹 下 。 
在 命令 窗 中 输入 pathtool 后 可 以 弹出 如 图 1.19 所 示 的 对 话 框 ， 单 击 Add Folder 按钮 ， 弹 出 如 
1.20 所 示 的 对 话 框 ， 利 用 鼠标 选择 路 径 CA\MathTools\MATLABR2008atoolboxSFO。 
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Move to Dotktom 
C MathToolsWMATLABR2008aWMoolboxmal 
图 1.19 路 径 设置 图 1.20 路径 选择 
选中 路 径 之 后 单 击 “ 确 定 ”按钮 ， 再 单 击 如 图 1.19 所 示 对 话 框 中 的 Save 按钮 ， 关 闭 对 


话 框 。 
ED 在 命令 窗 中 输入 下 述 语句 检查 工具 箱 是 否 安装 成 功 。 


>> which sfto_logdet 


MATLAB 输出 下 述 内 容 就 表示 工具 箱 安装 成 功 了 。 
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C:\MathTools\MATLABR2008aN\toolbox\sftoNvsfto_logdet ,mn 


上 的 划算 “cathroone 是 MATUAB 安装 的 要 目 孙 ， 如 果 法 者 笃 基 他 中 和 
人 <。 这 里 应 相应 改变 。 
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本 章 主 要 介绍 了 MATLAB 的 基本 知识 ， 介 绍 了 初次 接触 MATLAB 时 应 该 了 解 的 一 些 问题 。 首 
先 介绍 了 MATLAB 的 发 展 以 及 2008a 版 本 的 功能 ; 然后 以 版 本 2008a 为 例 介 绍 了 MATLAB 的 安装 
过 程 ， 围 绕 MATLAB 界面 介绍 了 相关 组 件 的 功能 ， 使 用 户 熟悉 该 软件 的 操作 环境 ; 总 结 了 用 户 获 
取 帮 助 的 3 种 方式 ， 即 本 地 帮助 、 求 助 朋友 和 网 络 帮助 ， 促 进 用 户 在 编程 中 尽快 解决 所 遇 到 的 问 
题 ; 接 下 来 介绍 了 设置 当前 路 径 和 搜索 路 径 的 方法 , 并 在 偏好 设置 部 分 中 介绍 了 一 些 设置 界面 的 方 
法 ， 使 界面 成 为 用 户 自己 喜欢 的 风格 ;最 后 介绍 了 添加 新 工具 箱 的 两 种 办 法 。 


令 镶 争 
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第 2 章 ， 理 解 MATLAB 的 数据 类 型 


争 double 型 数据 介绍 double 型 数据 及 其 相关 函数 的 使 用 。 

人 字符 串 ”介绍 字符 串 定 义 和 相 关 字 符 串 处 理 函 数 。 

cell 结构 ”介绍 ce1] 数据 的 建立 和 相关 的 处 理 函 数 。 
结构 型 ”介绍 结构 型 数据 及 相关 的 函数 。 

8 位 整 型 数据 介绍 8 位 整 型 数据 相关 知识 。 

不 同 数据 类 型 之 间 的 转化 ”概括 了 不 同 数据 类 型 的 转化 函数 。 
变量 与 常量 介绍 了 全 局 变量 及 MATLAB 中 的 常量 。 


9 多 


本 章 将 介绍 MATLAB 中 的 数据 类 型 及 不 同 数据 类 型 之 间 的 转化 方法 。 熟 悉 这 些 数据 类 型 对 于 
灵活 编写 程序 具有 重要 的 辅助 作用 。 与 其 他 高 级 编程 语言 相 比 , MATLAB 的 数据 类 型 定义 起 来 要 简 
单 得 多 。 在 MATLAB 中 ， 常 用 的 数据 类 型 有 双 精 度 型 ( double )、 字 符 型 ( char )、 细 胞 型 ( cell 人 
结构 型 ( struct ) 8 位 整 型 ( uint8 ) 等 5 种 类 型 ， 其 中 在 编程 中 最 常用 的 数据 类 型 是 双 精 度 型 和 字 
符 型 数据 。 下 面 将 详细 介绍 这 些 数据 类 型 。 


2.1 double 型 数据 


双 精 度数 据 类 型 是 数据 计算 中 最 常用 的 数据 类 型 ， 在 MATLAB 中 可 以 简单 地 定义 ， 如 : 
21; 


= .5， 
= 2+313? 


用 户 可 以 根据 需要 来 定义 实数 和 复数 ， 其 中 1 和 j 在 MATLAB 中 用 来 表示 虚数 单位 \I 。 如 果 
用 户 在 程序 中 把 i 或 者 j 定义 为 一 个 数值 ， 如 ; 


1 = 2; 
则 以 后 用 户 用 下 面 两 种 方式 定义 一 个 复数 是 有 区 别 的 。 


CL = 1+2 
C2 = 1+2* 守 


输出 如 下 : 


C1 


1.0000 + 2.0000i. 
C2 5 


其 中 C1 和 C2， 一 个 为 复数 ， 一 个 为 实数 ， 二 者 差异 很 大 。 为 了 避免 这 个 问题 出 现 ， 用 户 可 
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以 不 对 1 和 j 重新 赋值 。 通 过 如 表 2.1 所 示 的 format 函数 可 以 控制 double 型 数据 的 显示 格式 。 


表 2.1 format 函数 控制 double 型 数据 的 显示 格式 
语句 功能 


format short 显示 带 有 4 位 小 数 的 定点 数 ， 而 且 MATLAB 重新 启动 后 置 为 该 格式 ， 如 3.1416 
format long 显示 带 有 14 位 小 数 的 定点 数 ， 如 3.141592653589793 

format short e 显示 带 有 4 位 小 数 的 浮 点 数 ， 如 3.1416e+000 

format long e 显示 带 有 14 位 小 数 的 浮 点 数 ， 如 3.141592653589793e+000 

format short g 显示 带 有 4 位 小 数 的 浮 点 数 或 者 定点 数 ， 如 3.1416 

format long 9 显示 带 有 14 位 小 数 的 浮 点 数 或 者 定点 数 ， 如 3.14159265358979 
format hex 显示 为 16 进 制 数 ， 如 3ff0000000000000 

format bank 显示 为 货币 格式 的 数 ， 即 带 有 2 位 小 数 ， 如 3.14 

format rat 显示 为 有 理 数 ， 如 355/113 

format + 正 数 为 +， 负 数 为 =-，0 为 空格 ， 相 当 于 符号 函数 ， 复 数 是 按 实 部 计算 
format compact 显示 为 压缩 格式 ， 类 似 于 format + 方式 

format loose 显示 为 稀疏 格式 ， 类 似 于 format + 方式 


函数 isfloat 可 以 用 来 判断 变量 的 数据 类 型 是 否 为 浮 点 型 数据 ， 其 调用 格式 为 ， 
isfloat(&A) 


参数 说 明 : A 是 输出 的 变量 。 当 A 为 浮 点 型 数据 时 ， 返 回 值 1， 否 则 为 0。 

如 果 用 户 需要 显示 特定 位 数 的 小 数 , 可 以 使 用 vpa 函数 。 该 函数 用 法 将 在 4.4.1 节 中 详细 介绍 。 
MATLAB 函数 提供 了 4 种 取 整 函数 ， 即 ceil ( 向 正 无 穷 取 整 人 侈 (向 零 取 整 ) floor ( 向 负 无 穷 
取 整 ) 和 round ( 四 售 五 入 )， 它 们 直接 可 以 作用 于 double 型 数据 ,这 里 不 再 袭 述 。 不 清楚 的 地 方 ， 
用 户 可 以 参阅 帮助 信息 。 


2.2 字符 串 


字符 串 可 以 用 来 表示 一 些 MATLAB 函数 的 属性 值 ， 并 用 于 显示 中 英文 内 容 等 。 本 节 来 介绍 字 
符 串 的 定义 以 及 处 理 字符 串 的 相关 MATLAB 函数 。 
2.2.1 字符 串 的 定义 


常用 的 定义 字符 串 的 方法 是 用 两 个 单 引号 把 字符 串 内 容 “ 夹 " 起来， 比如 用 户 可 以 用 下 面 的 方 
式 来 定义 字符 串 。 


'Harbin， 黑 龙 江 ， 
char(33:128) 


S1 
S2 


输出 如 下 : 
s1 =Harbin， 黑 龙 江 
8S2 = 
1 "#$8&()w+，-。/0123456789: ;<=>?6RABCDEFGHIUJKLMNOPORSTUVWXYZ [\]^ abcdqefghijklrmn 


OpPaLSLUVWwxyz{t1}~ ? 


其 中 ，s2 包含 大 小 写 英文 字母 、 空 格 和 一 些 常见 的 符号 ， 有 的 时 候 可 以 用 这 种 方式 来 得 到 难 
以 输入 的 字符 。 比 如 : 
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sS1 = ['b=a',char(39)] 
S2 二 [Pb=a' 二 4] 

上 面 的 语句 可 以 得 到 ， 
B1 = 
= 已 
S2 = 
bz=a， 


在 MATLAB 中 要 使 单 引号 出 现在 字符 串 中 ， 必 须 用 2 个 连续 单 引 号 才能 得 到 这 样 的 结果 。 或 
者 用 户 也 可 以 考虑 用 char(39) 的 方式 来 得 到 ， 这 种 方式 对 于 初次 使 用 MATLAB 的 用 户 更 容易 接受 
和 理解 。 


2.2.2 ”字符 串 操作 函数 


前 一 小 节 介绍 了 字符 串 定 义 ， 本 小 节 来 介绍 MATLAB 提供 的 常用 字符 串 操作 函数 ， 它 们 在 程 
序 设 计 中 有 重要 作用 。 

(1 ) 函数 eval 可 以 用 来 执行 用 字符 串 表 示 的 表达 式 ， 该 函数 的 调用 格式 为 
eval(S) 
[X,Y,2, .。.。] = eval(S)， 

参数 说 明 : S 是 字符 串 的 名 称 ， 也 可 以 是 一 个 完整 的 字符 串 表 达 式 。X，Y，Z 等 代表 执行 eval 
函数 之 后 相应 的 输出 内 容 。 

例 2-1: 调用 函数 eval 来 操作 字符 。 
已 = 1; 
jb 二 23 
s1 = 'eig(magic(3))'; s% 表达 式 的 含义 是 计算 3 阶 魔方 矩阵 的 本 征 向 量 和 本 征 值 


evVval ('c1=a+Db') 
[V,D]=eval(sl1) 


输出 内 容 如 下 : 


ClL 三 3 
V= -0.5774 -0.8131 -0.3416 

-0.5774 0.4714 -0.4714 

-0.5774 0.3416 0.8131 
D= 15.0000 0 0 

0 4.8990 0 
0 0 -4.8990 
可 见 eval 函数 执行 了 字符 串 s1 的 内 容 后 把 输出 结果 赋 给 了 V 和 D, 相应 的 语句 与 下 面 的 语句 


是 等 价 的 。 
eval('[V,D]=eig(magic(3)) ':) 


同时 为 了 加 速 程序 的 执行 速度 ， 用 户 可 以 增加 分 号 使 中 间 的 结果 不 显示 。 此 外 ，eval 函数 可 以 
在 批 处 理 结构 中 有 很 好 的 应 用 ， 后 面 的 章节 会 介绍 这 方面 的 应 用 例子 。 
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( 2 ) 函数 deblank 可 以 去 掉 字符 串 末尾 的 所 有 空格 ， 该 函数 的 调用 格式 为 : 


R = deblank(S) ， 
参数 说 明 : R 是 处 理 后 的 字符 串 。S 是 输出 的 字符 串 。 
例 2-2: 调用 deblank 函数 的 例子 。 

length (deblank('MRATLRB  :)) 
输出 为 : 

ans = 6 


通过 上 面 的 输出 结果 我 们 可 以 发 现 MATLAB 后 面 的 空格 被 删除 了 。 
(3 ) 函数 findstr 可 以 用 来 在 长 字符 串 中 查找 一 个 短 的 字符 串 ， 并 返回 相应 的 位 置 ， 其 调用 格 
式 如 下 : 


P = findstr(S1,S2) 


参数 说 明 : P 是 返回 的 所 查找 字符 首 字母 的 位 置 。S1 表示 长 字符 串 ，S2 是 目标 字符 串 。 
例 2-3: 调用 findstr 函数 的 例子 。 


S1 = 'How much wood would a woodchuck chuck?'; 
P1 = findstr(S1L,，'mu') 


P2 findstr(S1，'wo') 
输出 为 : 
P1 = 筷 
P2 = 10 15 人 
(4) 函数 isstr 可 以 用 来 判断 变量 是 否 为 字符 串 ， 其 调用 格式 为 : 
isstr(S); 
参数 说 明 : S 是 输入 的 检测 变量 。 当 S 是 一 个 字符 串 的 时 候 ， 返 回 值 为 1， 否则 为 0。 
例 2-4: 下 面 是 调用 isstr 函数 的 一 个 例子 。 
S = 'sda'; 
V=issctr(S) 
输出 为 : 
了 = 1 


( 5) 函数 isletter 可 用 来 判断 字符 串 中 的 各 个 元 素 是 否 为 字母 ， 其 调用 格式 如 下 : 
V = isletter(S) 


参数 说 明 : v 是 一 个 由 0 和 1 组 成 的 向 量 ， 当 字符 串 中 元 素 是 一 个 字母 的 时 候 ， 对 应 位 置 的 返 
回 值 为 1， 否则 为 0。S 是 一 个 待 检测 的 字符 串 。 
例 2-5: 调用 isletter 函数 判断 是 否 为 字母 。 


S = 'H-I-T and Harbin'; 
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vV = isletter(S) 


输出 为 : 


六 


(.6 ) 函数 isspace 可 以 用 来 判读 字符 串 元 素 是 否 为 空格 符 ， 其 调用 格式 为 : 
V = isspace(S); 

参数 说 明 : v 是 返回 的 变量 ， 它 是 一 个 由 1 和 0 组 成 的 向 量 。 当 字符 串 中 的 元 素 是 一 个 空格 符 
时 ， 对 应 位 置 的 返回 值 是 1， 否则 为 0。S 是 输入 的 字符 串 。 

例 2-6: 调用 isspace 函数 来 判断 是 否 为 空格 符 。 


= 'R and B'; 
V = isspace(S) 


v = 0 1 0 0 0 1 0 
{7) 函数 lower 和 upper 可 以 把 字符 串 中 的 字母 转 为 小 写 格 式 和 大 写 格 式 ， 调 用 格式 为 : 


= 1ower(S1) ; 
= Upper(s2) 1; 


S1 
S2 
参数 说 明 : s1 和 S2 是 转化 后 的 字符 串 。S1 和 s2 是 输入 的 字符 串 。 
例 2-7: 调用 Ilower 和 upper 函数 来 实现 字母 大 小 写 转换 。 
= 'C or D' 
1 = lower(S) 
2 = upper(S) 


输出 为 : 


om Oo 


(8 ) 函数 strcat 可 以 把 多 个 字符 串 在 水 平方 向 上 依次 连接 起 来 ， 其 调用 格式 为 : 
开 三 是 EZCaKt(91.827537 wz 


参数 说 明 : T 为 连接 后 的 字符 串 。S1，S2，S3 等 是 输入 的 字符 串 。 
例 2-8: 调用 strcat 函数 连接 字符 串 。 


Blue' 
= Strcat (S1,' 7S2。vv 17S3) 


输出 为 : 


T = Red,Green,Blue 
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可 见 在 每 个 字符 串 后 的 空格 符 被 过 滤 掉 了 。 如果 用 户 需 要 这 些 空 格 , 可 以 用 下 面 两 种 方式 来 替 
换 上 面 的 语句 。 


T1 = [S1,，'， "3S2，， 必 S3] 

T2 = Strcat(S1,'，',char{(127*ones(1,9)),S2,，'，',char(127*ones(1,7)),S3) 
输出 的 T1 和 T2 为 : 

T1 =Red,， Green， BLuUe 

T2 =Red, Green， BlLue 


(9 ) 函数 strvcat 可 以 把 多 个 字符 串 按 紧 直方 向 连接 起 来 ， 其 调用 格式 为 : 
SS = SEIVCcat (T1,T2,T3,，.。.); 

参数 说 明 : S 是 返回 的 连接 结果 。T1，T2，T3 等 是 输入 的 字符 串 。 输 出 结果 按 左 对 齐 方 式 排 
列 , 右 侧 如 果 字 符 数目 不 匹配 ， 则 以 最 长 长 度 为 准 , 字符 串 长 度 短 的 行 用 空格 符 补 齐 。 用 户 可 以 用 
strjust 来 更 改 对 齐 方式 ， 该 函数 用 法 稍 后 介绍 。 

例 2-9: 调用 strvcat 函数 按 竖 直 方向 连接 字符 。 
T1 = 'beijingl1000'7 
T2 = 'Harbin1'7 


T3 'Chinal'; 
S = Strvcat (T1,T2,T3) 


输出 为 : 
S = beijingl1000 


Harbin1l 
Chinal 


这 个 例子 中 ，T1，T2 和 T3 是 3 个 长 度 不 同 的 字符 串 ， 函 数 strvcat 把 它们 排 为 3 
[有 行 字符 和 阵 ， 各 行 字符 串 左 对 齐 ， 右 侧 使 用 空格 符 补 齐 。 


( 10 ) 函数 strcmp 可 以 用 来 进行 字符 串 的 比较 ， 其 调用 格式 为 : 
TF = Strcmp (S1,S2)) 
参数 说 明 : TF 是 返回 值 。S1 和 S2 是 输入 的 两 个 字符 串 。 当 两 个 字符 串 的 内 容 完全 一 样 时 ， 


TF 等 于 1， 否 则 TF 等 于 0。 
例 2-10: 调用 strcm 函数 比较 字符 串 。 


S1 = 'ab'; 

S2 = :Rb 

S3 = 'ab': 

TF1 =.Sstrcmp{S1,S2) 

TE2 = Strcmp(S1,S3) 
输出 为 : 

TERF1 = 0 

TF2 = 间 
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这里 字 符 昌 S1 和 S3 相同 ， 而 S1 和 S2 不 相同 。 利 用 函数 strcmp 来 判断 字符 昌 是 
必 。 否 相 同 ， 返 回 结果 为 0 表示 不 相同 ， 为 1 表示 相同 。 


{ 11) 函数 strcmpi 可 以 用 忽略 英文 字母 大 小 写 的 方式 来 比较 字符 串 ， 其 调用 格式 为 : 
TEF = Strcmpi(S1,S2) 7 
参数 说 明 : TF 是 返回 值 。S1 和 S2 是 输入 的 两 个 字符 串 。 当 两 个 字符 串 的 内 容 ( 除 字母 大 小 


写 外 ) 一 样 时 ， TF 等 于 1 否则 TF 等 于 0。 
例 2-11: 用 函数 strcmpi 以 特定 的 方式 来 比较 字符 串 。 


S1 = 'ab'; 

S2 = Ai 

S3 = 'ab'; 

TF1 = Strcmpi(S1,S2) 

TF2 = Strcmpi(S1,S3) 
输出 为 : 

TPF1 = 1 

TF2 = 工 


一 检 地 让，s1 和 S3 是 相同 的 ， 而 sz 和 另外 两 个 字符 则 不 相同 ， 但 是 在 外 只 大 小 
和 有。 瑟 的 情况 下 ，3 个 字符 串 就 一 样 了 ， 所 以 利用 函数 strcmpi 返回 了 相等 的 结果 。 


( 12 ) 函数 strjust 可 以 用 来 调整 字符 串 和 矩阵 对 齐 的 方式 ， 其 调用 格式 为 : 
T = strjust(S,mode); 

参数 说 明 : T 是 重新 排列 后 的 结果 。S 是 字符 串 和 矩阵 。mode 是 一 个 字符 串 ， 用 来 描述 字符 串 
的 对 齐 方式 ， 有 3 个 可 选 值 ， 即 right 表示 右 对 齐 ，left 表示 左 对 齐 ，center 表示 居中 对 齐 。 

例 2-12: strjust 调整 字符 串 和 矩阵 对 齐 的 方式 。 
S = ['abcdefgh';'se ] 


T1 = Strjusc(S，'right') 
T2 = Strjust(S,'1efc') 


了 3 strjust(S,'center') 
输出 为 ， 
T1 = 了 2 = 了 3 .二 
abcdefgh abcdefgh abcdefgh 
Ss SS: SS 


这 里 字符 囊 S 的 输入 是 左 对 齐 方式 ， 利 用 函数 strjust 可 以 得 到 右 对 齐 、 左 对 齐 以 
有 及 中 间 对 齐 的 3 种 排列 方式 ， 输 出 结果 显示 了 该 函数 的 功能 。 


( 13 ) 函数 strmatch 可 以 用 来 寻找 和 目标 字符 串 匹 配 的 行 ， 其 调用 格式 为 ， 
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r = Strmatch(SEr，SErarray) 
z = Stimatch(Str，Strarray， 'exact '):; 

参数 说 明 :r 是 返回 含有 目标 字符 串 的 行 号 组 成 的 列 向 量 。str 是 用 户 定义 的 目标 字符 串 sstrarray 
表示 搜索 范围 的 字符 串 和 矩阵 。exact 表示 目标 字符 串 str 要 和 strarray 行 中 的 内 容 完 全 一 致 。 在 进行 
搜索 的 时 候 ，strmatch 从 各 行 字 符 圳 的 开始 字符 串 算 起 ， 不 匹配 就 进入 下 一 行进 行 搜索 。 

例 2-13: 寻找 和 目标 字符 串 匹 配 的 行 。 


1 = Strmatch('max',，StrVcat('max'，'minimax'，'maximum') ) 

2 = Srmatchf'max' ,Stxtrvcat ('max'，'minimax'，'maxirmum' )，'exact'+) 
输出 为 : 

Z1 = 2 = 
1 下 


而 第 3 行 中 含 所 有 max 但 有 其 他 部 分 。 这 里 利用 strmatch 进行 匹配 分 析 ， 不 使 用 
exact 控制 时 ， 匹 配 结果 返回 了 1 和 3， 表 明 第 1 和 第 3 行 匹 配 。 而 利用 exact 控 
制 时 ， 只 返回 第 1] 行 和 max 严格 匹配 的 结果 。 


省 输入 的 第 2 个 字符 串 strvcatCmaxyminimax''maximum') 中 ,第 1 行内 容 与 max 一 致 ; 
说 明 


( 14 ) 函数 stmcmp 可 以 用 来 比较 字符 串 前 N 个 字符 是 否 相 同 ， 其 调用 格式 为 : 

TF = Srncmp (S1,S2,N) 7 

参数 说 明 : TF 是 返回 的 比较 结果 。S1 和 S2 是 输入 的 字符 串 。N 用 来 指定 比较 的 范围 ， 其 值 
可 以 大 于 两 个 字符 串 中 的 最 大 长 度 , 此 时 对 字符 串 进行 比较 相当 于 strcmp 函数 此 外 ,函数 stmcmp 
可 以 用 strcmp 来 替换 , 如 TF = strcmp(S1(1:N),S2(1:N)) ,但 此 时 N 不 能 大 于 两 个 字符 串 长 度 的 最 
小 值 。 当 S1 和 S2 的 前 N 个 字符 串 相 同时 ， 返 回 值 为 1， 否 则 为 0。 

例 2-14: 字符 串 的 前 N 个 字符 是 否 相同 。 
S1 = 'abc1l2'; 
S2 = "abc23'7 


TF1 = Strncmp(S1,S2,3) 
TF2 = Strncmp(S1,S2,4) 


输出 为 ， 


TEF1 = 于 TEF2 = 0 


说 明 这 里 利用 函数 strncmp 比较 两 个 不 同 字符 串 前 3 个 和 前 4 个 字符 是 否 相 同 。 输 入 
字符 串 前 3 个 字符 相同 而 后 面 不 同 ， 程 序 的 输出 结果 表明 了 这 个 结论 。 


( 15 ) 函数 strrep 可 以 实现 字符 串 的 查找 和 替代 功能 ,相当 于 一 些 软件 如 Word 中 的 查找 、 替 
换 功能 ， 其 调用 格式 为 : 
S = Sttrep(S1,S2,S3); 

参数 说 明 : S 是 替换 后 的 结果 。S1 是 原始 字符 串 。S2 是 要 查找 的 字符 串 。S3 是 代替 的 字符 串 。 
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当 在 S1 中 找 不 到 字符 串 S2 时 ， 将 不 进行 操作 。 
例 2-15: 串 的 寻找 和 替代 。 


S1 = 'This is aa good example'; 
S = Strrep(S1L1,，'good',，'great') . 


输出 为 ， 


S =This is aa great examp1le 


说 明 这 个 例子 把 输入 字符 串 中 的 good 替换 为 great， 结 果 表 明 这 个 函数 很 好 地 完成 了 
查找 目标 字符 串 g00d 和 替换 字符 串 great 的 功能 。 
( 16 ) 函数 strtok 可 以 找 出 字符 串 中 第 一 个 空格 符 前 面 的 字符 串 ， 其 调用 格式 为 : 
了 = Strtok(S) 


参数 说 明 : T 是 返回 的 字符 串 。S 是 原始 字符 囊 。 
例 2-16: 下 面 是 该 函数 的 一 个 例子 。 


S1 = 'This is aa great example，which is ok.'; 
S = Strtok(S1) 


输出 为 : 
S =This 

(17 ) 函数 texlabel 可 以 把 字符 串 转 换 为 TeX 软件 的 格式 ， 其 调用 格式 为 
texlabel(f) 


参数 说 明 : f 是 目标 字符 串 。 
例 2-17: 将 字符 串 转 换 为 TeX 软件 的 格式 。 


texlabel('sin(sqrt (x^2 + Y^2))Vsqrt(x^2 + Y^2)，) 
输出 为 ， 
ans = {sin]({sqrt}({x}j^f2}》 + {yj^f2}))/fsqrt}j(fxl^f2) + {Y}^f2)) 
( 18 ) 下 面 给 出 不 同 进 制 的 转化 函数 ， 具 体 用 法 和 含义 如 表 2.2 所 示 。 
表 2.2 进 制 转换 函数 列表 


调用 格式 说 明 调用 格式 说 明 
X = bin2dec(B); 二 进 制 转换 为 十 进 制 B = dec2bin(D); 十 进 制 转换 为 二 进 制 
X = oct2dec(C); 八进制 转换 为 十 进 制 C = dec2oct(D); 十 进 制 转换 为 八进制 


X = hex2dec(H); 十 六 进 制 转换 为 十 进 制 H = dec2hex(D); 十 进 制 转换 为 十 六 进 制 
N = hex2num(N):; 十 六 进 制 转换 为 双 精 度数 据 


然而 表 2.1 描述 的 函数 dec2bin，dec2oct 和 dec2hex 只 能 把 整数 转 为 二 进 制 、 八 进 制 和 十 六 
进 制 数 。 如 果 用 户 输入 一 个 小 数 ， 这 些 函 数 将 对 整数 部 分 进行 转化 。 比 如 : 


22 > > > 了 区 


梧 梧 本 本 第 久 吉 理解 MATLAB 的 数据 类 型 


B = dec2bin(pi) 
输出 为 : 


这 里 只 是 把 pi 的 整数 部 分 “3” 转 化 为 二 进 制 数 。 为 此 作者 编写 了 bin2dec_dfm 文件 和 
dec2bin_df.m 文件 { 均 位 于 光盘 的 \Ch02 文件 夹 内 )， 用 于 在 二 进 制 小 数 和 十 进 制 小 数 之 间 进 行 转 
化 ， 它 们 是 函数 文件 ， 用 户 可 以 像 调 用 MATLAB 自 带 函数 一 样 使 用 这 两 个 函数 。 

例 2-18: 下 面 是 调用 这 两 个 函数 的 例子 。 


Yd = bin2dec_df('11.00100') 
Yb = dec2bin_daf (pi,5) 


输出 为 ， 
ya = ”3.1250 
yb = 11.00100 


其 中 yb 是 字符 串 数据 。 函 数 bin2dec_df 要 求 输入 的 参数 为 字符 串 。 函 数 dec2bin_df 的 第 一 
个 输入 参数 为 double 型 数据 ， 第 二 个 参数 用 来 指定 二 进 制 小 数 的 位 数 。 此 外 ， 读 者 可 以 把 double 
型 小 数 乘 10 的 整数 次 需 取 其 四 售 五 入 的 整数 ， 然 后 再 使 用 函数 dec2bin，dec2oct 和 dec2hex 来 
计算 ， 最 后 在 前 面 加 “0.” 即 可 。 

({ 19 ) 函数 bitget 可 以 用 来 获取 二 进 制 的 数位 ， 其 调用 格式 为 : 


C = bitget (RA,BIT) ， 
参数 说 明 : C 是 提取 的 二 进 制 数位 。A 是 一 个 无 符号 整 型 数据 ， 如 uint8e 和 uint16 等 。BIT 用 


于 指定 二 进 制 的 数位 位 置 。 
例 2-19: 获取 二 进 制 的 数位 。 


及 = 2431 
C = bitget(uint16(A) ,3:6) 
输出 为 : 
C = 0 0 1 1 
( 20 ) 与 bitget 相关 的 函数 是 bitset， 它 可 以 用 来 设 定 某 个 二 进 制 数位 的 值 ， 其 调用 格式 为 : 
C = biktset(A,BIT) gs 格式 1 
C = bitset (AR,BIT,V) g 格式 2 


参数 说 明 : C 是 改变 后 的 整 型 数值 。A 是 一 个 无 符号 整 型 数据 ， 如 uint8 和 uint16 等 。BIT 用 
于 指定 二 进 制 的 数位 位 置 。 在 格式 1 中 指定 数位 的 数值 将 被 取 非 运算 的 结果 ， 即 1 变 为 0，0 变 为 
1。 在 格式 2 中 指定 数位 的 数值 将 被 V ( 这 里 V 只 能 是 1 或 者 0 ) 替换 。 

例 2-20: 设 定 某 个 二 进 制 数位 的 值 。 
及 = 168: 


C1 = bitset (uint8(aA)72) 
C2 = bitset (uint8(A),3,I) 
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cl1 = 170 C2 = 172 


168 对 应 的 二 进 制 数位 数值 是 00010101 ,从 左 至 右 依次 是 从 低位 到 高 位 。 对 于 C1 ， 
[有 二进制 数 将 变 为 01010101,， 它 对 应 的 十 进 制 数 是 170; 对 于 C2， 二 进 制 数 将 变 为 
00110101 ， 它 对 应 十 进 制 数 为 172。 


( 21 ) 函数 bitand，bitor 和 bitxor 可 以 用 来 进行 “与 “或 ”和 “ 异 或 ”数位 操作 ， 它 们 的 
调用 格式 为 : 
C = bitand (ARA,B) ， 
C = bictor(A,B)， 
C = bitxor(R,B) 
参数 说 明 : C 是 返回 的 计算 结果 。A 和 昌 是 两 个 无 符号 整 型 数据 。 
例 2-21: 下 面 是 “与 “或 ”和 “ 异 或 ”数位 操作 的 例子 。 


&RA = uint8(167): 
B = uint8(211)， 


Cl1 = bitand(&A,B) 

C2 = bitor (及 ,B) 

C3 = bitxor (&A,B) 
输出 如 下 : 

Cl = 131 

C2 = 247 

Cc3 = 116 


的 二 进 制 数 为 11001011。 这 两 个 二 进 制 数 进 行 “ 与 "~、“ 或 ”和 “ 异 或 ”运算 的 结 


167 对 应 的 二 进 制 数 为 11100101 ( 从 左 至 右 依次 是 从 低位 到 高 位 )， 而 211 对 应 
说 明 
省 果 分 别 为 11000001,11101111 和 00101110, 它 们 依次 对 应 于 131 ,247 和 116。 


2.3 cell 结构 


在 MATLAB 中 ， 提 供 了 一 种 cell 结构 。 在 这 种 数据 结构 中 可 以 允许 有 不 同 的 数据 类 型 ， 这 一 
点 使 得 该 数据 类 型 不 同 于 double 型 数据 和 字符 串 类 型 。 在 cell 结构 中 可 以 包括 字符 串 、double 型 
数据 以 及 cell 结构 。cell 结构 也 可 以 有 行 数 和 列 数 。 下 面 来 介绍 cell 结构 的 定义 和 相关 函数 。 

用 户 可 以 使 用 3 种 办 法 来 建立 一 个 cell 结构 第 一 个 办 法 是 使 用 大 括号 “{}"， 用 户 可 以 像 使 
用 方 括号 那样 来 定义 向 量 和 矩阵 ; 第 二 种 办 法 是 对 cell 结构 的 元 素 逐 一 赋值 ; 第 三 种 办 法 是 用 函数 
cell 来 建立 一 个 空 的 cell 结构 。 

例 2-22: cell 函数 的 应 用 。 


有 = {'RBC' IILI1 2hang',1I2，'Liu'y{fll ,Hello'}} 
B = {]， 
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Bf{1,1)} ! KK 7 
B{f2,1)} 121; 
Bf1l,2}】 = !HIT' 
C = cell(2,3) 


输出 如 下 : 
及 = 'RABC'， [11] 'Zhang' [12] "iu {1x2 cell1)} 
B = “KK HIT 
[121] [] 
C = [] [] [] 


cell 结构 中 元 素 可 以 用 A{fm,nj ，A(m,m) 这 样 的 方式 来 调用 ， 它 们 的 不 同 之 处 在 于 : A{fm,n} 得 
到 结果 的 类 型 为 元 素 自 身 的 类 型 ，A(m,n) 的 数据 类 型 为 cell 结构 。 前 面 介 绍 了 cell 结构 的 定义 ， 下 
面 来 介绍 MATLAB 提供 的 cell 结构 相关 函数 的 用 法 。 


2.3.1 图 形 化 表示 cell 的 内 容 
函数 cellplot 可 以 画 出 一 个 图 形 来 示意 cell 中 的 内 容 ， 其 调用 格式 为 : 


cellplot(C) 


参数 说 明 : C 为 一 个 cell 结构 。 
例 2-23: cellplot 画图 。 


D = {'ABC',magic(2),{1:3，'DEF')}}， 
cellplot (D) 


执行 上 述 语句 后 会 弹出 如 图 2.1 所 示 的 界面 。 图 中 橙色 表示 字符 串 ， 红色 表示 double 型 数据 。 
顺序 和 结构 与 cell 结构 中 的 内 容 一 致 
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图 2.1 函数 cellplot 得 到 的 图 形 


2.3.2 ”检查 变量 是 否 为 cell 结构 
函数 iscell 可 以 用 来 检查 变量 是 否 为 cell 结构 ， 其 调用 格式 为 : 
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TF = iscell(C)， 

参数 说 明 : TF 是 返回 的 判断 结果 。C 代表 一 个 变量 名 。 当 C 是 cell 结构 时 ，TF 等 于 1， 否则 
TF 等 于 0。 

例 2-24: 检查 变量 是 否 为 cell 结构 。 
Dc = {'ABRA' magic(3)，'DEF') 1; 
TF1= iscell(Dc) 


TF2= iscell(Dpc(2)) 
TF3= iscel1l(Dc{2}) 


输出 为 : 
TE1 = 1 TF2 = 1 TE3 = 0 
本 例 中 定义 的 Dc 是 一 个 ce11 结构, 提取 其 第 二 项 需要 用 Dc(2) 来 表示 。 而 利用 Dcf2} 


5 帮 得 到 的 是 谍 阵 magic(3) 的 内 容 ， 它 的 数据 类 型 不 是 cel1， 因 此 函数 isce1ll 判断 的 结 
果 为 0。 


2.4 结构 型 


在 结构 { struct ) 型 数据 中 ， 人 允许 用 户 把 不 同类 型 的 数据 保存 到 一 个 整体 单元 中 ( MATLAB 中 
称 之 为 “ 域 ”)o。 对 应 的 不 同 单元 使 用 一 个 名 字 来 记录 ， 用 户 可 以 根据 这 个 名 字 来 更 换 和 调用 其 中 的 
数据 。 下 面 是 建立 结构 体 的 例子 。 


St.D = magic(3) 
St.s = 'ABC'; 
St.c = {'aa'v1} 
输出 为 : 
SEE = 
D: [3x3 double] 
S: :ABC' 
c: {f'aa' [1]} 


用 户 还 可 以 用 函数 struct 来 建立 一 个 结构 体 ， 其 调用 格式 为 : 
S = Struct('fieldal',Vl，'field2' ,V2,，.:，.); 


参数 说 明 : S 是 返回 的 结构 体 。 输 入 参数 为 " 域 "的 名 称 (field1, field2，.… ) 以 及 对 应 的 值 ( V1， 
V2，,… )。 二 者 需要 同时 存在 ， 保 持 对 应 关系 。 
例 2-25: 结构 体 的 例子 。 


S = Struct('type',{'big'，'1ittle' jcolor'，'redG'，'x'f13 4}) 
输出 为 : 
纪 = 


1x2 Struct array with fields; 
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type 
Color 
基 


结构 体 中 的 内 容 需 要 按 下 面 的 方式 来 调用 ， 
Ss.type 


即 以 “结构 体 + 喜 点 + 域名 ”方式 来 写 各 个 域 。 在 命令 窗 中 输入 上 述 内 容 后 会 显示 : 


ans =big 
anS =1itt1le 


这 里 域 中 数据 根据 不 同类 型 把 每 个 元 素 逐 一 显示 出 来 。 我 们 可 以 用 函数 fieldnames 来 得 到 结 
构 体 中 的 域名 称 ， 其 调用 格式 如 下 : 
names = fieldnames(S); 

参数 说 明 : names 是 用 域名 称 组 成 的 一 个 cell 型 数据 。S 是 结构 体 的 名 称 。 

例 2-26: 获取 结构 体 中 的 域名 称 。 


s = Struct('strings',{f'hello','yes'}jl,'1lengths' [5 3]); 
names = fieldnames(s) 


输出 为 : 
names = 

'Strings' 

'1engths' 

用 户 还 可 以 调用 getfield 函数 来 获取 结构 体 中 各 个 域 的 内 容 ， 其 调用 格式 为 : 
F = getfield(S，'field')y; 


参数 说 明 : F 是 返回 域 中 的 内 容 。S 是 结构 体 名 称 。field 用 于 指定 域名 。 
例 2-27: 获取 结构 体 中 各 个 域 的 内 容 。 


SsS = Struct('strings',{t'Heilongjiang '，'Harbin'}jji'Llengths',[12 6]); 


G getfield(s,，'LIengths') 
输出 为 : 
G = 12 6 


结合 fieldnames 函数 ， 用 户 可 以 获取 不 同 域 的 内 容 。rmfield 函数 可 以 用 来 从 结构 体 中 删除 一 
个 域 ， 其 调用 格式 为 : 


S = rmfield(S, field') 


参数 说 明 : S 是 预 处 理 的 结构 体 的 名 称 。field 用 于 指定 要 删除 的 域名 称 。 
例 2-28: 从 结构 体 中 删除 一 个 域 。 


ss = Struct('Names'ff'Bill'，dJohnrjl，'Lengths' [4 4]); 
ss = rmtield{(ss，'1Lengths') 
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输出 为 : 
SS = Names: {"Bil1l' “John') 
函数 isstruct 可 以 用 来 判断 数据 是 否 为 结构 体 ， 其 调用 格式 为 : 
TF = isstruct(S) 


参数 说 明 : TF 是 返回 的 判断 结果 。S 是 输入 的 变量 名 。 
例 2-29: 判断 数据 是 否 为 结构 体 。 
8S1 = Struct ('Names' ,tf'2zZhang',，'Liu'}}l,，'1LIengths',， [5 3]); 


TPF1 isstruct (S1) 
TF1 isstruct (s1.1lengths) 


输出 为 : 


TF1 = 寺 TEF1 = 0 


2.5 8 位 整 型 数据 


无 符号 8 位 整 型 数据 的 范围 是 0~255， 数 字 图 像 的 像素 值 就 对 应 着 这 样 的 数据 类 型 。 在 6.5 
版 本 中 很 多 函数 不 支持 8 位 整 型 数据 的 运算 ， 使 用 时 需要 利用 函数 double 把 8 位 整 型 数据 转化 为 
双 精 度数 据 类 型 才能 计算 。 而 在 2008a 版 本 中 很 多 函数 支持 直接 对 8 位 整 型 数据 进行 计算 。 

8 位 整 型 数据 分 为 两 种 形式 ， 带 符号 的 8 位 整 型 数据 和 无 符号 的 8 位 整 型 数据 ， 读 者 可 以 
利用 函数 int8 和 uint8 把 双 精 度数 据 转 化 为 这 两 种 数据 格式 。 带 符号 的 8 位 整 型 数据 的 数据 范 
围 是 [-27,27-1]。 此 外 还 存在 着 16 位 、32 位 和 64 位 整 型 数据 ， 它 们 的 无 符号 数据 类 型 对 应 的 
最 小 值 是 0， 最 大 整数 数值 依次 是 : 216-1，232-1， 和 264-1;， 而 带 符号 的 整 型 数据 对 应 的 范围 依 
次 是 [-215,215-1]，[-231,23!-1] 和 [-2s3,26-1] 。 它 们 相应 的 转化 函数 是 int16, int32, int64，uint16， 
uint32 和 uint64， 其 中 以 8 位 整 型 数据 最 为 常用 。 在 下 一 节 将 介绍 整 型 数据 与 其 他 数据 类 型 之 
间 的 转化 关系 。 


2.6 不 同 数据 类 型 之 间 的 转化 


在 MATLAB 中 查看 数据 类 型 可 以 用 whos 和 class 函数 来 进行 。 在 命令 窗 中 输入 whos 后 可 以 
得 到 当前 workspace 里 面 的 所 有 变量 名 称 、 大 小 、 字 节 数 、 数 据 类 型 等 信息 ， 这 些 信 息 对 于 用 户 
编写 程序 和 调试 程序 很 重要 。 特 别 是 还 可 以 利用 函数 whos 来 查询 某 个 变量 的 属性 。 比 如 : 


whos Ss1 
这 里 s1 是 变量 名 ， 输 出 下 面 的 信息 : 


Name Size Bytes Class REttributes 
8S1 XI 400 struct 


如 果 用 whos 查询 一 个 不 存在 的 变量 ， 将 不 输出 任何 信息 。 利 用 class 函数 可 以 得 到 变量 的 类 
型 ， 即 whos 查询 结果 中 class 里 面 的 内 容 。 函 数 class 的 调用 格式 为 : 
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S = class(OBJ) ; 


参数 说 明 : S 是 返回 的 一 个 由 类 型 组 成 的 字符 串 。OBJ 是 变量 名 。 
下 面 给 出 数值 数据 类 型 转化 的 函数 及 用 法 说 明 ， 具 体 如 表 2.3 所 示 。 


表 2.3 数值 数据 类 型 转换 函数 


调用 格式 ”说明 调用 格式 说 明 

double(X) ”转化 为 双 精 度 型 浮 点 数 single(X) 转化 为 单 精度 浮 点 型 数据 
int8(X) 转化 为 带 符号 8 位 整 型 数据 uint8(X) 无 符号 8 位 整 型 数据 
int16(X) 转化 为 带 符号 16 位 整 型 数据 uint16(X) 转化 为 无 符号 16 位 整 型 数据 
int32(X) 转化 为 带 符号 32 位 整 型 数据 uint32(X) 转化 为 无 符号 32 位 整 型 数据 


int64(X) 转化 为 带 符号 64 位 整 型 数据 uint64(X) 转化 为 无 符号 64 位 整 型 数据 
double 型 数据 和 字符 串 之 间 可 以 用 num2str 和 str2num 来 转换 ， 如 : 


= num2str(6.8) 
= Str2num('3.6') 


输出 为 : 


S =6.8 
n =3.6000 


此 外 ， 字 符 串 变 量 还 可 以 与 double 型 数据 进行 混合 计算 ， 比 如 : 
D = 'S'-3.2 

输出 为 : 
D = 79.8000 


字符 串 减 0 还 可 以 实现 字符 串 到 double 型 数据 的 转换 , 如 'S '-0。 函 数 cellstr, char, cell2struct 
和 struct2cell 可 以 用 来 在 字符 串 、cell 结构 和 结构 体 之 间 进 行 转化 。 它 们 之 间 的 关系 可 以 用 图 2.2 


描述 。 
字符 串 
2 
2 AN 
结构 “一 cell2struct 结构 体 
9 =sStruct2cell 一 


图 2.2 3 种 数据 类 型 转化 函数 关系 图 
函数 cellstr 可 以 把 字符 串 转 化 为 cell 结构 ， 其 调用 格式 如 下 : 


C = cellstr(S)， 
参数 说 明 : C 是 转化 后 的 cell 结构 。S 是 字符 串 。 
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例 2-30: 将 字符 串 转 化 为 cell 结构 。 


SSs='sSSsSS ccc'1 
CS1 =Cellstr(ss) 


其 中 ，cs1 的 数据 类 型 是 cell。 
可 以 用 cell2struct 函数 把 cell 结构 转化 为 结构 体 ， 其 调用 格式 如 下 : 


S = cell2struct (C,fields,dim); 
参数 说 明 : S 是 转化 后 的 结构 体 。C 是 cell 结构 ，fields 用 于 指定 域名 称 。dim 用 于 指定 维 数 。 
下 面 是 调用 该 函数 的 例子 。 
CS2 = cel12struct (cs1,，'F1',2) 
函数 struct2cell 可 以 把 结构 体 转化 为 cell 结构 ， 其 调用 格式 为 : 
C = Struct2cel1l(S); 
参数 说 明 : C 是 转化 后 的 cell 结构 。S 是 结构 体 。 
例 2-31: 把 结构 体 转化 为 cell 结构 。 


Struct ('Scr',11)， 
Struct2cel1l1(S) 


输出 为 


C = [11] 


2.7 ”变量 与 常量 


前 面 介绍 了 一 些 数据 类 型 ， 本 节 来 介绍 变量 和 常量 。 变量 是 指 其 数值 在 数据 处 理 的 过 程 中 可 能 
会 发 生变 化 的 一 些 数据 量 名 称 ,而 常量 是 指 在 计算 过 程 中 数值 不 发 生变 化 的 量 。 前面 介绍 的 一 些 数 
据 类 型 都 可 以 认为 是 变量 ， 在 计算 中 变量 的 应 用 频率 高 于 常量 。 

如 果 不 声明 ，MATLAB 中 的 变量 是 局 部 变量 。 此 外 用 户 还 可 以 使 用 函数 global 来 定义 全 局 变 
量 ， 这 种 变量 可 以 用 于 不 同 函数 文件 ( 函数 文件 的 内 容 将 在 第 6 章 详 细 介绍 ) 之 间 的 传递 。 在 退 
出 MATLAB 或 者 使 用 函数 clear 清除 变量 之 前 ，global 定义 的 全 局 变量 起 作用 。 下 面 是 一 个 用 全 局 
变量 计算 阶乘 的 例子 。 


D 中 
下 站 


function Y = fracty7 
global N; 
Y=1， 
mn=N'; 
while n>17 
Y=Y*n? 
mn=n-I; 
enda 


把 上 述 程序 内 容 保 存 为 fract,m 文件 ， 然 后 在 命令 窗 中 输入 如 下 内 容 ， 
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Clear 
global Ni; 
N=4; 

Y = fract 


输出 为 : 
Y =24 

需要 注意 的 是 ， 在 使 用 全 局 变量 的 整个 过 程 中 不 能 改变 全 局 变量 的 值 ， 否 则 容易 出 错 。 这 种 形 
式 的 变量 已 经 不 提倡 使 用 , 用 户 可 以 把 需要 传递 的 变量 作为 函数 的 输入 参数 , 这 样 就 可 以 避免 使 用 
全 局 变量 了 。 

在 MATLAB 中 自 带 了 一 些 常量 ， 如 表 2.4 所 示 。 


表 2.4 MATLAB 自 带 常量 


常量 名 意义 常量 名 意义 

虚数 单位 j 虚数 单位 

inf 正 无 穷 大 -inf 负 无 穷 大 

pi 圆周 率 NaN 或 nan ” 非 数 。0/0，infinf 等 表达 式 所 得 结果 

eps 浮 点 数 的 相对 精度 ， 等 于 realmax 最 大 正 浮 点数 ， 等 于 1.7977e+308 

2.2204e-016 

realmin 最 小 浮 点 数 ， 等 于 2.2251e-308 ”intmin 最 小 整 型 数据 ， 等 于 -2147483648 

2.8 小 结 


本 章 主要 介绍 了 MATLAB 中 常用 数据 类 型 的 相关 知识 。 首 先 介绍 了 double 型 数据 的 相关 知识 ， 
包括 数据 显示 格式 控制 和 取 整 操作 等 ; 接 下 来 介绍 了 字符 串 数 据 类 型 的 相关 知识 , 包括 字符 串 的 定 
义 、 处 理 方面 的 一 些 函数 用 法 ; 然后 介绍 了 cell 结构 和 结构 体 ， 主 要 涉及 它们 的 定义 以 及 相关 函数 
的 用 法 ; 针对 介绍 的 数据 类 型 ， 描 述 了 不 同 数据 类 型 之 间 的 转换 函数 ， 熟 悉 这 些 内容 ， 用 户 可 以 灵 
活 地 建立 自己 的 程序 ， 最 后 介绍 了 MATLAB 中 的 变量 和 常量 ， 包 括 全 局 变量 和 一 些 常量 。 
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@ 向 量 的 定义 介绍 几 种 定义 向 量 的 方法 。 

人 向 量 运算 函数 给 出 与 向 量 运算 相关 的 函数 及 其 用 法 。 
9 集合 的 定义 及 相关 运算 介绍 6 个 集合 计算 函数 的 用 法 。 
@ 和 矩阵 生成 方法 ”介绍 定义 矩阵 的 方法 。 

人 特殊 矩阵 的 生成 ”给 出 一 些 生成 特殊 矩 阵 的 函数 。 

4 和 珑 阵 计算 的 基本 函数 介绍 与 矩阵 相关 的 函数 及 用 法 。 
@ 高 维 数组 介绍 高 维 数组 及 相关 的 函数 。 


MATLAB 是 一 种 以 矩阵 为 基本 元 素 的 科学 计算 语句 ， 大 多 数 函 数 都 是 支持 矩阵 变量 进行 计算 
的 。 本 章 将 介绍 向 量 和 矩阵 的 定义 与 基本 运算 。 熟 悉 这 些 知 识 ， 对 于 编写 MATLAB 程序 具有 重要 
意义 。 一 定 的 线性 代数 知识 对 于 理解 本 章 内 容 很 重要 , 此 外 一 些 高 等 数学 知识 也 可 以 帮助 掌握 和 应 
用 本 章 内 容 。 在 MATLAB 中 定义 向 量 和 矩阵 是 比较 简单 的 ， 不 必 像 一 些 高 级 计算 机 语言 那样 需要 
建立 一 个 宛 长 的 循环 结构 来 建立 矩阵 。 


3.1 向 量 的 定义 


在 MATLAB 中 ， 用 户 可 以 用 不 同方 式 来 定义 向 量 ， 本 节 将 详细 介绍 定义 向 量 的 方法 。 利 用 冒 
号 可 以 建立 等 间隔 的 向 量 ， 常 用 的 格式 有 以 下 3 种 ; 


v1 = 1:N; 外 格式 1 工 
Vv2 = xl:dx:x2: g% 格式 2 
V3 = x4:-dx:x3; #% 格式 3 


参数 说 明 : v1，v2，v3 是 返回 的 向 量 名 。 格 式 1 中 向 量 的 步 长 等 于 1， 向 量 v1 的 最 小 值 和 最 
大 值 分 别 是 1 和 N， 这 种 格式 常用 于 循环 指标 的 定义 。 格 式 2 中 设 定向 量 间隔 的 步 长 是 dx， 向 量 
v2 的 最 小 值 和 最 大 值 分 别 是 x1 和 x2。 格 式 3 中 向 量 的 步 长 等 于 -dx， 它 是 一 个 负数 ， 而 向 量 的 最 
大 值 和 最 小 值 分 别 是 x4 和 x3。 当 x1>x2 且 dx>0 ( 或 者 x4<x3 且 -dx<0 ) 时 ， 返 回 的 向 量 v2 ( 或 
者 v3 ) 是 一 个 空 矩 阵 。 所 有 返回 的 向 量 都 是 行 向 量 。 

例 3-1: 生成 向 量 。 
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V2 = 1.0000 1.1000 1.2000 1.3000 1.4000 1.5000 1.6000 1.7000 
1.8000 1.9000 2.0000 


在 vl 的 定义 中 步 长 缺 省 ， 这 时 步 长 等 于 1， 而 向 量 v2 的 生成 语句 中 ， 步 长 等 于 
说 明 和 


函数 linspace 可 以 生成 两 个 数 之 间 的 等 间隔 向 量 ， 其 调用 格式 如 下 : 


V1 = linspace(x1,x2) 1; gs 格式 1 
Vv2 = linspace(x1l,x2,N)7 #% 格式 2 

参数 说 明 : v{ 和 v2 是 返回 的 向 量 名 。 在 格式 1 中 ，x1 和 x2 是 向 量 的 两 个 端点 ， 向 量 元 素 个 
数 是 100。 在 格式 2 中 ，x{ 和 x2 表示 向 量 的 两 个 端点 ，N 用 于 指定 向 量 元 素 个 数 。 当 N 是 一 个 小 
数 的 时 候 ，MATLAB 将 把 N 进行 向 0 取 整 ， 即 fx(N); 当 N 是 负数 的 时 候 ， 返 回 的 向 量 v2 将 等 于 
xl。 同时 ，x1 和 x2 的 大 小 关系 任意 ，MATLAB 自动 调整 正 负 步 长 ，x1 作为 向 量 的 起 点 ，x2 作为 
向 量 的 终点 。 所 有 返回 的 向 量 都 是 行 向 量 。 

例 3-2: 生成 向 量 。 


Vv1=1linspace(1,2):; 
Vv2=1linspace(1,2,300); 
sl=sizel(vl) 
sS2=sijze(V2) 


输出 为 ， 
sl= 1 100 
s2= 1 300 


当 linspace 的 输入 参数 N 缺 省 时 ， 生 成 的 向 量 长 度 是 100， 读 者 在 使 用 的 时 候 还 
可 以 特别 指定 。 因 为 数据 较 多 ， 这 里 只 是 给 出 了 函数 size 计算 的 向 量 大 小 数值。 


函数 logspace 可 以 用 来 产生 一 个 对 数 向 量 ， 其 调用 格式 如 下 : 


v1 = logspace{(xl，x2) $% 格式 1 
v2 = log8space{(xl，x2，n); 格式 2 

参数 说 明 : v1 和 v2 是 返回 的 对 数 向 量 。x{ 和 x2 用 来 控制 端点 ， 返 回 向 量 的 两 个 端点 的 大 小 
为 100 和 102。 格 式 1 中 向 量 的 长 度 是 50。 格 式 2 中 的 n 用 于 指定 向 量 的 元 素 个 数 。 函 数 logspace 
的 计算 过 程 是 先 得 到 x1 和 x2 之 间 的 等 间距 向 量 ， 然 后 计算 10spacet 2m， 因 此 函数 logspace 得 
到 的 向 量 不 是 等 间距 的 ， 取 对 数 后 才 是 等 间距 的 。 
此 外 ， 还 可 以 利用 逗号 和 空格 符 来 分 开 向 量 元 素 。 
例 3-3: 用 逗号 和 空格 定义 向 量 。 


al = [1 2,3,441] 
a2= [53413] 
aa = [45,1 3,2] 


可 见 逗 号 和 空格 符 可 以 混合 使 用 。 函 数 randperm 可 以 用 于 产生 一 个 元 素 为 从 1 到 N 的 随机 自 
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然 数 序列 ， 其 调用 格式 如 下 ， 


rand('state',S) 
V = randperm(N): 


参数 说 明 : S 用 于 设 定 随机 数 的 状态 ， 这 样 程序 每 次 执行 结果 都 是 一 样 的 ， 用 户 可 以 改变 S 
的 值 以 便 选 取 不 同 的 随机 数 。N 用 来 定义 随机 向 量 中 的 最 大 正 整 数 。 
例 3-4: 生成 随机 序列 。 


Fand('state',22) 
V = randperm(6) 


上 述 程序 将 输出 : 
本 5 6 2 3 4 

向 量 元 素 的 索引 可 以 用 下 面 的 形式 : v(m) 调 用 行 向 量 ( 或 者 列 向 量 ) 的 第 n 个 元 素 , 或 者 vtn,1) 
调用 列 向 量 的 第 n 个 元 素 。v(n1:n2) 和 v(n1;n2,) 表 示 向 量 v 的 第 n1 个 元 素 和 第 n2 个 元 素 组 成 的 
向 量 ， 当 n1<n2 时 ，v(n1:n2) 和 v(nt;n2,1) 是 一 个 空 矩 阵 。 此 外 ， 结 果 v(s) 可 以 调用 s 位 置 处 的 向 
量 元 素 ， 这 里 s 是 一 个 由 位 置 索引 组 成 的 向 量 。 


3.2 向 量 运算 函数 
本 节 介绍 与 向 量 计算 相关 的 一 些 MATLAB 函数 。 


3.2.1 判断 矩阵 是 否 为 向 量 

函数 isvector 可 以 用 来 判断 一 个 矩阵 是 否 为 向 量 ， 其 调用 格式 为 : 
Z = isVvector(v) 也 

参数 说 明 : v 可 以 是 数 、 向 量 以 及 和 矩阵 。r 是 返回 的 判断 结果 。 当 v 是 数 和 向 量 ( 包含 行 向 量 
和 列 向 量 ) 时 ，r 等 于 1， 当 v 是 一 个 短 阵 时 ,，r 等 于 0。 这 里 v 可 以 是 double 型 数据 、 字 符 串 以 
及 符号 变量 。 ， 

例 3-5: 函数 isvector 的 应 用 。 
A=magic(4) 7 
B=[1,1.2,2,3x3]7 


cl=isVvector{(R) 
c2=iSsVvector (B) 


输出 为 ， 

Cl = 

cG2 -= 1 

这 里 A 是 炬 阵 而 B 是 向 量 ， 函 数 jsyector 分 别 用 返回 值 0 和 1 表示 A 和 B 是 否 为 
次 明 及 
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3.2.2 向量 的 长 度 
函数 length 可 以 用 来 计算 向 量 的 长 度 ， 其 调用 格式 为 : 
LDL = length(x); 


参数 说 明 :; L 为 返回 的 向 量 长 度 。x 是 输入 的 向 量 或 者 矩阵 。 当 x 是 一 个 非 空 矩阵 的 时 候 ，L 
等 于 矩阵 的 行 数 和 列 数 的 最 大 值 ， 如 果 x 是 空 和 矩阵 , 上 等 于 0。 
例 3-6: length 函数 的 应 用 。 
A=125; 
B=[1,1,272,3,3]7 
cl=length (ARA) 
cC2=1ength(B) 
输出 为 : 
Cl1L = 5 C2 = 3 
这 里 A 是 一 个 含 5 个 元 素 的 向 量 ， 函 数 length 返回 了 它 的 长 度 ; 而 B 是 一 个 2x3 
的 红 阵 ， 此 时 ength 返回 了 行 数 和 列 数 的 最 大 值 。 


3.2.3 ”向量 的 外 积 
函数 cross 可 以 用 来 计算 向 量 的 外 积 ， 其 调用 格式 为 : 


C = crogss (arb):; 


参数 说 明 : c 是 返回 的 外 积 结果 。a 和 b 要 求 有 相同 的 行 数 和 列 数 ， 当 它们 的 行 数 或 者 列 数 等 
于 3 时 才 可 以 进行 计算 。 
例 3-7: 计算 向 量 的 外 积 。 


cl = Cross{(1:3,3:5) 


rand('state'y2)); % 设置 随机 数 的 状态 
c2 = cross(rand(3,4) ,rand(3,4)) 
上 述 语句 所 得 结果 如 下 ; 
C1L = -2 4 = 
C2 = 0.1424 -0.0651 -0.0858 0.1099 


-0.4693 0.0951 0.5239 0.1628 
0.0900 0.1895 -0.0513 -0.2941 


这 里 cl 是 向 量 外 积 结果 ，Cc2 给 出 的 是 各 列 分 别 进 行 外 积 计算 的 结果 。 


3.2.4 向量 的 内 积 
函数 dot 可 以 用 来 计算 向 量 的 内 积 ， 其 调用 格式 为 : 
C = dot(A,B)1; 
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c = dot(RA,B,dim) ; 


参数 说 明 : c 是 返回 的 内 积 结 果 。A 和 B 是 输入 的 向 量 或 者 矩阵 ， 它 们 要 求 有 相同 的 行 数 和 列 
数 。dim 用 于 指定 内 积 计算 的 维 数 。 当 dim 等 于 1 时 对 开 阵 的 列 向 量 进 行内 积 计 算 , dim 默认 为 1; 
当 dim 等 于 2 时 ， 对 竹 阵 的 行 向 量 进行 计算 。 

例 3-8: 下 面 是 调用 函数 dot 的 例子 。 
rand('state',12)}; sg 设置 随机 数 的 状态 
有 = rand(2,4) 
B = ranQ(2,4); 


cl = dot(R,B) 
c2 = dot(A,B,2) 


输出 结果 为 ， 

cl = 0.7589 0.6528 ”0.0764 1.1862 
c2 = 0.9828 
1.6915 


cl1 和 c2 分 别 是 对 列 向 量 和 行 向 量 计 算 内 积 的 结果 。 


3.2.5 求解 线性 趋势 项 
函数 detrend 用 快速 傅 里 叶 算 法 ( FFT ) 去 除 向 量 中 的 线性 趋势 项 ， 其 调用 格式 如 下 ， 


Yy = detrend(x); 当 格式 1 
Y = detrend(x,'constant '); g 格式 2 
yY = detrend(x, ,linear',bp); g% 格式 3 


参数 说 明 : y 是 返回 的 结果 。x 是 输入 的 向 量 。 在 格式 2 中 ，constant 用 于 指定 去 除 的 量 是 向 
量 的 均值 ， 当 x 是 矩阵 的 时 候 ， 去 除 的 是 各 个 列 向 量 的 均值 。 在 格式 3 中 ， 可 以 去 除 连 续 分 段 线性 
趋势 项 。 

例 3-9: 下 面 是 求解 线性 趋势 项 的 例子 。 

有 = [1,2,5,4]; 


B1 = detrend(RA) 
B2 = detrend(，'Constant ') 


B3 detrend(a,，' linear' ,2) 
输出 结果 为 : 
BL = -0.2000 -0.4000 1.4000 -0.8000 
B2 = -2 -1 2 1 
B3 = 0.0000 -0.6667 1.3333 -0.6667 


这里 给 出 3 各 不 同形 式 过 项 去 除 的 结果 : B1 是 直接 去 除 元 势 项 的 结果 ; B2 是 以 
CE 有。 党 数 3 去 除 趋势 项 的 结果 ; B3 是 进行 分 段 去 除 趋势 项 的 结果 。 
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3.2.6， 反 转向 量 顺序 
函数 wrev 可 以 反 转 一 个 向 量 的 顺序 ， 其 调用 格式 为 ， 
y = WIFIeV(X) ， 


参数 说 明 : y 是 反 转 后 的 向 量 。x 是 输入 的 向 量 。 当 x 是 一 个 向 量 时 , x 和 y 的 行 数 和 列 数 相等 
当 x 是 一 个 和 矩阵 时 ，y 是 一 个 向 量 。 

例 3-10: 下 面 是 调用 函数 wrev 的 例子 。 
Yl1 = wrev(1:4) 


x = magict(3) 
Y2 = WFeV(X) 


输出 如 下 : 
YL1 = 全 3 2 1 
X = 8 1 6 
3 5 了 
入 9 2 
Y2 = 2 可 6 9 - 工 和 3 8 


用 户 可 以 对 比 输入 和 输出 的 顺序 来 理解 wrev 函数 的 用 法 。 可 以 用 sort 来 排列 向 量 中 元 素 的 大 
小 顺序 , 输出 结果 是 按 从 大 到 小 或 者 从 小 到 大 的 顺序 , 同时 这 个 函数 也 可 以 对 答 阵 各 行 或 者 各 列 元 
素 的 大 小 顺序 进行 排列 。 该 函数 的 调用 格式 为 : 
Y = Sort (X): 
Y = Sort(x,dim)， 
[y,IXx] = sort(x,Gim,mode) 

参数 说 明 :; y 是 输出 的 排序 结果 。lx 用 来 记录 排序 前 后 的 位 置 关系 。x 是 输入 的 向 量 或 者 矩阵 。 
dim 用 于 指定 对 行 向 量 或 者 列 向 量 进 行 排序 。 当 dim=1 时 ， 对 列 向 量 进行 排序 ; 当 dim=2 时 ， 对 
行 向 量 进 行 排序 。 参 数 mode 用 来 指定 输出 结果 的 大 小 顺序 。 当 mode='descend 时 ， 输 出 y 中 元 
素 的 顺序 是 从 大 到 小 ; 当 mode='ascend 时 ， 输 出 y 中 元 素 是 从 小 到 大 ， 此 为 mode 参数 的 默认 
值 。 

例 3-11: 下 面 是 调用 sort 函数 进行 排序 的 例子 。 


aa = [3,2,1,2v 3]17 

RAR = magic(3) 7， 

Y1 = Sort(a) 

[y2,I2] = sort{(a,2，'descend') 
[y3,I3] = Sort (ARA,2) 


[y4,I4] sort (RAR,2，'descend' ) 
输出 结果 如 下 
yY 王 = 1 2 2  ， 站 Y4 = 
Y2i -= 3 3 ; 2 1 8 6 1 
I2 .= 5 2 4 3 了 5 3 
y3 = 1 6 8 9 和 2 
3 5 7 工 4 
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I3 = 


FID ND 


信心 
MD w ID 
IN 
六 
Lu 


这 里 给 出 了 对 向 量 和 和 仑 阵 进 行 排 序 的 结果 ， 其 中 I2，I3 和 I4 是 相应 的 排序 序号 。 


对 于 descend 模式 ， 可 以 利用 下 面 的 形式 进行 等 价 转换 ， 如 y = sortla,2,descend) 可 以 另 写 
为 yY= fplrfsort(a,2)， 而 y = 仙 pud(sort(a,1)) 表 示 在 竖 直 方向 从 上 到 下 按 由 小 到 大 排列 。 


3.3 ”集合 的 定义 及 相关 运算 
本 节 介绍 与 集合 运算 相关 的 几 个 函数 ， 包 括 常见 的 交集 、 差 集 、 并 集 等 。 


3.3.1 集合 的 交集 
函数 intersect 可 以 计算 集合 的 交集 ， 其 调用 格式 为 ， 


cl = intersect(a,b): g 格式 1 
c2 = intersect(avrb,'rows'):; g 格式 2 
[c3，Ia，Ib] = intersect(a,b); g 格式 3 
[c4，Ia，Ib] = intersect{ta,b，'rows'); 格式 4 


参数 说 明 : c1，c2，c3，c4 是 返回 的 交集 结果 。a 和 b 是 输入 的 向 量 或 者 矩阵 。 在 格式 1 中 ， 
a 和 b 要 求 是 向 量 ， 它 们 的 元 素 个 数 可 以 不 等 。 在 格式 2 中 ，a 和 bb 是 矩阵， 它们 的 列 数 要 求 相等 
但 行 数 可 以 不 等 ， 此 时 寻找 a 和 bb 相同 的 行 向 量 。la 和 lb 分 别 是 向 量 中 相同 元 素 的 位 置 或 者 是 相 
同行 向 量 的 位 置 ， 用 户 可 以 用 索引 allal ，b(lb) ，alla,:)，bllb,:) 来 调用 这 些 相同 的 元 素 或 者 行 向 量 。 
例 3-12: 下 面 的 4 个 例子 分 别 对 应 上 面 4 种 格式 。 


a = [1,2,3,4];  s% 对 输入 向 量 赋值 

b = [5,6,3,2];  % 对 输入 向 量 赋值 

RAR = [1,2;3,4;3,6]; % 对 输入 矩阵 赋值 

B = [1,3;1,2;3,4]; % 对 输入 和 矩阵 赋值 

cl = intersect(a,b) g% 计算 两 个 向 量 的 交集 


c2 intersect (ARvB,，'zrows') $% 计算 两 个 矩阵 中 行 向 量 的 交集 
[c3,Ial,Ibl] = intersect(a,b) $% 返回 交集 结果 和 交集 元 素 对 应 的 位 置 
[c4, Ia2,Ib2] = intersect(RA,B,'zows') # 返回 交集 结果 和 交集 元 素 对 应 的 位 置 


上 述 语 句 运行 结果 如 下 : 


ClL = 2 站 c4 = 1 2 

cC2 = 1 2 3 4 
3 4 Ia2 = 1 

c3 = 2 3 2 

Ial = 2 3 Ib2 = 2 

Ib1l = 入 3 3 
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读者 可 以 比较 交集 结果 和 交集 的 位 置 以 理解 该 函数 的 用 法 。 


3.3.2 ”集合 中 元 素 的 判断 
函数 jsmember 可 以 用 来 判断 一 个 数 或 者 行 向 量 是 否 为 集合 中 的 元 素 ， 其 调用 格式 为 : 


= ismember(a,s) s 格式 1 
rz = ismembezr (as，'IOWS ') ; # 格式 2 

参数 说 明 : 是 返回 的 判断 结果 。 在 格式 1 中，a 是 数 ，s 是 一 个 向 量 或 者 和 矩 阵 。 在 格式 2 中 ， 
a 是 一 个 向 量 或 者 矩阵 ，r 和 a 具有 相同 的 行 数 和 列 数 。 如 果 向 量 或 者 短 阵 s 中 存在 a 中 的 元 素 ， 
那么 对 应 输出 为 1， 否 则 为 0。 
例 3-13: 调用 函数 ismembero 


] 


al = 1; g% 对 变量 赋值 
R = 1:4; g 对 变量 赋值 
M = magic(3) g% 生成 一 个 和 矩 阵 


a2 = [10,0;8,4];  # 生成 2 行 2 列 和 矩阵 
rl = ismember(al,A)， s% 判断 是 否 为 集合 中 的 元 素 
r2 = ismember(al,M) % 判断 是 否 为 集合 中 的 元 素 
r3 = ismember(a2,M) % 判断 是 否 为 集合 中 的 元 素 
执行 结果 如 下 : 
M= 8 1 6 z2 = 1 
3 5 7 r3 = 0 0 
4 9 2 1 1 
ZL1 = 1 


这 里 给 出 检查 一 个 数 是 否 为 数组 中 的 元 素 ， 以 及 检查 小 的 炬 阵 中 各 个 元 素 是 否 为 
局 数组 元 素 的 例子 ， 从 中 读者 可 以 体会 ismemiber 的 用 法 。 


3.3.3 两 个 集合 的 差 集 
函数 setdiff 可 以 用 来 计算 两 个 集合 的 差 集 ， 其 调用 格式 如 下 ; 


s = Setdiff(a,b)y; g 格式 1 
s = setdiff(tayb, rows'); #s 格式 2 
[s，Ic] = setdiffta,b); s 格式 3 
[s，Ic] = setdiff(a,b,'rows'); g 格式 4 


参数 说 明 : s 是 返回 的 差 集结 果 。A 和 日 是 向 量 或 者 矩阵 ， 它 们 的 行 数 和 列 数 可 以 不 相等 。 


例 3-14: 调用 函数 setdiff。 
[1,2,3,4]， 

[4,5]7 

magic(3)7 
[1,2,373,5,7]; 
setdaiff(a,b) # 计算 差 集 


虽 四 呀 可 必 
和 HAN 
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C = setdiff(RA,B,'rows') % 对 行 向 量 计 算 差 集 
输出 结果 如 下 : 


工 2 3 


mn 
僵直 


全 澡 2 
8 工 6 


cC 和 [分 别 是 以 元 素 和 行 向 量 为 集合 单元 而 进行 的 差 集 计算 结 果 。 


3.3.4 ”集合 异 或 运算 
函数 setxor 可 以 运算 集合 异 或 ( 不 在 交集 中 的 元 素 )， 其 调用 格式 如 下 ; 


Xx = setxor(ayb)y; 当 格式 1 
x = setxor(a,b,'rows') 1 格式 2 
[x, Ia,Ib] = setxorta,b); g% 格式 3 
[x, Ia Ib] = Setxor(a,b,'rows'):; # 格式 4 


参数 说 明 : x 表示 返回 的 异 或 结果 。a 和 bb 是 向 量 或 者 短 阵 ( 在 格式 1 和 格式 3 中 ，a 和 bb 是 
向 量 ; 在 格式 2 和 格式 4 中 ，a 和 上 b 是 矩阵 ， 且 要 求 a 和 b 具有 相同 的 列 数 )。 la 和 Ib 是 向 量 元 素 
位 置 或 者 矩阵 行 位 置 。 

例 3-15: 调用 setxor 的 例子 


331 


已 三 

了 = 2345 
[21713475 6]7 
了 = [3 人 46]7 


xl = Betxot (ayDb) % 计算 集合 异 或 运算 

x2 = setxor(a,B, rows') $ 对 行 向 量 进 行 异 或 运算 

[x3,Ial,Ibll =- setxor(a,b) # 计算 集合 异 或 运算 ， 并 记录 位 置 
[x4a,Ia2,Ib2] = setxor(A,B, rows') 4 对 行 向 量 进行 异 或 运算 ， 并 记录 位 置 


上 述 程序 输出 如 下 ; 


X1.:= 工 此 X4 = 1 2 

2 1 2 1 厂 
T 6 5 6 
5 6 Ia2i 产 

殴 5 沁 I 下 1 

Ial: = 1 号 

Ibl = 3 Ib2 = 2 


上 述 例子 给 出 了 以 元 素 和 行 向 量 为 集合 单元 时 相应 的 异 或 运算 过 程 的 演示 。 


3.3.5 集合 的 并 集 
函数 union 可 以 用 来 计算 两 个 集合 的 并 集 ， 其 调用 格式 如 下 ， 
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u = union (a,b): g% -格式 1 
u = union (abi rrows') 7 | % 格式 2 
[u, Ia,Ib] = union ab) 1 % 格式 3 


[uvIayIb] = union (ab rows1 ); % 格式 4 


参数 说 明 : U 表示 返回 的 异 或 结果 。a 和 b 是 向 量 或 者 矩阵 ( 在 格式 1 和 格式 3 中 ，a 和 b 是 
向 量 ; 在 格式 2 和 格式 4 中 , a 和 b 是 矩阵 ， 且 要 求 a 和 b 具有 相同 的 列 数 j la 和 lb 是 向 量 元 素 
位 置 或 者 矩阵 行 位 置 。 

例 3-16: 调用 union。 


13:27 

23:37 

[ 工 , 妆 8573 和 

B = [3,471,2713， 5]? 5 

[ul, Ial,Ibl] .= union(a,b) % 计算 并 集 

[u2, Ia2,Ib2] = union(RA,B, rzows') % 以 行 向 量 为 单元 计算 并 集 


忌 
P 
有 


相 外 相 


上 述 程 序 输出 如 下 : 

ul = 1 2 3 了 3 Ia2 = 2 
Ial = 攻 ITb2 = .2 
Ibl = 工 2 1 
u2 = 革 2 3 

3 4 

， 么 

有 3 


上 述 例子 给 出 了 以 元 素 和 行 向 量 为 单元 时 相应 的 集合 之 间 并 集 计 算 过 程 。 


3.3.6， 去 除 重复 的 元 素 


函数 unique 可 以 返回 一 个 没有 重复 元 素 的 向 量 ( 去 掉 其 中 相同 的 元 素 ) 同时 这 个 函数 也 可 以 
处 理 矩 阵 的 行 向 量 ， 其 调用 格式 如 下 ， 


u = uniquel(a) g 格式 1 
u = unidue(a, rows') 7 #% 格式 2 
[um,n] = uniaue(...); g 格式 3 


参数 说 明 : U 是 返回 的 处 理 结 果 。 当 输入 用 参数 rows 指定 时 ， 将 去 掉 相 同 的 行 向 量 ， 同 时 返 
回 的 U 是 一 个 矩阵 。 当 Uu 是 一 个 向 量 的 时 候 ，u 中 元 素 按 从 小 到 大 的 顺序 排列 ; 当 U 是 按 第 一 列 元 
素 从 小 到 大 排列 时 ， 如 果 第 一 列 元 素 相 等 ， 将 参考 对 应 的 第 二 列 元 素 的 大 小 关系 。a 是 输入 的 元 素 
或 者 向 量 。 当 a 是 和 矩阵 且 不 指定 参数 rows 的 时 候 ， 返 回 的 U 是 一 个 列 向 量 ， 并 去 掉 了 和 玫 阵 中 相同 
的 元 素 ， 此 时 相当 于 执行 u=unique(a(])。 参 数 m 用 于 指定 向 量 u 中 各 个 元 素 在 向 量 a 中 的 位 置 ， 
这 里 给 出 的 是 a 中 最 后 出 现 该 元 素 的 位 置 。 参 数 n 用 于 指定 向 量 a 中 各 个 元 素 在 向 量 u 中 的 位 置 。 
对 于 a 是 矩阵 的 情况 ，m 和 nm 是 指 对 应 行 向 量 的 位 置 。 

例 3-17: 调用 unique 函数 。 


吧 见 
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ul = unique(a) #% 删 去 向 量 中 的 重复 元 素 

u2 = unique(a，'rows') 删 去 矩阵 中 重复 的 行 向 量 

[ru3,m3,n3] = unique(a) % 删 去 向 量 中 的 重复 元 素 ， 并 记录 元 素 对 应 的 位 置 
[u4,m4,n4] = uniaue(A, 'rows') # 删 去 矩阵 中 重复 的 行 向 量 ， 并 记录 元 素 对 应 的 位 置 


输出 结果 如 下 : 


ul 工 2 ， md4 = 

uU2 = 2 3 
3 入 2 

3 = 工 2 3 n4 = ” 

m3 = 3 4 5 1 

DP3 >= 和 2 二 号 3 2 

U4 = 工 2 1 
3 中 


这 里 以 元 素 和 行 向 量 为 单位 进行 去 除 重复 集合 单元 删除 的 演示 ， 读者 可 以 借助 例 
说 明 子 理解 函数 unique 的 用 法 。 


3.4 和 矩阵 生成 方法 


前 面 介绍 了 向 量 的 生成 及 相关 的 计算 函数 ， 本 节 来 介绍 矩阵 的 生成 方法 。 在 MATLAB 中 矩 阵 
的 生成 可 以 通过 直接 赋值 和 由 特殊 函数 生成 矩阵 等 方法 。 

前 面 介绍 了 利用 逗号 和 空格 符 可 以 分 隔 向 最 的 元 素 , 在 矩阵 的 定义 中 ,要 用 分 号 来 分 隔行 向 量 。 

例 3-18: 短 阵 生成 的 例子 。 


RA = [1,2,374,5,6?7,8,9] 


输出 如 下 ， 
及 

1 2 3 

4 1 6 

7 8 9 

对 于 含有 较 多 元 素 的 矩阵 ， 上 述 方法 将 是 非常 烦琐 的 。 用 户 可 以 查看 其 中 的 规律 ,使 用 特殊 函 
数 或 者 循环 结构 来 建立 矩阵 。 

例 3-19: 利用 向 量 和 和 天 阵 来 组 成 新 的 和 矩阵。 
AL = [1,27314,5,677;18,9]; 
RA2 = [0;0;0]7 
RAR3 = magic(3) 
aA4 = [0,0;0]: 
Cl = [RAR1,RA2,aA3] 
C2 = [AlL7RA4] 

输出 如 下 : 
Cl1L = C2 = 

1 2 3 0 8 下 6 工 2 3 

4 5 56 0 3 5 7 入 5 6 

了 8 9 0 4 9 2 8 9 

0 0 0 


是 必 梧 司 第 访 章 向 量 与 矩阵 运算 


常用 的 矩阵 元 素 索引 方式 如 表 3.1 所 示 。 
表 3.1 和 珑 阵 元 素 索引 方式 


语法 格式 说 明 

Atmnm) 调用 和 阵 A 中 m 行 n 列 位 置 处 的 矩阵 元 素 

Am 调用 珑 阵 A 中 第 m 行 所 有 元 素 

A(:,m) 调用 甜 阵 A 中 第 n 列 所 有 元 素 

Alm,nl:n2) 调用 和 矩阵 A 中 m 行 元 素 第 n1 列 到 第 n2 列 之 间 的 所 有 元 素 


Altm1:m2,n 调用 甜 阵 A 中 n 列 元 素 第 m1 行 和 第 m2 行 之 间 的 所 有 元 素 


其 中 n1:n2 和 mt:m2 还 可 以 用 用 户 自己 定义 的 向 量 s 来 替换 ，s 是 一 个 由 位 置 索引 组 成 的 向 
量 。 此 外 ， 读 者 可 以 通过 格式 AIm，n':end) 对 第 m 行 中 第 n 列 元 素 至 最 后 一 个 元 素 进行 操作 。 而 
Alm, niend-n0) 也 是 合法 的 语句 ， 表 示 第 m 行 中 从 第 n 列 开始 至 倒数 第 n0+1 个 元 素 。 通 过 以 上 介 
绍 的 方法 ， 读 者 就 可 以 对 短 阵 进行 定义 以 及 相关 的 操作 了 。 





3.5 ”特殊 矩阵 的 生成 


在 MATLAB 中 可 以 用 语句 “A = [];” 来 定义 一 个 空 矩 阵 。 函 数 meshgrid 可 以 用 向 量 生 成 新 矩 
阵 的 各 行 各 列 ， 其 调用 格式 为 : 


[X,Y] = meshgriaQ(x); 
[X,Y] = meshgriaQ(x,Yy); 


参数 说 明 : x 和 y 是 向 量 。X 和 Y 是 生成 的 矩阵 。 
例 3-20: 下 面 是 调用 该 函数 的 例子 。 


X=1337 
yz1:4; 
[Xl1,Y1] = meshgriQ(x) 
[X2,Y2] = meshgridG(x,y) 
输出 如 下 : 
X1 = X2 
贡 2 怠 1 2 3 
工 2 3 1 2 3 
1 2 3 二 2 3 
YL = 工 2 
工 1 工 Y2- = 
2 2 2 生 1 I 
3 3 3 2 2 2 
3 3 3 
入 和 4 羡 


可 见 X1 和 X2 的 各 行 都 一 样 ，Y1 和 Y2 的 各 列 都 一 样 。 因 此 函数 meshgrid 可 以 用 于 三 维 绘图 
中 XY 坐标 的 生成 ， 此 外 也 可 以 用 于 一 些 二 元 函数 的 定义 而 省 去 循环 结构 。 一 些 特殊 矩阵 生成 函数 
的 用 法 如 表 3.2 所 示 。 
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表 3.2 ”特殊 佐 阵 生成 函数 表 
调用 格式 说 明 





ones(nj, ones(tm,m, ones(m,n,p，…) 生成 全 1 矩阵 或 者 高 维 数组 
zeros(n), zeros(m,n), zeros(tm,n,p，) 生成 全 0 矩阵 或 者 高 维 数组 
eye(n), eyetmnm) 生成 单位 矩阵 ，m 和 mn 不 等 时 ， 主 对 角 元 素 等 于 1 
compan(p) 返回 向 量 的 伴随 矩阵 
[out1,out2…] = gallery(matname, p1, p2, ..) 生成 测试 矩阵 

hadamard(m) 生成 哈达 马 得 矩阵 

hankel(Cj, hankel(C,R) 生成 汉 克 尔 德 阵 

hilb(n) 生成 希 尔 波 特 和 矩阵 
invhilb(m) 生成 逆 希 尔 波 特 矩 阵 
magicln) 生成 魔方 阵 

pascalfn) 生成 帕斯卡 矩阵 
toeplitz(C,R), toeplitz(R) 生成 托 普 利 茨 矩 阵 
wilkinson(n) 生成 维尔 金森 特征 值 测试 矩阵 


vander(y) 生成 范 德 蒙 矩 阵 
3.6 移 阵 计算 的 基本 函数 


本 节 介 绍 与 矩阵 密切 相关 的 函数 ， 如 行 数 和 列 数 的 计算 、 整 形 、 对 角 和 矩阵 、 旋 转 和 移动 等 。 下 
面具 体 介 绍 这 些 内 容 。 


3.6.1 大 小 及 索引 问题 


本 小 节 介绍 矩阵 大 小 计算 和 索引 方面 的 知识 。 有 了 这 些 知 识 , 我 们 就 可 以 更 好 地 对 和 矩阵 进行 相 
关 计 算 了 。 


3.6.11 求解 矩阵 的 行 数 和 列 数 
函数 size 可 以 用 来 计算 矩阵 的 行 数 和 列 数 ， 其 调用 格式 如 下 : 


D = size(a) 
[D1,D2] = size() 
Dn = Size(A,dim) 


参数 说 明 : D 是 返回 的 一 个 行 向 量 ， 表 示 和 矩阵 的 行 数 和 列 数 数据 。D1 和 D2 分 别 是 矩阵 的 行 
数 和 列 数 。Dn 是 指定 维 数 dim 对 应 的 数据 ， 当 dim=1 时 返回 行 数 ， 当 dim=2 时 返回 列 数 。 
例 3-21: 求解 矩阵 的 行 数 和 列 数 。 


A=TfLt7r2，4767172] 
[ml=sizel(aA) 
m=Sizelt(Ry1) 
n=Sizet(A,2) 


输出 为 : 


了 2 
3 
2 


妆 
外 甘 炸 
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Pmn = 3 


这 里 年 和 分 别 是 矩阵 A 的 行 数 和 列 数 。 


3.6.1.2 ” 甜 阵 所 有 元 素 的 个 数 
函数 numel 可 以 用 来 计算 矩 阵 所 有 元 素 的 个 数 ， 其 调用 格式 如 下 : 
= numel(RA) 


参数 说 明 : N 是 返回 的 元 素 总 数 。A 是 输入 的 和 矩阵。 语句 numel(A) 和 prod(size(A)) 等 价 。 当 A 
是 向 量 时 ，numel 的 作用 和 length 一 样 。 
例 3-22: 计算 和 矩阵 所 有 元 素 的 个 数 。 


R=[1,2,476,1,2]; 
N=numel (A) 


输出 为 : 


N = 6 


返回 N 的 数值 正好 等 于 托 阵 A 中 元 素 的 总 数 。 


3.6.1:3 不 同 索引 格式 的 转换 
函数 ind2sub 和 sub2ind 可 以 在 单一 索引 和 脚 标 索引 之 间 转 化 ， 它 们 的 调用 格式 为 ， 


[m,n] = ind2sub(siz,Ind):; 
Ind = Sub2ind(siz,m,Pn) 

参数 说 明 : m 和 n 分 别 指 行 和 列 位 置 对 应 的 向 量 。siz 是 由 和 矩阵 行 数 和 列 数组 成 的 1x 2 的 向 
量 。Ind 是 由 单一 索引 组 成 的 向 量 。 

例 3-23: 和 矩阵 M=magic(3) 的 不 同 索引 方式 。 


8 和 6 
3 5 学 
人 9 2 


通过 M(2,3) 和 M(8) 用 户 都 可 以 得 到 元 素 7。 
例 3-24: 通过 函数 ind2sub 和 sub2ind 实现 两 种 索引 方式 的 转化 。 


[m,n] = ind2sub([3,3], [7,8]) 
ind = sub2ind([3,3], [1,2],[3,3]) 


输出 如 下 : 
贡 = 1 2 了 = < inad = 伙 8 
通过 下 面 的 例子 来 说 明 这 两 种 索引 方式 的 差别 。 
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M1 = Zeros(4); 

M2 = zeros(4) 

了 = [1:2,4]， 

Rs [1:2,4]; 

Ind = Sub2inda([4,4] ,mn) ， 
MI1 (m, 了 P) =1 

M2 (Ind) =1 


输出 如 下 ， 


M1 = M2 = 


HP 口 上 
口上 睛 
口 口 口 口 
hb 口 F 呈 
口 口 口上 
口 口 喇 口 
口 口 口 口 
PP 口 口 口 


可 见 这 两 种 索引 方式 得 到 了 不 同 的 结果 。M1 中 指定 行列 的 所 有 元 素 都 变 成 1， 而 M2 中 只 是 
主 对 角 上 的 3 个 元 素 变 为 1。 这 个 结果 用 户 在 使 用 过 程 中 需要 注意 一 下 ， 不 要 混用 。 


3.6.2 ”和 矩阵 整形 


有 时 为 了 某 种 需要 , 需要 改变 德 阵 的 行 数 和 列 数 。 本 小 节 就 来 具体 介绍 几 种 函数 改变 矩阵 的 行 
数 和 列 数 。 
3.6.2.1 改变 矩阵 的 行 数 和 列 数 
函数 reshape 可 以 用 来 改变 矩阵 的 行 数 和 列 数 , 但 是 不 改变 矩阵 的 元 素 值 和 数目 , 其 调用 格式 
如 下 ， 


Y = reshape(X,M,N); g 格式 1 
Y = reshape(X,M,N,P,...); % 格式 2 


参数 说 明 : Y 是 整形 后 的 矩阵 。X 是 输入 和 矩阵。 在 格式 1 中 , M 和 N 分 别 是 矩阵 的 行 数 和 列 数 。 
利用 格式 2 用 户 可 以 把 X 整形 为 高 维 数组 。 
例 3-25: 调用 函数 reshape 的 例子 。 


X = [1,2,3;4,5,617,8,9;10,11,12] 
Y = reshape(X,2,6) 


输出 如 下 ， 
X = 
1 2 3 
4 5 6 Y = 
7 8 9 了 2 8 3 9 
10 11 12 在 10 5 11 6 12 


对 比 X 和 Y 的 数字 对 应 关系 ， 可 以 发 现 reshape 函数 是 逐 列 把 X 中 的 元 素 摆 放 到 和 阵 Y 中 。 
这 个 顺序 在 使 用 中 用 户 需要 注意 ， 否 则 会 引起 不 必要 的 麻烦 。 
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让 8B = reshape(AN1) 可 以 简单 地 写 为 B=A(:)。 


3.6.2.2 连接 两 个 矩阵 
函数 cat 可 以 用 来 连接 两 个 矩阵 ， 但 不 改变 矩阵 元 素 的 相对 位 置 和 数值 ， 其 调用 格式 为 ， 
C = cattdim,A,B)， 


参数 说 明 :C 是 组 合 的 矩阵 。A 和 昌 B 是 输入 短 阵 odim 用 于 指定 行 或 者 列 。 当 dim=1 时 ,cat(1,A,B) 
等 价 于 [A;B], 此 时 要 求 A 和 B 具有 相同 的 列 数 , 可 用 函数 vertcat 来 实现 ; 当 dim=2 时 , cat(2,A,B) 
等 价 于 [A,B]， 此 时 要 求 A 和 日 具有 相同 的 行 数 ， 可 用 函数 horzcat 来 实现 。 

例 3-26: 连接 两 个 短 阵 。 


有 A = magic(2) 
B = [1,2;3,4] 


Cl1 = cat(1,RA,B) 
C2 = cat(2,RA,B) 

输出 如 下 
及 = 1 | 

1 3 生 2 

昌 2 工 2 
B = 3 和 

1 2 C2 = 

3 4 1 包 1 2 
C1 = 4 2 3 人 
3.6.2.3 复制 数组 


函数 repmat 可 以 用 来 复制 数组 ， 用 一 个 矩阵 作为 单元 进行 展开 ， 其 调用 格式 为 
B = Fepmat (和 R,M,N) ; 


参数 说 明 : B 是 输出 的 矩阵 。A 是 输入 的 矩阵 ， 作 为 复制 单元 。M 表示 和 矩阵 在 水 平方 向 复制 矩 
阵 A 的 份 数 。N 表示 在 竖 直 方向 复制 矩阵 A 的 份 数 。 特 别 地 ， 利 用 repmnat 函数 把 一 个 行 向 量 在 竖 
直方 向 复制 N 份 ， 把 一 个 列 向 量 水 平地 赋值 M 份 ， 所 得 的 两 个 结果 可 以 和 3.5 节 介 绍 的 meshgrid 
函数 的 结构 相同 。 

例 3-27: 调用 repmat 函数 来 复制 数组 。 


repmat (magic(2),2,3) 
zepmat (uint8(5),2,3) 


输出 如 下 ， 


相 上 竹 
tw 
卢 

D Lu 
和 > 
加 


4 2 ans = 
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工 3 1 汪 工 3 
4 2 4 ”2 全 2 5 5 号 


tn 
tn 
An 


3.6.3 ”对 角 和 矩阵 
函数 diag 可 以 利用 向 量 生成 一 个 对 角 矩 阵 ， 其 调用 格式 为 ; 


2 


= diag(V) 
A = Giag(v,k); 

参数 说 明 : A 是 返回 的 和 矩 阵 。v 是 一 个 向 量 。k 是 一 个 整数 。 当 k 是 正 数 时 ， 向 量 v 被 安排 在 
主 对 角 线 上 面 第 k 条 斜 线 上 ; 当 k 为 负数 时 ,向 量 v 被 安排 在 主 对 角 线 下 面 第 -k 条 斜 线 上 。 返回 甜 
阵 是 一 个 方 和 矩阵 ， 行 元 素 个 数 为 abs(k)+length{V)。 利 用 这 个 函数 定义 矩阵 时 ， 可 以 简化 用 户 输入 
的 内 容 。 
例 3-28: 调用 函数 diag 的 例子 。 


Vs 工 t37 

al = diag(v) 

a2 = diag(v,2) 

a3 = diag(v,-2) 
输出 如 下 : 

al = 0 0 0 0 0 
1 0 0 0 0 0 0 0 
0 2 0 a3 = 
0 0 3 0 0 0 0 0 

a2 = 0 0 0 0 0 
0 0 工 0 0 1 0 0 0 0 
0 0 0 2 0 0 2 0 0 0 
0 0 0 0 3 0 0 3 0 0 


说 明 从 这 个 例子 ， 读 者 可 以 看 出 函 教 diag 可 以 把 向 量 v 放置 到 主 对 角 线 上 或 者 和 主 对 
角 线 平行 的 位 置 上 。 


3.6.4 ”和 矩阵 旋转 与 移动 

本 节 介 绍 矩 阵 的 旋转 和 移动 操作 ， 这 些 操作 可 以 方便 用 户 在 一 些 特殊 场合 来 简化 编程 。 
3.6.4.1 矩阵 的 转 置 

函数 transpose 可 以 用 来 计算 和 矩阵 的 转 置 ， 其 调用 格式 为 


B = transpose(A) ; 


参数 说 明 : B 是 输出 的 转 置 矩 阵 。A 是 输入 矩阵。 当 A 是 实数 矩阵 时 , 语句 "B = transpose(A))” 
和 "B = Al:;" 是 等 价 的 ; 当 A 是 复数 矩阵 时 ，"B = Al';" 在 计算 转 置 的 同时 进行 复 共 斩 计 算 ， 而 “B = 
transpose{(A); "仍然 计算 转 置 ， 相 当 于 "B = A."。 
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例 3-29: 调用 函数 transpose 的 例子 。 
B = transpose([1+2i,2+1173+2i,4+3i]) 
输出 如 下 : 


也 = 
1.0000 + 2.0000i 3.0000 + 2.0000i 
2.0000 + 1.0000i 4.0000 + 3.0000i 


3.6.4.2 ”矩阵 的 旋转 
函数 rot90 可 以 把 矩阵 按 逆 时 针 方 向 围绕 矩阵 中 心 旋 转 90。 ， 其 调用 格式 为 : 


= rot90(RA): 
B = Fot901{(RA,K) 7; 
参数 说 明 : B 是 旋转 后 的 矩阵 。A 是 输入 矩阵 。K 用 来 设 定 旋转 角度 ， 其 为 90 的 整数 倍 。 
例 3-30: 下 面 是 调用 函数 rot90 的 例子 。 
= [1:374:6] 


己 
B1L = rot901(R) 
B2 = rot90(A,450) 


输出 如 下 : 
B1 = 
3 6 
2 5 
1 4 
3B2 = 
5 二 
3 


读者 可 以 根据 例子 的 结果 理解 函数 rot90 对 和 阵 操作 后 矩阵 中 各 个 元 素 位 置 变化 
说 明 和 


3.6.4.3 翻转 短 阵 
函数 fiplr 和 fipud 可 以 分 别 实现 左右 和 上 下 翻转 和 矩阵， 其 调用 格式 为 : 


Y1 
Y2 


El1iplr(X) 7 
Elipud(X) ， 
参数 说 明 : Y1 和 Y2 是 翻转 后 的 矩阵 。X 是 输入 矩阵。 类 似 地 ， 用 户 还 可 以 用 flipdim 函数 来 
翻转 矩 阵 。 
例 3-31: 下 面 是 调用 函数 fiplr 和 fpud 的 例子 。 
X= [1:374:6]: 


Y1 = flipIr{(X) 
Y2 = flipud(X) 
输出 如 下 : 
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Y1 = 
了 2 1 
6 5 4 
Y2 = 
4 5 6 
1 2 3 


。。 半 才 可 以 在 水 平方 向 上 比 就 X 和 1 各 元 素 的 对 应 关系 ， 在 坚 直方 向 上 比较 X 和 必 
和 各 元 来 的 对 应 关系 ， 从 而 了 解 函数 fliplr 和 flipud 的 作用 。 


3.6.4.4 ， 和 矩 阵 元 素 的 移动 
函数 wshift 可 以 用 来 实现 矩阵 元 素 在 水 平方 向 和 竖 直 方向 上 的 移动 ， 其 调用 格式 如 下 ， 
Y = wW8hift (type,X,B) 


参数 说 明 : Y 是 移动 后 的 矩 阵 。type 是 一 个 字符 串 ， 其 取 值 可 以 为 '1d 或 者 1D'。X 是 输入 矩阵。 
P 用 来 定义 移动 的 量 。 
例 3-32: 下 面 是 调用 函数 wshift 的 例子 。 


X me 1:6 

X = magicl(4) 

y = wshift('1D',x,2) 

Y = wshift('2D',X,[-1 8]) 
输出 结果 如 下 : 

x- 1 2 3 4 5 6 多 

X = 全 
26 于 并 
5 11 10 8 16. 2 3 13 
9 7.， 6 12 了 二 人 下 条 
4 14 1455 9 7 56 132 


说 明 读者 在 比较 向 量 Xx 和 y 的 元 素 关 系 时 可 以 查看 元 素 的 错位 移动 情况 ， 而 在 比较 矩 
阵 X 和 Y 的 时 候 可 以 查看 行 向 量 位 置 变化 关系 。 
3.6.4.5 用 circshift 来 移动 短 阵 元 素 
函数 circshift 同样 可 以 用 来 在 水 平和 竖 直 方向 上 移动 元 素 ， 其 调用 格式 为 


B = circshift(A,shiftsizel)) 


参数 说 明 : B 是 移动 元 素 后 的 矩阵 。A 是 输入 矩阵 。shiftsize 是 一 个 数 或 者 1x2 的 向 量 ， 其 
作用 相当 于 wshift 函数 中 的 参数 po 
例 3-33: 调用 circshift 函数 。 


R=[123I456178 9T; 
B1 = circshift(A,1) 
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B2 = circshift(RA, [-1,1]) 


输出 如 下 : 
B1 = 

天 8 9 

3 3 

4 5 6 
B2 = 

6 和 5 

9 7 8 

3 1 2 


读者 可 以 在 坚 直方 向 上 比较 矩阵 A 和 Bl 行 向 量 的 位 置 关 系 ， 而 在 比较 A 和 B2 各 
说 明 元 素 位 置 关 系 时 可 同时 在 水 平和 竖 直 方向 上 比较 元 素 的 错位 移动 情况 。 


3.6.5 矩阵 大 小 的 增 减 


本 节 介 绍 矩 阵 的 元 素 增 减 的 办 法 。 可 以 通过 把 两 个 或 者 多 个 矩阵 合并 起 来 从 而 达到 元 素 增加 ， 
或 利用 设置 矩阵 中 某 些 元 素 为 空 矩 阵 的 方法 达到 删除 矩阵 元 素 的 目的 .本 节 来 介绍 相关 的 增 减 矩 阵 
元 素 的 方法 。 

和 矩阵 元 素 的 增加 ， 可 以 通过 矩阵 合并 操作 来 完成 ， 如 : 


= [AIB]; 
= [AR,B]7 


D OD 


执行 这 样 的 合并 操作 时 吉 要 注意 矩阵 的 行 数 和 列 数 的 匹配 。 
还 可 以 通过 循环 结果 对 矩阵 进行 增加 元 素 的 操作 ， 如 下 面 的 语句 ， 


有 = magic(3) 


及 (1 ,4)=1 

上 面 两 条 语句 执行 后 输出 如 下 ， 
及 亚 

8 1 6 

3 5 7 

生 9 2 
及 于 


8 1 6 1 

3 5 7 0 

4 9 2 0 

上 述 结果 中 ， 对 A(1,4) 赋 值 后 把 相应 列 向 量 的 其 他 位 置 的 元 素 赋值 为 0。 用 户 可 以 在 后 续 程 序 
中 更 换 这 些 0 元 素 。 

用 户 可 以 整 行 或 者 整 列 地 删除 矩阵 的 元 素 ， 比 如 ， 


RARAtmv:) =:[]# # 删除 下 行 ， 或 者 可 以 指定 贡 为 多 个 行 位 置 , 如 za = [1,2,4,5]， 
Rin) = []; # 删除 mn 列 ， 或 者 可 以 指定 n 为 多 个 列 位 置 ， 如 mn = [2,4;6]) 
Atmlim2,:) = []/ % 删除 从 mi 行 到 m2 行 的 内 容 

R(:v,nlin2) = []) # 删除 从 nl 列 到 mn2 列 的 内 容 
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MATLAB 不 支持 非 阵型 的 数组 形式 ， 用 户 无 法 从 矩阵 中 单独 删除 一 个 元 素 ， 比 如 
M=[8 16;357;4921] 

用 户 想 删除 小 于 5 的 元 素 ， 而 去 掉 这 些 元 素 后 ， 剩 下 的 内 容 不 成 为 一 个 矩阵 。 当 遇 到 需要 删 
除 矩 阵 中 元 素 的 任务 时 ， 可 以 把 要 删除 的 元 素 设 为 定义 范围 外 的 数值 , 比如 和 矩阵 元 素 定 义 范围 是 正 
数 ， 那 么 可 以 把 要 删除 的 元 素 设 为 0、 负数、 复数 、NaN 等 。 把 上 面 矩 阵 M 中 小 于 5 的 元 素 设 为 
0 可 以 用 下 面 的 方法 : 


M(M<5) =0 
输出 为 : 

M = 
8 0 6 
0 5 7 
0 9 0 


再 比如 在 画图 的 时 候 ， 用 户 可 以 把 要 删除 的 数 设 为 NaN， 再 用 plot 等 函数 绘图 时 ， 遇 到 NaN 
数值 时 ，MATLAB 不 进行 绘图 。 
3;6.6 ”和 矩阵 的 本 征 值 

本 节 介 绍 和 和 矩阵 本 征 值 与 本 征 向 量 相关 的 函数 的 用 法 。 
3.6.6.1 函数 eig 

利用 函数 eig 可 以 求 和 矩阵 的 本 征 值 和 本 征 向 量 ， 其 调用 格式 为 : 


己 = elig(X)， 
[V,D] = eig(X) ; 

参数 说 明 : E 是 由 本 征 值 组 成 的 列 向 量 。X 是 输入 的 方 矩 阵 。V 是 由 本 征 向 量 组 成 的 矩阵 ， 其 
中 的 各 个 列 向 量 是 本 征 向 量 。D 是 由 本 征 值 组 成 的 窍 阵 ， 对 角 元 素 为 本 征 值 。 这 里 本 征 值 和 本 征 向 
量 是 对 应 的 。 

例 3-34: 下 面 是 调用 函数 eig 的 例子 。 


M = magic(3) 7 


了 = eig{(M) 
[V,D] = eig(M) 
输出 如 下 ， 
己 = = 
15.0000 15.0000 0 0 
4.8990 0 4.8990 0 
-4.8990 0 0 -4.8990 
V = 


-0.5774 -0.8131 -0.3416 
-0.5774 0.4714 -0.4714 
-0.5774 0.3416 0.8131 
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函数 det 可 以 用 来 计算 矩阵 的 行列 式 ， 其 调用 格式 为 : 


D = Get (X) ， 


参数 说 明 : D 是 行列 式 的 值 。X 是 输入 的 方 矩 阵 。 
_ 例 3-35: 下 面 是 一 个 求 本 征 值 的 例子 。 


D=det (magic(3) ) 
输出 为 : 


D = 
-360 


3.6.6.3 求解 矩阵 的 秩 
函数 rank 可 以 用 来 计算 和 矩阵 的 秩 ， 其 调用 格式 为 : 
R = rank{(X) ， 


参数 说 明 : R 是 和 矩阵 的 秩 。X 是 输入 的 矩阵 。 
例 3-36: 下 面 是 调用 函数 rank 的 例子 。 


R-= rankt(magic(4)) 


输出 为 : 


3.7 ”高 维 数组 


除了 前 面 介 绍 的 矩阵 ，MATLAB 还 支持 高 维 数组 。 一 般 情况 下 ， 高 维 数组 用 于 数据 的 存储 ， 如 
彩色 图 片 的 数据 利用 一 个 Mx Nx 3 数组 存储 。 虽 然 很 多 函数 不 支持 高 维 数组 的 运算 ， 但 当 需 要 进 
行 一 些 计算 的 时 候 ， 可 以 把 高 维 数组 分 解 为 矩阵 进行 处 理 。 下 面 介 绍 几 个 和 高 维 数组 相关 的 函数 。 


3.7.1 计算 数组 维 数 
函数 ndims 可 以 用 来 计算 数组 维 数 ， 其 调用 格式 为 ， 
= ndaims (X) ; 


参数 说 明 : N 是 返回 的 维 数 。X 是 输入 和 矩阵。 
例 3-37: 下 面 是 调用 ndims 的 例子 。 


nl = ndims (magict3)) 
n2 = ndqims (rand{t2,3,4,5)) 


输出 如 下 : 


本 本 本 本 


53 


MATLAB 科学 计算 与 可 视 化 仿真 宝典 > jj 拓 


R1l- = 2 n2 = 4 


3.7,2 ”删除 单独 的 维 数 
函数 squeeze 可 以 用 来 删除 单独 的 维 数 ， 其 调用 格式 为 : 
B = saueeze(RA) ; 
参数 说 明 : B 是 输出 后 的 数组 。A 是 输入 的 数组 。 
例 3-38: 下 面 是 调用 函数 squeeze 的 例子 。 
B = 全 1,3) ) 


输出 如 下 : 


瑟 = 
0.8339 0.9127 0.8335 
0.9099 0.5087 0.0505 


输出 的 B 是 一 个 2x 3 的 算 阵 。 


3.7.3， 移 动 数组 维 的 顺序 
函数 shiftdim 可 以 用 来 移动 数组 维 的 顺序 ， 其 调用 格式 为 ， 


[Y,nehifts] = shittaim(X) 
Y = Shiftdim(X,N) ， ， 

参数 说 明 ; Y 是 移动 后 的 短 阵 。nshifts 是 移动 后 数组 的 维 数 。X 是 输入 的 数组 名 。N 是 指定 移 
动 的 维 数 。 

例 3-39: 下 面 是 调用 shiftdim 函数 的 例子 。 
己 = rand(1,1,3,1,2):; 
[b,n] = shiftdim(a); 


c = shittaim(b, -mn)/ 
G = shiftdaim(ay3)， 


其 中 ， b 是 一 个 3x1x2 的 数组 ， n=2， C=a， d 是 一 个 1x2x1x1x3 的 数组 。 输出 如 下 ; 


a(:v,3,1,1,1) = 0.2785 
al(:,3,2,1,1) = 0.5469 
al(:v,3,3v,1,1) = 0.9575 
al(:vgv1,1,2) = 0.9649 
a 引 (:，3v,2,172) = 0.1576 
至 (ty73v17L) = 0.9706 
b(:,:,1) = 

0.2785 

0.5469 

0.9575 
D( 人 (2) = 

0.9649 

0.1576 

0.9706 
了 = 2 
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ets3sy1,11) = 0.2785 
已 《和 7 于 二 0.5469 
Cl(giv3v3v1r1) = 0.9575 
ef(zv31,1,2) = 0.9649 
cl(i:v,2,1,2) = 0.1576 
clgy33,1,2) = 0.9706 
13771111) 0.2785 0.9649 
@(si,yv,1,1,2) = 0.5469 8.1576 
QQ(:v3yv1,1,3) = 0.9575 0.9706 


读者 可 以 通过 比较 a，b，c 和 对 应 元 素 位 置 的 变化 来 了 解 函 数 shiftdim 的 作用 。 


3.7.4 改变 数组 的 维 数 
函数 permute 可 以 用 来 改变 数组 的 维 数 ， 其 调用 格式 如 下 : 
B = permute (ARA,ordaer); 


参数 说 明 : B 是 改变 后 的 数组 结果 。A 是 输入 高 维 数组 。order 用 来 指定 改变 数组 的 顺序 ， 其 
值 是 一 个 向 量 ， 元 素 为 1~N ( N 为 数组 A 的 维 数 )。 函数 ipermute 和 permute 之 间 构 成 一 个 广义 
的 转 置 和 矩阵 的 关系 。 

例 3-40: 调用 函数 permute 的 例子 。 


aa = ranQl(2,3,4,5) 
size(permutel(a, [3 2 1 4])) 


输出 为 


an8 = 4 3 2 和 


3.7.5 计算 高 维 函 数 的 离散 形式 


函数 ndgrid 可 以 生成 多 维 网 格 坐 标 来 计算 高 维 函 数 的 离散 形式 ， 作 用 类 似 于 前 面 介 绍 的 
meshgrid 函数 。 该 函数 的 调用 格式 如 下 ， 


[X1,X2,X3,...] = ndgria(x1l,Xx2,X3，...) 7 
参数 说 明 : X1，X2，X3 等 是 输出 的 高 维 网 格 。x1，x2，x3 等 是 对 应 坐标 的 采样 点 。 这 里 输出 


的 数组 维 数 等 于 length(x1) xlength(x2) xlength(x3) x …o。 
例 3-41: 调用 函数 ndgrid 的 例子 。 


[xl1,x2,x3] = ndagrid(-2:.2:2，-2:.25:2，-2:.16:2) 1; g% 生成 三 维 网 格 矩 阵 
z = x2 .* exp(-xl.^2 - x2.^2 - x3.^2)， g% 计算 相应 的 函数 表达 式 
slice(x2,xl,x3,z,[-1.2 .8 2],2,[-2 -.2]) g 绘制 切片 图 


上 述 程序 将 得 到 一 个 切片 图 ( 如 图 3.1 所 示 )。 其 中 , x1,， x2 和 x3 的 size 都 等 于 21x17X26。 
通过 x=-1.2，x=0.8，x=2，y=2，z=-2 和 Zz=-0.2 等 平面 把 空间 分 为 6 个 部 分 。 
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3.8 小 结 


本 章 主要 介绍 了 向 量 和 德 阵 的 定义 和 相关 操作 函数 。 很 好 地 利用 向 量 和 和 矩 阵 的 运算 , 可 以 帮助 
用 户 建立 快速 而 简洁 的 程序 。 首 先 介绍 了 向 量 的 定义 方法 ， 以 及 相关 的 向 量 运算 函数 和 操作 函数 ; 
然后 介绍 了 6 个 集合 运算 函数 的 用 法 ， 使 用 这 些 函 数 用 户 可 以 完成 常见 的 集合 运算 。 和 矩阵 是 
MATLAB 的 一 个 核心 元 素 ,， MATLAB 提供 了 大 量 支持 矩阵 计算 的 函数 。 这 里 先 给 出 了 珑 阵 的 定义 方 
法 以 及 一 些 产生 特殊 和 窍 阵 的 函数 , 接 下 来 详细 介绍 了 与 矩阵 相关 的 函数 ， 包括 行 数 和 列 数 计算 、 索 
引 方法 、 整 形 、 对 角 矩 阵 、 旋 转 操作 、 平 移 操作 、 和 拢 阵 元 素 的 增 减 、 本 征 值 等 方面 的 知识 。 最 后 介 
绍 了 高 维 数组 及 相关 操作 的 函数 。 


镶 令 镶 
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算术 表达 式 ”介绍 算术 表达 式 的 建立 和 相关 知识 。 

人 关系 表达 式 ”介绍 关系 运算 符 的 用 法 。 

4 逻辑 运算 给 出 相关 的 逻辑 运算 函数 的 用 法 。 

9 符号 计算 介绍 符号 变量 的 建立 以 及 如 何 进行 一 些 符号 计算 。 

特殊 函数 与 特殊 多 项 式 ”介绍 如 何 计算 一 些 特殊 函数 ， 其 中 包括 多 项 式 。 
久 卷 积 与 相关 ”介绍 卷 积 和 相关 这 两 种 运算 。 

多 使 用 中 的 一 些 技巧 ”列举 了 一 些 函数 的 使 用 技巧 。 


表达 式 是 程序 语句 的 基本 单元 。 本 章 主要 介绍 各 类 表达 式 的 相关 知识 ， 如 算术 表达 式 、 关 系 表 
达 式 和 逻辑 表达 式 等 。 尽 管 这 些 表 达 式 和 其 他 高 级 编程 语言 相似 ， 但 是 MATLAB 大 部 分 操作 都 是 
以 矩阵 作为 计算 对 象 的 基本 单元 ， 很 多 运算 符 都 是 针对 和 矩阵 的 ， 这 一 点 与 其 他 语言 不 大 相同 。 和 珑 阵 
化 的 程序 风格 是 MATLAB 的 一 大 特色 ， 用 户 在 利用 这 些 运算 符号 时 需要 给 予 足 够 重视 。 本 章 还 介 
绍 一 些 多 项 式 函 数 相 关 操 作 的 例子 ， 同 时 给 出 特殊 函数 的 计算 方法 。 


4.1 算术 表达 式 


算术 表达 式 是 在 编程 工作 中 经 常用 到 的 ,在 表 4.1 中 , 总 结 了 相关 算术 符号 的 含义 及 使 用 时 需 
要 注意 的 事项 。 


表 4.1 算术 符号 说 明 


符号 功能 注意 事项 

十 矩阵 加 法 要 求 2 个 矩阵 的 size 相同 

德 阵 减法 要 求 2 个 矩阵 的 size 相同 

和 矩阵 乘法 要 求 第 1 个 矩阵 的 列 数 等 于 第 2 个 矩 阵 的 行 数 
短 阵 右 除 法 要 求 2 个 矩 阵 的 列 数 相同 
和 矩 阵 左 除法 要 求 2 个 矩阵 的 行 数 相同 ” 
甜 阵 元 素 之 间 的 乘法 要 求 2 个 和 阵 的 size 相同 ， 


短 阵 元 素 之 间 的 右 除 法 要 求 2 个 矩阵 的 size 相同 
和 珑 阵 元 素 之 间 的 左 除法 要 求 2 个 矩阵 的 size 相同 ” 
和 矩阵 的 客运 算 要 求 矩 阵 是 方 矩 阵 

和 矩阵 元 素 的 需 运 算 无 要 求 


* MB 和 [BAW] 是 相等 的 ， 这 个 关系 对 于 单个 数字 也 成 立 。xx A/B 和 BA 是 相等 的 ， 


本 


但 是 实际 应 用 中 大 多 数 用 户 采用 A.B 形式 来 计算 矩阵 元 素 除 法 。 
在 计算 一 些 函数 的 离散 形式 的 函数 值 时 , 表 4.1 中 描述 的 矩阵 元 素 的 乘除 法 往往 可 以 方便 地 来 
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计算 ， 从 而 使 表达 式 更 为 简单 。 比 如 ， 计 算 二 元 函数 (xz,y)= 她 + 姑 二 办 (X 和 y 定义 在 [-3,3] 
区 间 内 ) 离散 情况 下 的 值 ， 可 以 利用 下 面 的 语句 来 完成 ， 
[x,y] = meshgrida(linspace(-3,3,200))) ， % 对 x 和 y 离散 取 点 
三 = X,wy+X,^2+Y。.^31 
这 样 就 可 以 计算 出 函数 小 ( x, 》) 的 离散 值 。 
Kronecker 张 量 积 的 计算 在 MATLAB 中 可 以 调用 函数 kron 来 实现 ， 其 调用 格式 为 ; 


多 = kron(X，Y) 


参数 说 明 : X 和 Y 是 两 个 矩阵 ,天 阵 K 的 size 可 以 按 size(K)=size(X).*size(Y) 计 算 。 假 设 X 是 
一 个 2x3 的 和 矩 阵 ， 那 么 这 3 个 矩阵 之 间 元 素 的 关系 用 MATLAB 语言 可 以 表示 为 ， 
K = [X(1,1)wY，X(1,2)wY，X(1,3)wY; 
X(2,1)*Y,X(2,2)wY,X(2,3)xY]; 

当 X 或 者 Y 是 稀疏 矩阵 的 时 候 ， 只 有 非 零 元 素 参 与 计算 ， 同 时 和 珑 阵 K 将 是 稀疏 矩阵 。 

例 4-1: Kronecker 张 量 积 的 计算 。 
Xx=[2,3?1,4]7 


Y=[1,2,314,5,6]); 
K=kron (X,Y) 


输出 为 : 


2 公 6 3 6 9 
8 10 12 12 15 18 
1 2 3 44 8 12 
人 4 5 56 16 20 24 


在 编程 的 时 候 可 以 对 比 前 面 的 介绍 ， 理 解 K 与 输入 参数 的 关系 。 


4.2 ”关系 表达 式 


关系 运算 符号 可 以 用 来 对 数 和 矩阵 对 象 进行 大 小 关系 比较 ， 同 时 返回 比较 结果 (由 0 和 1 组 
成 的 矩阵 )， 这 些 结果 用 户 可 以 应 用 于 条 件 语 句 或 者 一 些 表 达 式 中 。 基 本 的 关系 运算 符号 有 > ，<， 
>=，<=，= =， 一 = 等 6 个 ， 其 中 后 4 个 关系 运算 符号 是 由 两 个 符号 组 成 的 ， 用 户 在 调用 这 4 
个 符号 时 中 间 不 能 有 空格 ， 顺 序 也 不 能 改变 。 在 关系 运算 符 两 侧 写 入 的 矩阵 要 求 具有 相同 的 size。 
关系 运算 符 将 对 和 矩 阵 对 应 元 素 进 行 比较 ， 如果 对 应 元 素 的 大 小 关系 和 关系 运算 符 的 含义 相同 , 那么 
返回 矩阵 的 值 将 等 于 1， 反 之 则 等 于 0。 拢 阵 数 据 类 型 可 以 是 double 型 或 字符 型 的 数据 。 

下 面 以 A= [1, 2, 3] 和 B=[2, 2, 2] 为 例 ， 说 明 这 6 个 运算 符 返回 的 结果 。 令 C = A**B， 这 里 
** 代 表 上 面 提 到 的 6 个 关系 运算 符 ， 该 表达 式 的 含义 是 把 A**B 的 计算 结果 赋值 给 C，C 的 结果 如 
表 4.2 所 示 。 
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表 4.2 关系 运算 符 举例 


关系 运算 符 > << >= <= 二 王 二 二 
C 0,0,1 1,0,0 0, 1,1 1 ,10 0,1,0 1,0,1 


其 中 ，C 的 数据 类 型 是 logical， 它 可 以 和 double 型 数据 进行 进一步 的 计算 。 


4.3 逻辑 运算 


逻辑 运算 和 逻辑 函数 在 很 多 计算 语言 中 都 扮演 着 重要 的 角色 ,它们 可 以 针对 逻辑 型 数据 进行 处 

理 。 在 MATLAB 中 对 逻辑 运算 和 逻辑 函数 的 功能 又 进行 了 扩展 ， 其 中 包含 “与 "~、 "或 "~、" 非 ”和 

“ 异 或 ”4 种 基本 的 逻辑 运算 ， 用 0 表示 “ 假 "， 而 任意 非 0 值 都 表示 “ 真 ”( 这 样 ， 逻 辑 运算 就 可 
以 支持 远 辑 型 变量 和 double 型 变量 )。MATLAB 的 逻 辑 运算 也 是 支持 矩阵 计算 的 。 


4.3.1 基本 运算 
符号 “&"、"|” 和 “一 ”分 别 代表 基本 逻辑 运算 关系 “与 "、" 或 " 和 “ 非 "， 而 函数 xor 可 以 


争 数 和 矩阵 进行 逻辑 运算 时 ， 数 将 和 矩阵 的 所 有 元 素 进行 运算 。 

旬 ， 在 逻辑 运算 符 、 关 系 运算 符 和 算术 运算 符 之 间 ， 逮 辑 运算 符 的 优先 级 最 小 ， 但 是 “ 非 ” 脖 
辑 运 算 的 优先 级 最 高 ， 因 此 用 户 在 编写 程序 的 时 候 需 要 利用 圆 括号 或 者 方 括号 来 指定 计算 
顺序 。 

争 “与 " 和 “或 ”的 优先 级 相同 ， 执 行 顺序 按 从 左 至 右 。 


除了 上 述 基本 逻辑 运算 之 外 , MATLAB 还 提供 了 几 个 逻辑 函数 供用 户 在 交互 运算 和 矩阵 处 理 中 
应 用 , 利用 它们 可 以 方便 地 查找 和 更 替 矩 阵 中 满足 指定 条 件 的 所 有 元 素 。 利 用 好 这 些 函数 ， 可 以 使 
程序 变 得 简洁 ， 有 的 时 候 可 以 增加 程序 的 执行 速度 。 下 面 将 详细 介绍 这 些 函数 的 用 法 。 


4.3.1.1， 查 找 矩 阵 中 非 零 元 素 的 位 置 


函数 all 可 以 用 来 查找 矩阵 中 非 零 元 素 的 位 置 , 如 果 指 定位 置 的 数 非 零 , 那么 all 函数 将 返回 数 
值 1， 否 则 为 0。 其 调用 格式 如 下 : 
P = all(a):; 
P = all(RA)7 
P = all(RA,dGim) 

参数 说 明 : P 是 返回 计算 位 置 处 非 零 数 的 信息 。a 是 向 量 。A 是 矩阵 。dim 指定 相应 的 维 数 。 
当 dim=1 时 ,all 函数 返回 憩 阵 第 一 行 非 零 数 信息 ; 当 dim=2 时 , 返回 第 一 列 非 零 数 信息 ; 当 dim=3 
时 ， 返 回 整 个 矩阵 非 零 数 信息 。 

例 4-2: 查找 矩阵 中 非 零 元 素 的 位 置 。 
R=[1,2,010,2,3]) 


pl=all(RA) 
p2=all(aA,2) 
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pl1 = 0 D2 = 
0 工 0 0 
0 


人 从 这 个 例子 可 以 看 出 ， 仅 当 对 应 的 行 向 量 (或 者 列 向 量 ) 的 所 有 元 素 都 不 等 于 0 
0 时， 函数 an 对 应 的 输出 才 等 于 1 。 


4.3.1.2， 判 断 矩 阵 中 的 列 向 量 是 否 为 0 


函数 any 可 以 用 来 判断 矩阵 中 的 列 向 量 是 否 为 0， 如 果 和 矩阵 的 列 向 量 是 非 零 向 量 ， 则 返回 1 
否则 返回 0。 其 调用 格式 为 : 
any (al) ; 
any (用 ) 
any (RaA,Gim); 
参数 说 明 : p 是 返回 计算 位 置 处 向 量 非 零 信 息 。a 是 向 量 。A 是 矩阵。dim 用 于 指定 计算 的 维 
数 。 当 dim=1 时 ,返回 各 行 向 量 非 零 情 况 ; 当 dim=2 时 ， 返 回 各 列 向 量 非 零 情 况 ; 当 dim=3 时 ， 
对 于 矩 阵 计算 ， 函 数 any 和 函数 all 作用 一 样 ， 返 回 各 元 素 非 零 情况 。 

例 4-3: 判断 矩阵 中 的 列 向 量 是 否 为 0。 


P 
卫 
了 


RAR=[1,0,070,2,0]7 
pl=any(RA) 
pP2=any (ARA,2) 


输出 为 : 


pl = p2. = 
1 工 0 1 


人 让 个 合子 可 以 看 出 ， 仅 当 对 应 的 行 向 量 (或 者 列 向 量 ) 所 有 元 都 为 0 时 ， 函 
风光 any 对 应 的 输出 才 等 于 0 


东 3. 丰 3， 检测 变量 或 者 文件 是 否 存在 


函数 exist 可 以 用 来 检测 变量 或 者 文件 是 否 存在 ， 在 防止 重 命名 方面 很 用， 还 可 以 根据 变量 
或 者 文件 存在 的 情况 做 下 一 步 处 理 。 该 函数 调用 格式 如 下 : 


exist( 5) 7 

exist (AIVar); 
eXxist(' 和 7 buiItin') 7 
exist('aA，'file')7 
eXxiSt( AT Qiz2) 7 
exist('R'，'class')y 


参数 说 明 : v 是 返回 的 检测 结果 ， 是 一 个 自然 数 。A 用 于 指定 变量 或 者 文件 名 称 。 对 于 不 同 v 
值 对 应 A 的 含义 如 表 4.3 所 示 。 


了 
Y 
V 
时 
V 
V 
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表 4.3 不 同 v 值 对 应 A 的 含义 


Vv 的 值 A 的 属性 v 的 值 A 的 属性 

0 变量 或 者 文件 不 存在 5 A 是 内 建 函数 名 
1 A 是 变量 名 6 p 码 文件 

2 M 文件 或 未 知 类 型 文件 7 A 是 路 径 名 

3 MEX 文件 8 A 是 一 个 Java 类 
4 Simulink 文件 ( MDL 文件 ) 


参数 var 用 于 指定 检测 变量 。 参 数 builtin 用 于 指定 检测 内 建 函数 。file 用 于 指定 检测 文件 。dir 
用 于 指定 检测 路 径 。class 用 于 指定 Java 类 。 

例 4-4: 检测 变量 或 者 文件 是 否 存在 。 
ABC=1; 


P1=exist('ch04.doc') 
P2=exist('RABC') 


输出 为 : 


P1 
P2 


半 由 
iD 


说 明 这 个 例子 中 ， 输 出 P1. 等 于 2 表示 对 应 的 输入 字符 串 是 文件 名 ， 而 P2 等 于 1 表示 
输入 字符 串 是 变量 名 。 


4.3.1.4 ”得 到 非 零 元 素 的 位 置 - 

前 面 介 绍 的 any 和 all 函数 可 以 查找 矩阵 中 的 元 素 是 否 为 非 零 元 素 ， 但 是 有 的 时 候 需 要 得 到 这 
些 非 零 元 素 的 位 置 。MATLAB 提供 函数 find 来 实现 这 一 功能 ， 利 用 这 个 函数 用 户 可 以 方便 地 得 到 
非 零 元 素 的 位 置 ， 而 不 必 对 和 矩阵 的 所 有 元 素 逐 一 排查 , 在 此 基础 上 用 户 可 以 对 查找 出 来 的 元 素 进 行 
改动 。 该 函数 的 调用 格式 为 : 
P = fina(A); 
[m，n]l = fina(A) ; 
[m，n，v] = fina(RA) ; 

参数 说 明 : p 是 和 矩阵 A 中 非 零 元 素 的 位 置 索 引 。m 和 是 非 零 元 素 的 行 位 置 和 列 位 置 。v 是 矩 
阵 元 素 Alm,n) 的 值 。 利 用 函数 find 还 可 以 查找 矩阵 A 中 元 素 和 数 ( 或 者 同 size 短 阵 ) 的 大 小 关系 
比较 ， 比 如 : 
[m，n] = find(R>a) 或 者 P = find(a>a) 得 到 矩阵 a 中 所 有 大 于 a 的 元 素 的 位 置 
[Im，n] = find(A>B) 或 者 p = fina(A>B) 得 到 矩阵 A 大 于 和 阵 B 的 元 素 的 位 置 

对 于 其 他 关系 运算 符 ， 可 以 根据 上 面 的 形式 类 似 得 到 。 用 户 应 用 函数 find 可 以 替代 一 些 条 件 
语句 ， 从 而 使 程序 简化 。 

例 4-5: 函数 find 的 应 用 。 


[1:37335]y” 
1:6; 


凶 
六 针 
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[am,an]】 = fina(RA>3) 
bn = find(B==5) 


输出 为 : 


am = 2 3 
2 bn = 5 
an = 2 


说 明 这 里 输出 am，an 和 bn 表示 满足 条 件 的 数据 所 在 的 位 置 ， 其 中 am 表示 元 素 所 在 的 
行 位 置 ，an 表示 元 素 所 在 的 列 位 置 。 


4.3.1.5 判断 矩阵 元 素 是 否 为 有 限 值 


函数 isfinite 可 以 用 来 确定 矩阵 元 素 是 否 是 一 个 有 限 的 数 , 是 则 在 相应 位 置 返回 值 为 1, 否则 返 
回 0。 其 中 无 限 值 有 NaN ( 或 者 nan ) 和 inf， 它 们 都 被 认为 是 无 穷 大 。 该 函数 调用 格式 如 下 ， 
P = isfinice(R); 

参数 说 明 : p 是 一 个 和 和 矩阵 A 同 size 的 logical 型 矩阵 ， 其 相应 位 置 元 素 的 取 值 表 示 和 矩阵 A 是 
否 为 有 限 数 的 信息 。 此 外 ，MATLAB 还 提供 了 函数 isinf 和 isnan 来 分 别 检测 无 穷 大 和 非 数 ( nan 或 
NaN )， 其 用 法 和 函数 isfinite 相同 ， 读 者 可 以 阅读 帮助 信息 ， 这 里 不 再 歼 述 。 

例 4-6: 确定 矩阵 元 素 是 否 为 有 限 值 。 


&RA=[2,inf,-inf,nan]y; 
pP=isfinite(RA) 


输出 为 


p 二 1 0 0 0 


说 明 这 个 例子 表示 在 数组 A 中 的 无 穷 大 (inf ) 和 非 数 ( NaN ) 的 位 置 ， 函 数 isfinite 
将 返回 0， 其 他 数据 的 位 置 返 回 值 等 于 1 。 


4.3.1.6 ”检测 空 矩 阵 

函数 isempty 用 来 检测 空 矩 阵 ， 空 矩阵 的 定义 是 矩阵 存在 但 矩阵 中 没有 元 素 。 在 MATLAB 中 
可 以 定义 空 矩 阵 ， 一 些 语 句 未 执行 或 者 一 些 特殊 语句 ( 如 A = 9:1 ) 也 可 以 得 到 空 矩 阵 。 空 矩阵 在 
一 些 特殊 运算 时 可 能 产生 错误 , 因此 如 果 在 程序 执行 之 前 对 是 否 可 能 成 为 空 和 矩阵 进行 判断 , 可 以 很 
好 地 避免 错误 发 生 而 影响 程序 的 执行 。 该 函数 调用 格式 为 : 
P = isemptyYy(A) ; 

参数 说 明 : A 是 要 判断 的 矩阵。 如 果 A 是 空 和 矩阵 ， 则 p 等 于 1， 否 则 p 为 0。 这 样 我们 可 以 根 


据 输出 参数 p 的 取 值 情况 确定 矩阵 A 是 否 为 空 。 
例 4-7: 检测 空 矩 阵 。 
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B=[3,1,1])， 
pl1=isempty(RA) 
pP2=isempty{(B) 


输出 为 : 


P1 
P2 


的 返回 值 等 于 1 ， 反 之 等 于 0。 利 用 这 个 函数 可 以 在 程序 段 中 判断 矩阵 是 否 为 空 ， 


省 这 个 例子 说 明 函 赦 isempty 可 以 检测 矩阵 是 否 为 空 ， 当 是 空 答 阵 时 ， 函 数 isempty 
说 明 
以 避免 一 些 错误 出 现 而 使 程序 连续 进行 下 去 。 


4.3.1.7 ”判断 多 个 变量 是 否 相 等 


对 于 两 个 变量 ， 我 们 知道 可 以 利用 关系 符号 “==” 来 判断 ， 而 函数 isequal 可 以 用 来 判断 多 
个 变量 的 数据 类 型 、 大 小 和 值 是 否 相 等 。 该 函数 的 调用 格式 如 下 : 
P = isequal(A，B，C,…); 

参数 说 明 : A，B，C 等 是 变量 名 ， 可 以 是 double 型 数据 ， 也 可 以 是 字符 串 型 数据 。 对 于 多 个 
和 矩阵 ， 如 果 所 有 对 应 位 置 的 元 素 都 相等 ， 则 函数 isequal 的 返回 值 p 等 于 1， 反 之 等 于 0。 

例 4-8: 判断 多 个 变量 的 数据 类 型 、 大 小 和 值 是 否 相等 。 


Al=[1,2];Bl=[1,2]7:ClL=[1,2]7A2=[1,1]? 
pl=isedqual(AlL,BlL,Cl) 
P2=isequal(A1,B1,A2) 


输出 为 : 


P1 
P2 


相机 
慷 


说 明 这 个 例子 表明 仅 当 所 有 输入 低 阵 都 相等 时 ， 函 数 isqual 的 返回 值 才 等 于 1 ， 否 则 
等 于 0。 


4.3.1.8 判断 变量 是 否 为 数据 型 变量 


函数 jsnumeric 可 以 用 来 判断 变量 是 否 为 数据 型 变量 ,以 用 来 区 分 数据 型 变量 和 非 数据 型 变量 。 
该 函数 的 调用 格式 为 ， 
P = isnumeric(RA) ; 

参数 说 明 : 当 变 量 A 的 数据 类 型 为 double，int8，uint8，int16，uint16，int32，uint32，int64 
和 uint64 等 数据 类 型 时 ，p 等 于 1， 其 他 数据 类 型 ， 如 字符 串 、 结 构 体 、 逻 辑 型 数据 ,， 则 p 等 于 0。 
类 似 地 还 可 以 使 用 函数 issparse 来 区 分 稀疏 和 矩阵， 使 用 函数 isstr { 以 后 可 能 被 ischar 替代 ) 来 区 
分 字符 串 ， 使 用 函数 islogical 来 区 分 逻辑 型 变量 ， 使 用 函数 isobject 来 区 分 MATLAB 对 象 ， 使 用 
函数 isjava 来 区 分 Java 对 象 矩阵 ， 使 用 函数 isfield 来 区 分 结构 体 答 阵 地 域 ， 使 用 函数 isstruct 来 
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区 分 结构 体 ， 使 用 函数 iscell 来 区 分 cell 矩阵 ， 使 用 函数 jshandle 来 区 分 图 形 句柄 。 
例 4-9: 判 断 变量 是 否 为 数据 型 变量 。 

Al=[1.32,5.27]7Bles'AS' ; 

pl=isnumeric(RA1L) 

p2=isnumeric(B1) 


输出 为 : 


Bl = 
p2 = 0 


网 了。 从 这 个 例子 可 以 看 出 ， 当 输入 内 容 为 数值 型 数据 时 ,函数 isnumeric 的 返回 值 是 1 ， 
[NE 省 。 输入 其 他 类 型 的 内 容 时 ， 返 回 值 是 0。 


4.3.2 ”腐蚀 与 膨胀 运算 


腐蚀 运算 和 膨胀 运算 是 数学 形态 学 的 两 个 基本 操作 ， 其 中 腐蚀 操作 是 在 对 象 边 界 处 消除 像素 
点 ， 而 膨胀 操作 则 是 腐蚀 操作 的 逆 过 程 ， 可 以 把 它们 看 做 是 高 级 的 逻辑 运算 函数 ,应 用 于 图 像 处 理 
问题 中 。 
4.3.2.1 创建 结构 元 素 矩 阵 

在 MATLAB 中 函数 strel 创建 结构 元 素 答 阵 用 于 腐蚀 和 膨胀 操作 中 ， 该 函数 的 调用 格式 为 : 
Se = Strel(shape，parameters):; 


参数 说 明 : se 是 创建 的 结构 元 素 和 矩阵 ，se 的 数据 类 型 是 strel。shape 是 字符 串 ， 用 于 指定 结 
构 元 素 和 矩阵 的 形状 。parameters 用 于 定义 结构 矩阵 的 参数 ， 因 形状 不 一 ， 其 格式 也 不 一 样 。 
例 4-10: 创建 结构 元 素 矩 阵 。 


sel = Strel('square',6) :; # 创建 一 个 6X6 的 正方 形 

se2 = strel('line',7,45) ; 多 创建 一 条 长 度 为 7 且 角 度 为 459 的 斜 线 
se3 = strel('disk',8) :; sg 创建 半径 为 8 的 圆 盘 

se4 = strel('bal1',15,5) :; & 创建 一 个 半径 为 15 且 高 度 为 5 的 椭圆 体 


4.3.2.2 计算 腐蚀 运算 
函数 imerode 可 以 用 来 计算 腐蚀 运算 ， 其 调用 格式 为 ， 
I2 = imerode(I1,se); 
参数 说 明 : |2 是 腐蚀 后 的 和 矩阵。I{1 是 原始 矩阵 。se 是 结构 元 素 矩阵 ， 其 由 函数 strel 定义 。 
4.3.2.3 ”进行 膨胀 操作 
函数 imdilate 可 以 用 来 进行 膨胀 操作 ， 其 调用 格式 如 下 ; 
I2 = imdilate(I1,se); 


参数 说 明 : 2 是 膨胀 后 的 矩阵 。I{ 是 原始 矩阵。se 是 结构 元 素 矩 阵 ， 由 函数 strel 定义 。 
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例 4-11: 下 面 是 一 个 进行 腐蚀 和 膨胀 的 例子 。 
对 MATLAB 图 像 工 具 箱 中 的 coins.png 文件 对 应 的 像素 和 矩阵 进行 运算 ， 相 关 程 序 如 下 : 


RAR = imread(t'coins.png'); $ 读 入 原始 图 像 

sel = strel('sdquare' ,6); % 生成 结构 元 素 矩 阵 sel 
se3 = Strel('disk',8)， # 生成 结构 元 素 答 阵 se3 
已 = imerode(R,sel); 进行 腐蚀 运算 

D = imdilate(a,se3); # 进行 膨胀 运算 
subplot (131) ;imshow(A) ; # 绘图 
xlabel('(a)'，'Fontsize',16); #% X 轴 标 注 

subplot (132) ;imshow(E) ; s 绘图 

xlabel(' (b)'，'Fontsize',16) 1; gs X 轴 标 注 

subplot (133) ; imshow(D) ; % 绘图 
xlabel('(c)'，'Fontsize',16) gs X 轴 标 注 


上 述 程序 执行 后 输出 如 图 4.1 所 示 的 图 形 。 





(c) 脱 胀 的 图 像 


(a) 原 始 图 像 (b) 府 蚀 的 图 像 


图 4.1 腐蚀 和 赔 胀 的 结果 


网 关 和 图 4.1 给 出 了 府 亿 和 及 胀 操作 的 效果 图 ， 其 中 图 (b) 中 各 个 硬币 的 大 小 变 小 、 亮 度 
有 交 嘲 ， 而 图 (oj 中 硬币 大 小 变 大 、 亮 度 变 亮 。 


4.4 符号 计算 


利用 MATLAB 进行 一 些 符 号 计算 ,可 以 处 理 简单 的 问题 。 而 且 借 助 于 maple 处 理 核 , MATLAB 
也 具有 较 强 的 符号 处 理 能 力 。 本 节 将 介绍 如 何 利 用 MATLAB 进行 符号 计算 的 一 些 方法 。 














和 


4.4.1 变量 的 定义 


在 MATLAB 中 定义 符号 变量 可 以 使 用 函数 sym 和 syms。 此 外 , MATLAB 还 提供 了 与 符号 变量 
操作 相关 的 函数 ， 本 节 来 介绍 这 些 函 数 的 使 用 方法 。 


4.4.1.1 定义 符号 变量 
函数 sym 可 以 用 来 定义 符号 变量 ， 也 可 以 用 来 直接 定义 符号 表达 式 ， 其 调用 格式 如 下 : 


S = Sym('name'); 
ss = SYym(var，flag) 


参数 说 明 : s 是 返回 的 符号 变量 名 ( 或 者 表达 名 式 )。 name 用 来 输入 变量 的 名 称 或 者 表达 式 ， 
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如 a，b，a+3*b+x^ 人 2。 在 变量 个 数 不 多 时 ， 建 议 用 户 把 s 和 name 写 为 相同 的 内 容 ， 这 样 在 后 
续 调 用 中 不 会 引起 混淆 。 当 输入 表达 式 的 时 候 用 户 需要 注意 表达 式 的 正确 输入 。var 是 一 个 数值 型 
变量 名 , 它 可 以 是 数 或 者 矩阵 。flag 用 来 指定 var 的 具体 类 型 , flag 可 以 选择 的 参数 有 f r, e 和 d， 
其 中 r 是 默认 值 ; 了 表示 浮 点 型 数据 ， 给 出 一 个 最 接近 var 的 浮 点 型 数值 结果 ; 了 表示 有 理 数 ; e 用 
来 给 出 估计 误差 ，d 表示 十 进 制 数 。 

例 4-12: 定义 符号 变量 。 
a=Sym('a') 
b=57/3; 
Pb=sym(b，'QG') 


输出 为 : 


已 = 电 
b =1.6666666666666667406815349750104 


这 个 例子 表明 函数 sym 可 以 定义 符号 变量 ， 同 时 也 能 把 教 值 转化 为 符号 变量 。 


4.4.1.2 ”特殊 符号 变量 
与 sym 函数 第 二 种 调用 格式 作用 类 似 的 函数 是 vpa， 其 调用 格式 为 : 


Vvpa(RA) ; 

Vpa(A，D) ; 

Sym('X'，'positive') 7 

Sym{('Y'，'ITeal'); 

syYm('Z4，IUnreal') 

参数 说 明 : 参数 A 是 double 型 变量 。D 是 转化 后 小 数 总 位 数 。 输 出 结果 是 一 个 符号 串 型 数 
据 。 此 外 , 用 户 还 可 以 用 函数 digits 来 设 定 D 的 值 , 调用 格式 是 digits(N), 当 N 取 小 数 时 , MATLAB 
将 进行 四 舍 五 入 取 整 。positive 用 于 指定 符号 变量 是 一 个 正 数 , real 用 于 指定 符号 变量 是 一 个 实数 ， 
unreal 用 于 指定 符号 变量 是 一 个 非 实数 。 利 用 函数 sym 和 char 可 以 在 符号 变量 和 字符 串 型 变量 之 
间 转 化 。 

例 4-13: 利用 函数 vpa 实现 转换 。 


NK N HH 
IN HH NE HH HN 


QG=97/71; 
r=vpal(d,8) 


输出 为 : 


z =1.2857143 


人 这 个 例子 表明 函数 vpa 可 以 把 double 型 数据 转化 为 带 有 指定 数位 的 符号 
(dtE 有 交 量 。 
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4.4.1.3 syms 定义 符号 变量 
除了 函数 sym 之 外 ， 用 户 还 可 以 利用 函数 syms 来 定义 符号 变量 ， 这 个 函数 可 以 同时 定义 多 
个 符号 变量 。 在 调用 格式 上 它 要 比 sym 简单 ， 其 调用 格式 为 ， 


SYmsSs argl arg2 ..。. 
SYmS KkK positive 


参数 说 明 : arg1，arg2 等 是 定义 的 符号 变量 名 ， 用 户 直 接 输入 名 称 而 不 用 字符 串 形 式 ， 这 样 
函数 syms 定义 多 个 符号 变量 时 要 比 函 数 sym 快捷 得 多 。 同 样 , 用 户 可 以 用 positive, real 和 unreal 
指定 符号 变量 的 属性 。 

4.4.1.4 查找 符号 变量 
函数 findsym 可 以 用 来 从 表达 式 中 查找 符号 变量 ， 其 调用 格式 为 ， 


F1 = findsym(S) 
FE2 = findsym(S，D); 


参数 说 明 : S 是 一 个 符号 表达 式 。F1 是 表达 式 S 中 所 有 符号 变量 名 、 喜 号 和 空格 符 组 成 的 一 
个 字符 串 ， 其 中 变量 名 是 按 英文 字母 顺序 排列 的 ， 大 写字 母 在 小 写字 母 之 前 。 如 果 S 中 没有 符号 
变量 ，F1 将 是 一 个 空 的 字符 串 ， 如 findsym(sym(1+sin(10)))。F2 返回 的 是 表达 式 S 中 最 靠近 字 
母 “x” 的 n 个 符号 变量 。 

例 4-14: 查找 符号 变量 。 


SYmS 
f=Sym(['a+SGrt (C)+Q^2'+X，'+X5]) ; 
F1=findsym(f) 

计算 得 到 F1 的 结果 是 


F1 =X，a， CC，Q，X 


这 个 例子 表明 函数 findsym 可 以 找 出 表达 式 中 所 有 的 变量 名 。 


4.4.1.5 把 符号 表达 式 转 为 手写 格式 
利用 函数 pretty 可 以 把 符号 表达 式 转 为 手写 格式 ， 在 这 个 转化 过 程 中 MATLAB 不 对 表达 式 进 
行 化 简 和 展开 操作 。 该 函数 调用 格式 为 : 
Pretty (S) 
参数 说 明 : S 是 符号 表达 式 或 者 符号 表达 式 对 应 的 变量 名 。 
例 4-15: 符号 表达 式 转 为 手写 格式 的 形式 。 
Pretty (sym(' SQL (X^2+Y^2) 5) ) 


输出 为 ， 
2 3 -1/2 
(K +YyY) 
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忆 di 站。 该 例子 表明 函数 pretty 可 以 把 表达 式 显示 为 手写 形式 。 





4.4.1.6 ”对 符号 表达 式 进 行 化 简 
利用 函数 simple 可 以 对 符号 表达 式 进行 化 简 操 作 。 其 调用 格式 为 : 


Simple(S); 
[R，how] = simple(S) 


参数 说 明 : S 是 要 化 简 的 表达 式 。R 是 返回 的 最 简化 的 表达 式 。how 是 一 个 字符 串 ， 指 出 所 用 
的 化 简 方法 。 
例 4-16: 举例 说 明 simple 函数 的 用 法 ， 执 行 下 面 的 语句 对 表达 式 进行 化 简 。 


Simple(sym('sin(Xx)^2+sin(y)^2+(X+Yy)^3)) 


运行 之 后 输出 结果 如 下 ， 


simplify: 

2-cos (X)^2-Ccos (yY) ^2+X^3+3wX^2wY+3wXwY^2+Y^3 

radsimp: 

Sin(X)^2+Sin(y)^2+X^3+3wX^D2wV+3wXY^2+Y^3 

combine (trig) : 

1-1/2wcos (2wX)-172*Ccos (2wY)+X^3+3wX^ DAY+3wXwY^D+Y^ 人 3 

factor: 

sin(Xx)^2+Sin(YyY)^2+X^3+3wX^2wY+3wXwY^2+Y^3 

expanda: 

Sin(x)^2+8Sin(y)^2+X^3+3wX^2wYy+3wXAY^2+Y^3 

combine: 

1-1/2wcos (2*X)-172*Cos (2*Y)+X^3+3wX^2AY+3AXAY^2+Y^ 人 3 

COnVvert (exp) : 

-17V/4* (exp(ixw*x)-1/exp (ixrx))^2-1V4* (exp{(ix*y)-1/exp (ixwy))^2+X^3+3wX^2wY+3wXwY^2+Y 
^3 

Convert (Sincos) : 
sin(x)^2+Sin(y)^2+X^3+3+*X^D2xYy+3xXwY^2+Y^3 
Convert (tan) : 
4xtan(1/2*x)^2/(1+tan(1/2wx)^2)^2+4x*tan(1/2*y)^2/(1+tan(1I/2*yY)^2)^2+X^3+3yxX^2 六 
Y+3wXwyY^2+Y^ 人 3 

Collect (X) : 

sin(x)^2+sin(y)^2+X^3+3*X^2wY+3wXAY^ 人 2+Y^ 人 3 

Imwcos2sin: 

sin(x)^2+Sin(y)^2+X^3+3*X^ 人 2wY+3AXwY^DAY^ 人 3 

ans = 

Sin(x)^2+Sin(y)^2+X^3+3wX^2wY+3+XY^2+Y 3 


函数 simp1ify 使 用 一 般 的 化 简 方 法 进行 化 简 计 算 ， 函 数 factor 的 作用 是 把 表达 式 
省。 化 成 连 乘积 的 形式 ， 函 数 expand 用 来 把 表达 式 展 开 ， 函 数 collect 用 来 进行 降 寡 

排列 。convert(exp)，convert(sincos) 和 conyert(tan) 分 别 以 exp，sin&cos 和 tan 三 

种 数学 函数 展开 ，mwcos2sin 表示 给 出 一 个 利用 cos 与 sin 函数 组 成 的 化 简 结 果 ， 
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radsimp 表示 尽量 给 出 一 个 复数 形式 的 结果 ，combine(trig) 和 combine 表示 利用 三 
角 函 数 形式 把 高 次 三 角 函 数 转 化 为 一 次 三 角 函 数组 合 的 形式 。 


4.4.1.7 ”表达 式 展 开 为 重 码 形式 
函数 horner 可 以 把 表达 式 展开 为 重 释 形 式 ， 如 ax(bx(cx-d)+e)+g， 调 用 格式 为 : 
horner (P) 
参数 说 明 : P 是 一 个 符号 表达 式 ， 比 如 执行 horner(sym(x^ 人 3-6*x^ 人 2+11*x-6)) 将 得 到 
-6+(11 十 (-6 十 X)*X)*xo 
4.4.1.8 把 符号 表达 式 化 简 为 有 理 分 式 
函数 numden 可 以 把 符号 表达 式 化 简 为 有 理 分 式 的 形式 ， 其 调用 格式 为 : 
[n，dq] = numden{(R); 
参数 说 明 : A 是 符号 表达 式 。 输 出 n 为 分 子 的 表达 式 ，d 为 分 母 的 表达 式 。 比 如 [n,d] = 
numden(sym(x/y + yx)) ， 将 得 到 n=x^ 人 2+y^ 人 2 和 d=x*yo 
4.4.1.9 相同 因子 的 筛选 与 代 换 


函数 subexpr 可 以 用 来 完成 表达 式 中 相同 因子 的 筛选 并 进行 代 换 以 得 到 简短 的 表达 式 , 其 调用 
格式 为 : 


[zx,s] = SuUbexpr(t,'s'); 


参数 说 明 : 这 里 t+ 是 表达 式 。s 用 来 代 换 相同 因子 的 名 称 以 及 在 代 换 后 表达 式 中 相同 因子 的 名 
称 。r 是 代 换 后 的 表达 式 。 
例 4-17: 比较 solve 和 subexpr 函数 的 作用 。 


t+ = SOlve('axX^3+DxX^2+CxrX+q = 0')， 
[r,s] = Subexpr(t,，'s')， 


用 户 可 以 查看 代 换 前 表达 式 t 和 代 换 后 表达 式 r 以 及 代 换 因子 s。 


4.4.2 赋值 函数 的 使 用 


下 面 介绍 几 个 赋值 函数 的 用 法 。 我 们 在 MATLAB 编程 过 程 中 用 得 比较 多 的 赋值 函数 包括 subs， 
ccode，fortran 等 ， 下 面 分 别 进行 讲解 。 


4.4.2.f 变量 赋值 
函数 subs 可 以 用 来 实现 对 符号 表达 式 中 变量 进行 赋值 的 操作 ， 其 调用 格式 为 : 


subs(s,old,new) 
subs(s,{Vvarl,var2,var3, jj，fVv1,v2,V3，-}) 7 


参数 说 明 : v 是 赋值 后 的 表达 式 。s 是 表达 式 。old 是 要 代 换 的 变量 名 。new 是 更 换 后 的 值 varl ) 
Var2，var3 等 是 多 个 符号 变量 名 ， Vv1，v2， Vv3 等 是 相应 的 值 。 
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例 4-18: 下 面 是 subs 函数 应 用 的 两 个 例子 。 


Syms a b c; 

fl = Subs(a+b,a,3); 

f2 = Subs(sin(a)+cos(b),{fabl,{fl,c)); 
上 述 程序 给 出: 


El = 3+b 
f2 =sin(1)+cos(c) 


4.4.2.2 转化 C 源 代码 
函数 ccode 可 以 把 符号 表达 式 转化 为 对 应 的 C 语言 源 代 码 表达 式 ， 调 用 格式 如 下 : 
ccode (f) ; 


参数 说 明 : 和 是 一 个 符号 表达 式 。 
例 4-19: 下 面 是 一 个 调用 函数 ccode 的 例子 。 


f = taylor(sym{('1og(1+X)') 4) g% 进行 泰勒 级 数 展开 
ccodae(f); # 把 荆 转 化 为 c 代码 


上 述 程序 输出 如 下 : 
ans = t0 = x-xxx/2.0+XxxxXx/3 .01 
4.4.2.3 转化 为 fortran 源 代码 

函数 fortran 可 以 把 符号 表达 式 转化 为 对 应 的 fortran 语言 源 代码 表达 式 ， 调 用 格式 为 : 
fortran(g) 


参数 说 明 : f 是 一 个 符号 表达 式 。 
例 4-20: 调用 函数 fortran。 


g = diff(sym('sin(x^3)')); g# 对 表达 式 进行 微分 计算 

fortran(g) ; # 把 符号 表达 式 转化 为 fortran 代码 . 
上 述 程 序 输 出 如 下 : 

angs = t0 = 3wCDB (Xww3)wXNNZ 


4.4.3 ”符号 微 积 分 


在 MATLAB 中 利用 diff ,jacobian ,int 和 dsolve 等 函数 可 以 进行 微分 和 积分 运算 。 此 外 利用 limit 
函数 还 可 以 进行 极限 的 计算 。 下 面 将 具体 介绍 这 些 函 数 的 用 法 。 


4.4.3.1 计算 微分 
函数 diff 可 以 用 来 计算 符号 表达 式 的 微分 ， 其 调用 格式 如 下 : 


af = diff(f,n)y 
参数 说 明 : df 是 微分 计算 的 结果 。f 是 输入 的 表达 式 。n 表示 求 导 的 次 数 ， 其 默认 值 为 1。 
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例 4-21: 调用 diff 函数 。 
af = diff(sym('x*log(x+1)')，2) 
上 述 语句 输出 如 下 ， 
df =2/(1+x)-x/(1+x)^2 
4.4.3.2 计算 雅 可 比 矩 阵 
函数 jacobian 计算 符号 表达 式 的 雅 可 比 矩 阵 ， 对 于 由 变量 w，w，.…， W 组 成 的 函数 向 量 扩 ,万 ，.…， 
说 而 言 ， 它 的 雅 可 比 和 矩阵 /y 的 各 个 元 素 可 以 按 如 下 公式 计算 。 


= 加 
J- 了 


在 MATLAB 中 函数 jacobian 的 调用 格式 如 下 ， 
Jf = jacobian(E,v) 

参数 说 明 : f 是 符号 表达 式 。v 是 由 不 同 变量 名 组 成 的 向 量 。 当 v 中 只 含有 一 个 变量 时 ， 
jacobian(fv 和 diff) 是 等 价 的 。 

例 4-22: 调用 函数 jacobian。 


1 = jacobian(sym('xr*1log(1+x)') ,sym('x')); 
Jf2 = jacobian(sym(' [x+Yy,Xx*y]')，[sym('xX') ,sym('y')])7 


上 述 语句 输出 如 下 : 


JE1 =1og(1+X)+XA (TI+X) 
It2 = 【LI1] 
[ Y，x] 


这 里 用 户 也 可 以 利用 syms 函数 来 定义 符号 变量 。 
4.4.3.3 计算 不 定 积 分 和 定 积分 
函数 int 可 以 用 来 计算 不 定 积分 和 定 积分 ， 该 函数 调用 格式 如 下 : 


int(S)， 

int(S,var) 

int(S,avb)， 

int(S,varvab) 

参数 说 明 : v 是 返回 的 积分 结果 。S 是 被 积 函数 ， 可 以 是 一 个 向 量 或 者 矩阵 。var 是 对 积分 表 
达 式 中 的 符号 变量 名 进行 积分 。a 和 b 用 于 指定 积分 的 上 下 限 。 当 var 缺 省 时 ， 函 数 int 将 默认 对 x 
进行 积分 。 

例 4-23: 下 面 是 int 函数 的 4 个 例子 。 


Sa333 
相 和 


X Y 忌 
int{[sin(x),x*exp(x)]) 
int(tyxsin(xwy)，y) 
int([sin(x)/x,Xx*exp(-x^2)]， 0，inft) 
int(sSin(Xyxa)7AXXA 0 1) 


可 
必 
直 让 大 


可 避 避 
局 所 
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上 述 程序 计算 后 返回 如 下 结果 : 


Vv1 =[ -~cos(X) ，(-1L+X)*exp (X) ] 

V2 =1/x^2w (Sin(X*y)-YrCcoSs (XxY) *X) 
V3 za[ 1/22*pPi， 17/21] 

V4 =Sinint(a) 


结果 中 的 函数 sinint 定义 为 sinint(x) = int(sinttyMt0,x)。 在 函数 int 计算 结果 中 可 能 会 出 现 一 些 
特殊 函数 ， 用 户 可 以 使 用 help 或 者 mhelp 查看 特殊 函数 的 意义 。 函 数 int 得 到 的 结果 是 符号 型 数 
据 ， 如 果 用 户 希 望 输出 的 是 double 型 数据 ， 可 以 利用 函数 double 来 转化 。 

小 4.3.4 求解 微分 方程 

函数 dsolve 直接 的 用 法 是 求解 微分 方程 。 这 里 介绍 一 下 如 何 利用 它 来 计算 定 积分 。 对 于 一 个 
定 积 分 有 : 

[7OO=FO-F(o (F(z)=7() 

通过 函数 dsolve 可 以 计算 出 被 积 函 数 (zx) 的 原 函 数 玉 (x) ， 然 后 再 带 入 积分 上 限 和 下 限 进行 


简单 计算 就 可 以 得 到 积分 结果 了 。 
例 4-24: 计算 定 积分 。 


| sinrcostd 
相关 程序 如 下 ， 


F=dsolve('Df = sin(t)*cos(t) ') 7; 
Vv=Ssubs{(F,2)-sSubs(tF,1) 


输出 结果 为 : 
V =-1/4*cos({4)+1/4*cos(2) 
这 里 v 是 一 个 符号 变量 ， 利 用 double 函数 可 以 把 这 个 表达 式 转化 为 double 数据 。 
4.4.3.5， 计 算 极 限 
函数 limit 可 以 用 来 计算 不 同类 型 的 极限 ， 其 调用 格式 为 : 


V = 1Iimit(E)7 
V = limit(E,a)y; 
V = 1imit(E,X,al) 
V=1limit ( 王 ,Xx,a，'right') 7; 
V=1imit(,Xxva， 'TIeftt') 
参数 说 明 : v 是 返回 的 极限 值 。f 是 符号 表达 式 ， 它 可 以 是 单个 表达 式 ， 也 可 以 是 由 多 个 表达 
式 组 成 的 向 量 或 者 矩阵 。x 指定 符号 表达 式 中 x 为 变量 。a 用 于 指定 求 x 趋 于 a 的 极限 值 。right 和 
left 分 别 用 于 指定 求 表达 式 的 右 极限 和 左 极限 。 
例 4-25: 利用 函数 limit 进行 极限 计算 。 


SyYmS 其 已 七 ; 


v1 = limit(sin(x)Vx) % 计算 表达 式 在 x 趋 于 0 时 的 极限 
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limit((x-1)V(x^2-1) ,1) % 计算 表达 式 在 x 趋 于 1 时 的 极限 

limit((1+2wx/)^(3wt) ,上 ,inf) g% 计算 表达 式 在 上 趋 于 无 穷 大 ( inf ) 时 的 极限 
limit (1/Vx,x,0,'zighc') g 计算 表达 式 在 x 趋 于 0 时 的 右 极限 
limit([1/x,abs(x)/sin(x)],x,0,'1eft') gs 计算 表达 式 在 x 趋 于 0 时 的 左 极限 


输出 结果 为 : 


中 站 有 上 


VL =1 

V2 =1/2 

V3 =exp(6*X) 

V4 =Inf 

V5 =[ -InE， -1] 


上 盏 的 合子 去 骨 西数 init 可 以 计算 数学 表达 式 的 极限 ， 同 时 还 可 以 计算 在 李 限 和 
右 极限 。 此 外 输入 函数 的 形式 还 可 以 是 向 量 或 者 答 阵 。 


4.5 多 项 式 运 算 


在 数学 上 ， 多 项 式 是 一 类 基本 的 数学 函数 ， 因 为 它 简单 且 可 组 成 完备 函数 基 ， 因此 在 很 多 研究 
中 用 它 来 作为 复杂 函数 的 近似 形式 。 在 MATLAB 中 提供 了 多 种 关于 多 项 式 操 作 的 函数 , 比如 roots， 
poly，polyval，residue，polyfit，polyder 和 conv 等 ， 用 户 利用 这 些 函 数 可 以 便捷 地 对 多 项 式 进 行 
操作 。 本 节 详 细 说 明 如 何 利用 这 些 函数 进行 与 多 项 式 相关 的 计算 。 


4.5.1 多 项 式 的 定义 
对 于 一 个 多 项 式 的 降 震 排序 表达 式 ; 


已 (z=ai +GX 十 十 QX+d (4-1) 
在 MATLAB 中 把 系数 ws，arl，.…，al， mm 提取 出 来 ， 按 次 序 对 应 一 个 向 量 ， 即 
六 =[a,a aao] { 4-2 ) 


这 样 可 以 在 向 量 和 多 项 式 系数 之 间 建 立 起 联系 ， 缺 少 的 需 次 对 应 的 系数 认为 是 0。 比 如 ， 
忆 (xzj= 玉 + 妇 -4 可 以 把 系数 向 量 写 为 p=[1,0,1,0,-4], 其 中 立方 项 和 一 次 项 是 缺少 的 。 对 于 向 量 ， 
在 MATLAB 中 完全 可 以 进行 灵活 的 处 理 了 。 

4.5.2 ”特殊 函数 与 特殊 多 项 式 


本 节 介绍 一 些 特殊 函数 和 特殊 多 项 式 的 计算 ,它们 在 一 些 问题 研究 中 往往 由 于 其 特殊 性 质 而 可 
以 作为 函数 基 ， 从 而 使 求解 过 程 变 得 简单 。 


4.5.2.1 厄 米 多 项 式 
厄 米 多 项 式 是 一 类 特殊 的 多 项 式 , 不 同 阶 次 的 多 项 式 之 间 满 足 正 交 关系 , 其 定义 公式 ( 母 
函数 ) 为 : 
岂 (=(ij"es 7 (4-3) 
其 中 , m 是 自然 数 。 
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前 5 个 厄 米 多 项 式 的 表达 式 为 : 
媚 (x)=1 
刀 ; (z)=4 姑 一 2 
及 (x)=8m 一 12x 
刀 ,(x)=16z -48x+12 
刀 ; (xz)=32x -160m +120x 
可 见 奇数 阶 ( 除 1 阶 外 ) 厄 米 多 项 式 是 奇 函数 ， 偶 数 阶 厄 米 多 项 式 是 偶 函 数 。 
关于 厄 米 多 项 式 计算 的 MATLAB 程序 下 载 的 网 址 读者 可 以 在 附录 A 中 查询 。 
4.5.2.2 勒 让 德 多 项 式 
人 
d” 区 
网 一 1 
Or-zm 二 (4-4) 
前 5 个 勒 让 德 多 项 式 的 表达 式 为 : 
(如 =1 
呈 (z)=x 
严 (z)=(3z2-1/2 
疡 (如 =(52 -3xr)/2 
(xz)=(35x 一 30xz2 +3)18 
勒 让 德 多 项 式 定义 于 [-1,1]， 同 时 五 (UJ=1。 
关于 勒 让 德 多 项 式 计 算 的 MATLAB 程序 下 载 的 网 址 读者 可 以 在 附录 A 中 查询 。 
4.5.2.3 格 根 包 尔 ( Gegenbauer ) 多 项 式 
格 根 包 尔 ( Gegenbauer ) 多 项 式 如 下 定义 : 
Ce 个- 下 上 2c+ma+ 二 ， 导 ] 
(xz)= 2 中， 几 2 0 
其 中 ， =T(2xc+1l)/T(2x-m+l) ， 工 (…) 表 示 伽 马 ( gamma ) 函数 ， 在 MATLAB 中 伽 马 
函数 的 计算 可 以 用 函数 gammao :| (.…) 是 合流 超 几何 函数 ， 在 MATLAB 中 可 以 利用 hypergeom 
函数 来 计算 。 
4.5.2.4 雅克 比 ( Jacobi ) 多 项 式 
雅克 比 ( Jacobi ) 多 项 式 如 下 定义 ; 
Je T(w+m+l) 己 T(x+IH) 人 
(= TUxr5rnAJ 包 FOODFC-ATD T(w+m+l) 2 
因此 ， 雅 可 比 多 项 式 利 用 gamma 函数 进行 求 和 就 可 以 算出 来 。 
4.5.2.5 拉 盖 尔 多 项 式 


位 盖 尔 多 项 式 定义 为 : 


( 4-6) 
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[Una+1l) (0) 
一 -一 Xe = 》 一 一 一 一 一 一 一 一 
71! dr” 馈 T(m+l)T(z 一 mm+H ml! 

利用 LaguerrePoly.m 函数 来 计算 拉 盖 尔 多 项 式 系数 的 程序 的 下 载 网 址 读者 可 以 在 附录 A 中 查 
询 到 。 
4.5.2.6 ”特殊 函数 的 函数 值 计算 

在 MATLAB 中 提供 了 mfun 函数 来 计算 一 些 特殊 函数 的 函数 值 ， 该 函数 调用 格式 为 
DOD2 DPKk) 7 


参数 说 明 : y 是 返回 的 函数 值 。fun 是 特殊 函数 名 称 的 缩写 。p1，Pp2，…，pk 是 特殊 函数 的 参 
数 ， 变 量 的 个 数 因 函数 而 异 ， 用 户 使 用 的 时 候 需 要 注意 。 下 面 列 出 mfun 可 以 计算 的 一 些 特殊 函数 
及 用 法 ， 如 表 4.4 所 示 。 


闵 (z)= (4-7) 


表 4.4 mifun 函数 使 用 说 明 


调用 格式 说 明 
mfun(bernoulliun); 贝 努力 数 
mfun(bernoullun,z); 贝 努 力 多 项 式 


mfun(Bessell,x1,x); 
mfun(BesselJ',x1,x); 
mfun(BesselK',x1,x); 
mfun(BesselY',x1,x); 
mfun(Beta,z1,z2); 
mfun(binomial',x1,x2); 
mfun(EllipticF',z,k); 
mfun(EllipticK ,k); 
mfun(ElipticCK',k); 
mfun(EllipticE',k); 
mfun(EllipticE',z,k); 
mfun(EllipticCE',k); 
mfun(EllipticPi,nu,k); 


mfun(EllipticPi,z,nu,k); 
mfun(ElliPticCPinu,k); 


mfun(erfc',z); 
mfun(erfc',n,z); 
mfun(Ci'z); 
mfun(dawson',x); 
mfun(Psi', 忆 ); 
mfun(dilog',x); 
mfun(erf,z); 
mfun(euler,nm); 
mfun(euler,n,z); 
mfun(Ei,x); 
mfun(Ei,n,z); 
mfun(FresnelC',x); 


mfun(FresnelS'x); 菲 涅 尔 正弦 积分 


第 一 类 修正 的 贝 赛 尔 函数 
第 一 类 贝 赛 尔 函 数 

第 二 类 修正 的 贝 赛 尔 函 数 
第 二 类 贝 赛 尔 函 数 
Beta 函数 

二 项 式 系数 

第 一 类 不 完全 椭圆 积 分 
第 一 类 完全 椭圆 积分 

第 一 类 互 余 完全 椭圆 积分 
第 二 类 完全 椭圆 积分 

第 二 类 不 完全 椭圆 积分 
第 二 类 互 余 完 全 椭圆 积分 
第 三 类 完全 椭圆 积分 

第 三 类 不 完全 椭圆 积分 
第 三 类 互 余 完 全 李 圆 积分 
余 误 差 函数 

余 误 差 函 数 的 迭代 积分 
余弦 积分 

道 森 ( dawson ) 积分 

双 函 数 

二 重 对 数 积分 

误差 函数 

欧 拉 数 

欧 拉 多 项 式 

指数 积分 

指数 积分 

菲 涅 尔 余弦 积分 
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( 续 表 ) 
调用 格式 说 明 
mfun(GAMMA',z); Gamma 函数 
mfun(harmonic',n); 谐 函数 
mfun(Chi',z); 双 曲 余弦 积分 
mfun(Shi'z); 双 曲 正弦 积分 
mfun(GAMMA',z1,z2); 不 完全 Gamma 函数 
mfun(LambertW',zj; 朗 伯 函数 
mfun(LambertW,n,z); 朗 伯 函数 
mfun(InGAMMA',z); Gamma 函数 的 对 数 
mfun(Li'x); 对 数 积 分 
mfun(Psi,n,z); 多 函数 
mfun(Ssi',z); 移 位 正弦 积分 
mfun(Si'z); 正弦 积分 
mfun(Zeta'zj; 黎 最 Zeta 积分 
mfun(Zeta',n,z); 黎 曼 Zeta 积分 
mfun(Zeta'n,z,x); 黎 最 Zeta 积分 





ss 
s 
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于 洛 上 述 特殊 函数 使 用 帮助 的 查看 是 通过 mhelp functionname 进行 的 ，functionname 


| 是 上 表 中 引号 部 分 的 内 容 。 


4.5.2.7 其 他 多 项 式 和 函数 


对 于 切 比 雪夫 多 项 式 、 格 根 包 尔 多 项 式 、 厄 米 多 项 式 、 雅 可 比 多 项 式 、 拉 盖 尔 多 项 式 和 勒 让 德 
多 项 式 等 函数 可 以 通过 下 面 的 形式 调用 : 


maple('T',n,X): 
maplel('U'vn,x)， 
maple('G'n,Xxl,Xx): 
maple('H'n,Xx); 
maple('P'vn,Xxl,x2,X)， 
maple('D' ny,X); 
maple('DL'v nxl,Xx) 
maple('P',n,Xx): 


g% 第 一 类 切 比 雪夫 多 项 式 
g% 第 二 类 切 比 雪夫 多 项 式 
g% 格 根 包 尔 多 项 式 

g% 厄 米 多 项 式 

# 雅 可 比 多 项 式 

% 拉 盖 尔 多 项 式 

# 广义 拉 盖 尔 多 项 式 

s* 勒 让 德 多 项 式 


参数 说 明 : n，x1，x2，x 是 这 些 多 项 式 函 数 的 参数 ， 用 户 可 以 通过 mhelp functionname 来 查 
看 具体 的 使 用 信息 。 需 要 注意 的 是 ， 在 调用 上 面 语 句 之 前 需要 使 用 语句 maple(with',orthopoly) 来 


加 载 这 些 函 数 ， 比 如 下 面 的 例子 。 


例 4-26: 多 项 式 和 函数 的 应 用 。 


maplel'with'，'orthopoly') 


# 加 载 特殊 函数 


v=maplel('H'，,1,2) gs 利用 函数 maple 计算 厄 米 多 项 式 


上 述 语句 输出 如 下 : 


ans =[G，H，L，P，T，U] 
V =4 
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anis 给 出 所 加 载 函数 的 函数 名 称 简写 形式 ，V 表 示 相 应 特殊 函数 的 函 赦 值 。 


4.5.3 多 项 式 的 运算 


本 小 节 主要 是 介绍 关于 多 项 式 计算 的 一 些 函 数 ， 比 如 求 根 、 求 多 项 式 函 数值 、 卷 积 、 求 导 和 分 
式 展开 等 。 
4.5.3.1 零点 计算 

利用 函数 roots 可 以 方便 地 计算 多 项 式 函 数 的 零点 ， 该 函数 调用 格式 如 下 ; 
z = YoOots(p): 


参数 说 明 :r 是 返回 的 多 项 式 函 数 零点 ， 为 一 个 列 向 量 。p 是 目标 多 项 式 的 系数 向 量 ， 用 户 可 
以 定义 向 量 p 为 行 向 量 ( 也 可 以 是 列 向 量 )。 这 里 补充 一 个 函数 poly， 它 可 以 根据 多 项 式 的 零点 得 
到 多 项 式 的 系数 向 量 。 在 过 程 上 看 ， 函 数 roots 和 poly 是 一 对 互 逆 函 数 。 此 外 ， 利 用 函数 poly 还 
可 以 得 到 方 矩阵 的 特征 多 项 式 的 系数 向 量 。 

例 4-27: 多 项 式 函 数 的 零点 。 
RAR=roots([1,0,0,0,3]) 

输出 为 : 
有 R = -0.9306 + 0.9306i 

-0.9306 - 0.9306i 


0.9306 + 0.9306i 
0.9306 - 0.9306i 


这 个 得 到 的 结果 对 应 着 "-3" 的 4 次 方 根 。 读 者 可 以 用 "A.4" 来 验证 这 个 关系 。 


4.5.3.2 标准 字 符 串 表 达 式 
函数 poly2str 可 以 根据 一 个 多 项 式 系 数 向 量 得 到 多 项 式 的 标准 字符 串 表 达 式 ， 其 调用 格式 为 : 


SX = poly2Sstr(P,，'Ss'); 
[sx, len] = poly2str(Pp,，'S'); 


参数 说 明 : sx 是 多 项 式 的 字符 串 形 式 。p 是 多 项 式 系数 形式 。s 用 于 制定 自 变量 的 名 称 ， 可 以 
是 其 他 英文 字母 或 者 多 个 字母 。len 表示 字符 串 sx 的 长 度 ， 即 len = length(sx)。 但 是 利用 poly2str 
得 到 的 字符 串 形 式 不 是 一 个 合法 的 MATLAB 表达 式 ， 例 如 : 


>> SX = Doly2str(1:4，'X') 
SX = Xe3+2Xx^2+3Xx+ 和 4 


可 以 通过 下 面 的 语句 来 把 sx 转化 为 合法 的 字符 串 。 


SX = PolYy2Sstr (1:4，X') 7 
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sx = fliplr(deblank(fliplr(sx))); # 删 去 sx 前 面 的 空格 符 
Sxx = Strrep(Sx，' xX4，IwX') sg 补 上 乘 号 


上 述 程序 执行 后 得 到 的 结果 如 下 ， 
SXXK =2wx^3 + 3xwX^2 + 4xX + 5 
这 样 可 以 利用 eval 或 者 inline 函数 来 对 字符 串 sxx 做 进一步 处 理 。 
4.5.3.3 ”特殊 点 的 函数 值 计 算 
函数 polyval 计算 多 项 式 函数 在 某 些 特殊 点 的 函数 值 ， 该 函数 的 调用 格式 如 下 : 
Y = polyval(P，x):; 
参数 说 明 : y 是 返回 的 函数 值 。p 是 多 项 式 的 系数 向 量 。x 是 自 变 量 的 离散 采样 点 ，x 可 以 是 向 
例 4-28: 特殊 点 的 函数 值 计 算 。 


p=[1,2,3]; 
X=0:.2:1;: 
Y=pPolyval (P,X) 


输出 为 : 


Y = 3.0000 3,.4400 3.9600 4.5600 5.2400 6.0000 


这 个 例子 用 来 计算 多 项 式 X'+2x+3 在 指定 位 置 x 处 的 函数 值 。 


4.5.3.4 卷 积 和 解 卷 积 计算 


多 项 式 的 乘法 和 除法 运算 就 对 应 于 卷 积 和 解 卷 积 计算 ，MATLAB 提供 了 函数 conv 和 deconv 
来 分 别 进 行 卷 积 和 解 卷 积 运算 。 函 数 conv 的 调用 格式 如 下 : 
C = conv(pP1,p2); 

参数 说 明 : c 是 卷 积 计算 得 到 的 多 项 式 的 系数 向 量 。p1 和 p2 是 两 个 多 项 式 的 系数 向 量 ， 要 求 
p1 和 p2 是 浮 点 型 数据 。3 个 系数 向 量 的 长 度 关 系 是 c = length(p1)+length(p2)-1。 

对 于 多 项 式 除法 ( 解 卷 积 运算 )， 比 如 

部 人 加 。 ay 

挛 ( 右 忆 严 (z) ( 4-8) 
实现 上 面 的 计算 可 以 利用 函数 deconv， 其 语法 格式 为 : 


[G，r] = deconv(p1，PDp2) 
参数 说 明 : q 对 应 于 多 项 式 9(g) 的 系数 向 量 。r 是 余 项 多 项 式 rCg) 的 系数 。p1 和 p2 分 别 是 多 项 
式 pi 和 pa 的 系数 向 量 。 


例 4-29: 解 卷 积 运算 。 
pl=[1,6,12,10] 1 
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pP2=[1,4,4]; 

[q,z]=deconv (P1,p2) 
输出 为 : 

G = 1 2 

x = 0 0 0 2 


这 个 例子 用 来 计算 多 项 式 +6X+12X+t10 与 多 项 式 兄 H4xt4。 通 过 简单 的 因 式 分 
[di 四。 解 可 以 知道 商 式 为 对 2， 余 式 为 2， 而 上 述 结果 正好 与 这 个 对 应 。 


4.5.3.5 “导数 计算 
多 项 式 中 (xz)= ax +a-x +…+GX+a 的 一 次 导数 可 以 写 为 : 


和 虹 扣 - PNx 十 (有 一 1)a ix 一 十 .十 四 
dr 
在 MATLAB 中 可 以 利用 函数 polyder 来 计算 多 项 式 函 数 的 导数 ， 其 调用 格式 为 
dp = polyder(p):; 格式 1 
dp = polyder(Pp1，Pp2); sg 格式 2 
[aqg，dr] = polyder(p1，Pp2) % 格 式 3 


参数 说 明 : dp 是 导数 多 项 式 的 系数 向 量 。p 是 多 项 式 的 系数 向 量 。 根 据 上 面 的 推导 可 以 得 出 
dp 和 p 之 间 的 关系 是 dp=p(1:end-1).*(length(p)-1-1:1)。 格 式 2 用 来 计算 两 个 多 项 式 乘积 的 导数 。 
格式 3 用 来 计算 两 个 多 项 式 相 除 的 导数 ,其 中 dq 是 分 子 多 项 式 的 系数 向 量 ，dr 是 分 母 多 项 式 的 系 
数 向 量 。 

例 4-30: 导数 计算 。 


pl=[1,2,3]; 
p2=[1,4]; 
dl=polyder (pl1) 
Gd2=polyder (P1,p2) 


输出 为 ， 
al= 2 2 
aa2= 3 12 11 


1 二 AH+2X+3 的 系数 ，p2 对 应 于 多 项 式 对 4 的 系数 ， 而 dl 对 应 于 多 
项 式 pl 的 导数 ，d2 是 两 个 多 项 式 乘积 的 导数 。 


4.5.3.6 ”公式 转换 
函数 residue 人 


所 采 和 + 大 (2) 
4A(x) x- 局 人 X 一 (4.9) 
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利用 函数 residue 实现 上 述 公式 转换 的 用 法 如 下 ; 


[rzr，P，k]l = residue(B，RA); 
此 外 ， 函 数 residue 还 可 以 实现 上 述 公 式 相反 方向 的 转化 ， 如 : 
[B，RA] = residue(r，P，k):; 


即 实现 了 部 分 最 简化 分 式 形式 向 分 式 多 项 式 转化 的 过 程 ， 函 数 residue 根据 输入 、 输 出 参数 格 
式 的 差异 进行 不 同 过 程 的 转化 计算 。 

例 4-31: 公式 转换 应 用 实例 。 
A=[l,-5,6]) 


B=[1,5,6]; 
[rzv,p,k]=residue(AaA,B) 


输出 为 : 

r = -30.0000 
20.0000 

p = -3.0000 


-2.0000 
k = 1 


网 和 向量 和 对 应 着 多 项 式 红 X-5xt6 的 系数 ，B 对 应 着 多 项 式 %H5X+6 的 系数 ， 读 者 可 
HE 以 根据 输出 验证 residue 函数 的 运算 关系 。 


4.6 卷 积 与 相关 


在 4.5.3 小 节 介绍 了 计算 多 项 式 卷 积 的 函数 conv, 本 节 主要 介绍 利用 快速 傅 里 叶 变 换 来 计算 卷 
积 和 相关 计算 。 卷 积 和 相关 运算 在 一 些 信号 处 理 问 题 中 具有 重要 作用 , 其 中 卷 积 可 以 描述 一 些 系统 
输入 和 输出 之 间 的 关系 ， 而 相关 运算 可 以 应 用 在 目标 识别 中 。 

二 维 卷 积 运算 可 以 按 下 面 的 公式 转化 为 利用 傅 里 叶 变换 计算 ， 


C(xy)=F(xy)@g(xy)= |-wy-wg(ww)dudv=F 沁 [F {eg(xy)}jF {r(xyjj] ( 4-10 ) 


符号 @ 表 示 卷 积 。F ”和 EF 分 别 代表 逆 傅 里 时 变换 和 傅 里 时 变换 ， 因 此 可 以 利用 快速 傅 里 时 
变换 来 计算 两 个 函数 的 卷 积 ， 而 这 种 卷 积 也 被 称 为 循环 卷 积 。 
二 维 的 相关 运算 可 以 表示 为 如 下 形式 : 


K(xy)=(zy)@8s(xy)= 人 (e+sy+yjg(wv)dxdy = 下 一 [F {g(xy)}F Fr(xj ( 4-111) 


符号 田 表示 相关 运算 。 符 号 * 表 示 取 复 共 罗 。 可 以 看 出 利用 快速 傅 里 叶 变 换 能 够 计算 两 个 函数 
的 卷 积 。 


4.6.1 计算 二 维 离散 卷 积 
利用 函数 conv2 可 以 计算 二 维 离散 卷 积 ， 其 调用 格式 为 : 
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= ConV2 (ARA,B) ; 
= Conv2 (A,B,shape) 

参数 说 明 : C 是 返回 的 相关 系数 矩阵。A 和 日 是 输入 的 两 个 矩阵 ， A 的 行 数 和 列 数 分 别 是 ml 
和 nl1，B 的 行 数 和 列 数 分 别 是 m2 和 n2。shape 是 字符 串 ， 用 于 限制 输出 矩阵 的 大 小 ， 其 取 值 为 : 
full 为 默认 值 ， 此 时 返回 甜 阵 的 行 数 和 列 数 分 别 为 m1+m2-1 和 n1+n2-1; same, 返回 一 个 与 矩阵 
A 大 小 相同 完整 卷 积 矩阵 的 中 间 部 分 ; valid， 当 和 珑 阵 A 的 行 数 和 列 数 都 不 小 于 矩阵 B 的 行 数 和 列 
数 时 ， 拢 阵 C 的 行 数 和 列 数 为 m1-m2+1 和 n1-n2+1， 否 则 C= []。 

例 4-32: 计算 二 维 高 散 卷 积 。 

有 =magic(3) 7 


B=[1,1,172,2,273,3,3]7 
C=conv2 (ARA,B,，'sarme') 


输出 为 : 
cC= 26 45 26 


56 90 56 
50 了 58 


说 明 读者 可 以 根据 卷 积 的 定义 验证 上 面 的 计算 结果 ， 这 里 使 用 参数 same 是 为 了 得 到 和 
输入 和 矩 阵 大 小 一 样 的 矩阵 。 


4.6.2 ”计算 线 相 关系 数 
函数 corr 可 以 计算 线 相 关系 数 ， 其 调用 格式 为 : 
R = CO (和 A,B) ， 


参数 说 明 : R 是 返回 的 线 相关 系数 和 矩 阵 。A 和 B 是 两 个 输入 和 矩阵 。 
例 4-33: 计算 两 个 函数 的 卷 积 。 


[x,y] = meshgrid(linspace(-3,3,40)); 当 生成 坐标 矩阵 

zl1 = exp(-[x.^2+yY.^2]); g% 得 到 第 1 个 函数 的 值 
z2=peaks (40) ; % 利用 peaks 函数 生成 第 2 个 函数 
C1 = ifft2(fft2(z1) .*fft2(z22) ) g 计算 循环 卷 积 

C2 = ifft2(fft2(z1) .*conj(fft2(z2))) 7 g% 计算 相关 

cl = conv2(zl,z2, same'); g 二 维 离散 卷 积 

c2 = corr(zl,z2); g 线 相关 运算 

figure' 

subplot (221) ; g 打开 第 1 个 坐标 轴 
mesh{(abs{(Cl)); g% 绘 出 cl 的 模 值 曲面 
colormap{[0,0,0]1); s# 设置 为 黑色 网 格 曲线 
xlabel('(a)'，'Fontsize',16) 1; #% 坐标 轴 标 注 
subplot (222) ; #s 打开 第 2 个 坐标 轴 
mesh(abs(C2) ) ; % 绘 出 c2 的 模 值 曲面 
xlabel(' (b)'，'Fontsize',16); # 坐标 轴 标注 

set (gcf,'Color'w') s* 设置 图 形 窗口 背景 为 白色 
subplot (223) ; % 打开 第 3 个 坐标 轴 
mesh(c1l) 7， % 绘 出 cl 的 模 值 曲 面 
xlabel('(c)'，'Eontsize' ,16); % 坐标 轴 标注 
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subplot (224) ; % 打开 第 4 个 坐标 轴 
mesh(c2); gs 绘 出 c2 的 樟 值 曲面 
xlabel('(d)'，'Fontsize',16); gs 坐标 轴 标 注 


得 到 的 图 形 如 图 4.2 所 示 ， 从 中 读者 可 以 比较 相关 与 卷 积 结果 的 差异 性 。 同 时 ， 利 用 传 里 时 变 
换 计算 的 卷 积 和 相关 结果 与 MATLAB 提供 的 离散 形式 的 计算 函数 存在 一 定 差 异 ， 在 使 用 时 需要 考 
虑 到 这 一 点 。 





D 0 0 0 


{a) 循 环 卷 积 (b) 相 关 运 算 





(c) 离 散 卷 积 (d) 线 相关 运算 
图 4.2” 卷 积 和 相关 的 计算 结果 


4.7 ”表达 式 的 应 用 技巧 
本 节 介绍 在 不 同类 型 表达 式 之 间 转 化 的 技巧 ， 这 些 对 于 灵活 地 解决 一 些 问题 很 有 帮助 。 


4.7.1 符号 表达 式 转化 为 字符 串 
在 MATLAB 中 ， 可 以 利用 char 函数 实现 把 符号 表达 式 转化 为 字符 串 。 
例 4-34: 把 符号 表达 式 转化 为 字符 串 。 


f=dsolve('Df = 上 + Sin(tt)'，'fl(pi/2) = 0') 
f=char(f)， 


此 时 ,f 是 一 个 字符 串 型 数据 ,用户 可 以 把 它 转化 为 inline 函数 , 或 者 用 函数 favel 和 eval 进行 
求 值 等 操作 。 


4.7.2， 对 变量 的 调用 


在 编程 的 时 候 可 以 通过 交换 函数 subs 来 调用 变量 名 和 对 应 的 值 。 
例 4-35: subs 函数 实现 变量 名 和 对 应 值 的 转变 。 


fL=Subs{(sym('ax*u+b'")jvf'a' pb'jf3 7 2) 
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f2=subs (sym('axu+b'),{f'3，27] abc)) 
输出 结果 为 


夺 =320242 
E2 =3xu+2 


4.7.3 含 变化 参数 的 符号 计算 
在 进行 符号 计算 的 过 程 中 ， 当 要 求 某 参数 不 断 变化 时 ， 可 以 利用 num2str 函数 来 实现 ， 比 如 : 


忆 =27 


V = int(sym(['x^'vnum2str(a),'+3']),1,2) 
输出 结果 为 : 
V = 16/3 


这 样 我们 就 可 以 不 断 地 变化 a 的 数值 了 。 


4.7.4 用 函数 实现 赋值 
在 MATLAB 中 可 以 利用 eval 函数 完成 赋值 功能 。 
例 4-36: 利用 eval 函数 完成 赋值 。 


SYmS X Y 
上 = X^2+X+2 

dft = diftf(sym('Xx^33Y^2x*X') ) 7 
X 站; 

ys 2; 

fv = eval(df) 


输出 结果 为 : 
Ev = 了 
4.7.5 调用 maple 函数 来 计算 


在 MATLAB 中 内 置 mfun 函数 ， 利 用 它 可 以 实现 对 maple 函数 的 调用 ， 以 完成 相关 计算 。 
例 4-37: maple 函数 的 应 用 。 


Str2numt(maple('evalf(Psi(1.2)))) 


一 个 计算 双 函 数 语 句 ， 用 户 可 以 更 换 函 数 名 去 计算 其 他 特殊 函数 。 这 里 我 们 可 以 像 使 用 
maple ee 样 来 计算 一 些 函 数值 。 


4.7.6 符号 表达 式 的 转化 


在 MATLAB 中 可 以 将 符号 表达 式 转化 为 inline 函数 。 
例 4-38: 转化 为 inline 函数 。 


SYmS X Y 
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上 = X^2+Yw31 
fun = inline(char(f) 


输出 如 下 : 


fun = Inline function: 
fun (X,yY) = X^2+3wyY 


4.7.7 ”数值 型 矩阵 转化 为 符号 矩阵 
利用 函数 sym 可 以 把 数值 型 矩阵 转化 为 符号 矩阵 ， 比 如 : 
>>SyYmb=sym(magic(3)) 


输出 如 下 : 


4.7.8 复合 函数 的 应 用 
例 4-39: 利用 函数 compose 和 subs 进行 复合 函数 的 推导 。 
SYmS X Y; 
f=1/(1 + x^2); g = sin(y); 
fa = Composet(f,9) 
fb = subs(f,x,9) 
输出 如 下 ， 


= 1/(1+Sin(y)^2) 
fb =1/(1+sin(y)^2) 


可 见 利 用 这 两 个 函数 都 可 以 进行 复合 函数 的 计算 ， 其 中 函数 compose 是 专门 用 于 计算 复合 函 
数 的 。 
4.7.9 建立 抽象 函数 

利用 函数 sym 和 maple 可 以 建立 抽象 函数 ， 下 面 是 两 个 例子 


Sym( 'f(xX,Y) ') 
maple('map(g,Xx,y) ") 


输出 如 下 : 


如 
且 上 


Im 


= 上 (x,Y) 
=G(X,Yy) 


这 里 f 和 g 的 类 型 是 符号 型 ， 它 们 没有 具体 的 函数 关系 式 ， 只 是 一 个 抽象 的 函数 形式 ， 因 此 叫 
做 抽象 函数 。 用 户 可 以 进一步 对 抽象 函数 进行 符号 计算 。 
此 外 ，MATLAB 提供 了 函数 funtool 供用 户 考察 两 个 一 元 函数 的 性 质 及 它们 之 间 的 关系 。 利 用 


ee] 
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这 个 界面 用 户 可 以 观测 到 设 定 区 间 内 的 函数 曲线 ， 同 时 能 够 进行 一 些 简单 的 函数 运算 。 
4.8 小 结 
本 章 主要 介绍 了 不 同类 型 表达 式 的 建立 和 特殊 函数 的 相关 知识 , 详细 介绍 了 算术 表达 式 、 关 系 
表达 式 和 逻辑 表达 式 的 知识 , 熟悉 这 些 表达 式 对 于 编写 程序 非常 重要 。 接 下 来 还 介绍 了 进行 符号 计 
算 的 知识 ， 首先 是 符号 变量 的 建立 ， 然 后 是 符号 运算 的 相关 函数 及 用 法 。 特 殊 函 数 , 包括 多 项 式 函 
数 ， 如 何 利用 MATLAB 计算 这 些 特殊 函数 ， 以 及 卷 积 和 相关 这 两 种 运算 都 在 本 章 有 所 涉及 。 
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9 条 件 语句 ”具体 包括 条 件 语 句 的 建立 和 等 效 改 进 方 法 。 

人 switch 语句 ”介绍 该 语句 的 用 法 及 主要 需要 注意 的 地 方 。 

争 循环 结构 ”描述 两 种 循环 结构 ， 即 for 循环 和 while 循环 。 

争 递归 结构 通过 两 个 例子 介绍 递归 结构 的 设计 与 调试 。 

人 人 机 交互 函数 介绍 几 种 用 户 和 计算 机 互动 操作 的 函数 。 

人 程序 加 速 ”概括 加 速 MATLAB 程序 的 几 个 编程 技巧 。 

多 程序 注释 ”描述 程序 注释 需要 注意 的 事项 及 如 何 更 好 地 利用 这 一 功能 。 
9 常见 错误 的 调试 ”讲述 调试 程序 需要 注意 的 一 些 事项 。 


在 大 型 程序 编写 过 程 中 , 一 个 清晰 的 程序 结构 可 以 帮助 用 户 快速 地 建立 程序 。MATLAB 程序 总 
体 可 以 分 为 顺序 、 循 环 、 分 支 和 递归 4 种 结构 ， 这 和 其 他 高 级 语言 是 相似 的 。 顺 序 结构 是 依次 按 
先后 顺序 执行 程序 的 每 一 条 语句 , 其 中 并 列 语句 的 先后 顺序 可 以 交换 。 语 句 在 程序 文件 中 的 次 序 就 
反映 了 程序 的 执行 顺序 。 典 型 的 顺序 结构 是 不 含有 其 他 结构 ( 如 循环 和 分 支 结构 ) 的 批 处 理 文件 或 
是 MATLAB 中 的 命令 文件 。 虽 然 大 多 数 程序 都 包含 许多 子 结构 ， 但 从 整体 上 看 ， 它 们 大 多 属于 顺 
序 结构 。 在 这 个 结构 中 ， 计 算 任务 依次 对 应 显示 各 条 语句 ， 即 依次 执行 各 条 语句 。 循 环 和 分 支 结构 
将 在 下 面 几 节 中 详细 介绍 。 一 般 情 况 ，MATLAB 程序 由 这 4 种 结构 就 可 以 建立 起 来 。MATLAB 的 程 
序 结构 与 C 语言 大 体 相似 ， 而 且 比 C 语言 的 编程 风格 要 简化 很 多 ， 编 译 过 程 更 人 性 化 ， 随 着 版 本 
的 升级 ， 界 面 的 功能 也 不 断 增 加 和 完善 。 在 编程 开始 时 ， 用 户 最 好 在 稿 纸 上 先 勾画 出 程序 的 大 体 结 
构 ， 熟 练 的 用 户 也 需要 在 大 脑 中 构思 出 整体 轮廓, 根据 选择 最 优 结构 、 避 免 重复 计算 的 原则 来 完成 
程序 的 编写 工作 。 本 章 将 详细 介绍 MATLAB 中 程序 结构 方面 的 知识 , 辅助 读者 写 出 简洁 的 MATLAB 
程序 。 


5.1 条 件 语 句 


条 件 语句 用 于 因 满 足 不 同 条 件 而 执行 不 同 操作 的 情况 ， 是 一 种 分 支 结构 。 在 MATLAB 中 利用 
iend 结构 来 实现 条 件 语句 。 其 基本 调用 格式 如 下 ; 


If expressionl 
Statements 
elseif expression2 
StatementS 

else 
StatementsS 
end 
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例 5-1 


J (7) 


分 析 : 该 
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其 中 expression1 和 expression2 可 以 是 变量 或 者 表达 式 形式 。 满 足 条 件 时 将 执行 
相应 的 语句 statements。 特 别 地 ， 表 达 式 的 值 是 非 零 值 时 将 认为 条 件 成 立 ， 执 行 
相应 的 语 多 。 当 判 断 条 件 为 迎 辑 表达 式 的 时 候 ， 需 要 注意 左右 相等 的 判断 ， 如 

'A==1"， 当 A 是 一 个 double 型 数据 的 时 候 ， 这 个 判断 可 能 会 导致 错误 。 如 果 A 
预期 为 0 和 1 两 个 可 能 值 ， 那 么 可 以 使 用 “A>0.5” 来 替换 “A==1"”。 当 需要 多 个 
逻辑 表达 式 组 合 的 时 候 ， 可 以 分 别 用 “&” 和 “|” 来 表示 “与 ”和 “或 ”的 关系 。 
逻辑 操作 “ 非 ” 利 用 符号 “~” 来 实现 。 超 过 两 个 次 辑 表达 式 的 时 候 需 要 使 用 方 括 
号 或 者 圆 括号 来 设 定 计算 顺序 。 其 中 ，elseif 和 else 部 分 是 可 以 缺 省 的 ， 读 者 根 
据 实 际 情况 确定 条 件 语 名 的 使 用 格式 。 而 且 当 存在 多 个 判断 情况 时 ， 可 以 增加 
else 放 的 个 数 来 建立 条 件 语 名 。 


: 利用 条 件 语句 计算 下 面 二 元 函数 的 函数 值 。 


0， x=0 或 ?=0 
zy， x<0 上 量 y<0 


=42"， xx<0 上 日 y>0 


xy， xx>0 上 且 y<0 
x 闪 ， YY>0 有 日 >0 


该 二 元 函数 共 分 为 5 种 情况 , 利用 if .… elseif .… else.… end 结构 来 实现 这 个 二 元 函数 的 
定义 。 其 中 每 一 种 情况 的 判断 条 件 需要 用 到 两 个 逻辑 表达 式 的 组 合 , 因此 这 个 例子 的 实现 需要 一 个 
完整 的 条 件 语句 结构 。 相 应 程序 如 下 : 


s x，Y 的 定义 略 去 

IE X==0 | Y==0; 
上 = 0” 

elseif x<0 & Y<0; % 判断 第 三 象限 

二 X^A22Y? gs 赋值 

elseif x<0 & Y>0; s 判断 第 二 象限 
上 = Xey^ 人 23? g% 赋值 

elseif x>0 & Y<01; ， 判断 第 四 象限 
E = X^2eY^ 2 赋值 

else 和 其 他 情况 
上 = X^28Y^ 人 37 # 赋值 


enaQ 


当 逮 辑 表达 式 比 较 宛 长 的 时 候 , 建议 用 户 引入 中 间 临 时 逻辑 变量 来 葵 换 复杂 的 逻辑 表达 式 , 比 


如 : 


if {x+ywscC>Imax)g&(yY-ks*B<Imin)&mod(N+k*Py2)17 
可 g# 满足 条 件 时 执行 的 程序 段 


Enda 


上 面 的 程序 可 以 等 价 地 写 为 下 面 的 格式 ， 


CT 


C3 


= (x+ywxSC>Imax) ; 
C2 = (YY-kSsr*B<IrmiDn)z 
= mod (N+KkwPy2) 7 


本 本 本 本 
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if C1&C2&C3 
sg 满足 条 件 时 执行 的 程序 段 
Enda 
如 此 替换 之 后 ， 用 户 可 以 直接 根据 语句 阅读 程序 ， 而 且 便 于 程序 的 调试 。 
在 if.…. else ,… end 结构 中 ， 应 该 把 频繁 发 生 的 情况 写 在 if 部 分 ， 例 外 情况 写 在 else 部 分 ， 这 
样 可 以 增加 程序 的 可 读 性 。 
一 般 ，if...elseif .… else... end 语句 可 以 转化 为 如 下 格式 : 


E = expl.*(cond1l)+ exp2 .*(Ccond2 ) +.. 


其 中 exp1 和 exp2 等 是 函数 的 计算 表达 式 ，cond1 和 cond2 等 是 条 件 表达 式 。 

比如 例 5-1 中 的 表达 式 还 可 以 写 为 下 面 的 形式 : 
E= [X.^2.*Y] .*(X<=0&kYy<=0)+[X.x*xy.^2] .* (X<=0&Y>=0)+[x.^2.xy.^2] .* (X>=0&Y<=0)+X.^2 
.wyY.^3.*(X>=0&Y>=0) 

因为 x=0 和 y=0 的 情况 包含 在 其 他 4 种 情况 中 , 即 利用 ”>="” 和 “<= "代替 “>" 和 "<"。 
同时 上 面 的 计算 表达 式 和 条 件 表 达 式 组 合 的 形式 还 具有 支持 向 量 计算 的 优点 , 而 使 用 条 件 语句 格式 
不 支持 向 量 计 算 ， 编 程 的 时 候 需要 结合 循环 结构 来 逐 点 计算 。 

这 里 配合 一 些 实际 数据 来 测试 上 面 的 程序 ， 相 关 语 句 如 下 : 
t = linspace(-2,2,40); g# 生成 [-2,2] 范 围 内 的 等 间隔 向 量 序列 
[x,y] = meshgriaQ(t); % 德 形 范围 内 的 坐标 数据 
f=[x.^2.x*Yy].*(X<=0&Y<=0)+[X.*y.^2] .*(X<=0&Yy>=0)+[x.-^2.w*y.^2] .*(x>=0&Yy<=0) +Xx.^ 人 2 
.wyY,^3.*(X>=0&Y>=0) 


mesh(x,yvE); gs 绘图 
xlim([-2,2]); # 设置 x 坐标 轴 范 围 
Ylim([-2,2]); g 设置 Y 坐标 轴 范 围 
colormap([0,0,0]) % 设置 曲面 为 黑色 网 格 


上 面 程 序 执行 后 得 到 的 图 形 如 图 5.1 所 示 。 





-2 
图 5.1 一 个 二 元 函数 的 图 像 
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较 差 ， 优 点 是 支持 向 量 计算 ， 可 以 提高 程序 的 执行 速度 。 


计算 表达 式 和 条 件 表达 式 组 合 的 形式 需要 在 用 户 熟 练 的 情况 下 调用 ， 其 可 读 性 比 
1 


5.2 switch 语句 - 


Switch .case .end 和 条 件 语 名 一样， 是 一 种 分 支 结 构 。switch 语句 在 编写 程序 时 要 比 计 语 
句 简单 些 ， 也 容易 理解 ， 这 种 格式 使 用 于 分 支 情况 比较 多 的 场合 ， 其 调用 的 基本 格式 为 : 


Switch Swicch_expr， 
case case_expr， 
Statement， 


caSse {case_expr1l，case_expr2，case_expr3,...} 


Statement， 


otherwise， 
Statement， 
enaQ 


是 满足 条 件 时 相应 的 操作 程序 段 。otherwise 用 于 处 理 除 上 述 case 关键 词 所 列 情 况 


Switch_expr 是 检测 的 变量 名 。case_expr 是 switch_expr 可 能 的 取 值 ，statement 
说 明 


之 外 的 情形 。 当 switch_expr 和 case_expr 相等 时 将 执行 相应 的 语句 。 其 中 
case_expr，case_exprl ，case_expr2 等 可 以 是 double 型 或 者 char 型 数据 。switch 
和 end 之 间 的 语句 按 先后 顺序 检查 ， 直 到 过 到 满足 条 件 的 情况 时 结束 switch 语句 
而 运行 后 面 的 程序 内 容 。 用 户 在 利用 Switch 语句 的 时 候 分 类 条 件 应 该 是 完备 的 ， 
即 包含 所 有 可 能 发 生 的 情况 。 使 用 otherwise 可 以 补充 case 未 列 及 的 情况 。 


例 5-2: 利用 switch ,.. case ..， end 结构 实现 下 述 功 能 : 当 n=0 时 输出 “任务 未 完成 "， 当 
n=1，2，3 时 输出 “任务 基本 完成 "， 当 n 等 于 其 他 数值 时 输出 “任务 很 好 完成 "。 
分 析 : 情况 共 分 为 3 种 ， 使 用 2 个 case 和 otherwise 即 可 实现 。 字 符 串 可 以 不 加 分 号 显示 于 


命令 窗 ， 变 量 n 利用 input 函数 来 输入 。 实 现 程序 如 下 : 


cleariclc; s# 清空 变量 ， 清 屏 
n = input{(' 请 输入 数字 : ');  * 输入 数字 
Switch PP 
case 0 
sh = "任务 未 完成 ' 


case {f1,2,3}; 

sh = “' 任 务 基本 完成 ' 
otherwise 

sh = ' 任 务 很 好 完成 ' 


enad 

执行 上 述 程序 将 会 在 命令 窗 中 输出 : 
请 输入 数字 : 

输入 2 后 会 得 到 相应 的 结果 ， 
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sh = 任务 基本 完成 


5.3 ”循环 结构 


循环 结构 可 以 用 来 重复 计算 某 一 任务 ， 在 MATLAB 中 提供 了 for 和 while 两 种 实现 循环 函数 的 
结构 ， 它 们 分 别 实现 固定 和 不 定 的 次 数 计算 。 本 节 详细 介绍 这 两 种 循环 结构 。 

for 循环 可 以 执行 固定 或 者 预定 次 数 的 循环 计算 ， 其 调用 格式 为 : 
for Kk=13:N; 

Statement ， 
enaQ 

参数 说 明 : k 是 循环 的 指标 ， 可 以 是 自然 数 也 可 以 是 double 型 数据 。 一 般 循环 结构 是 用 来 计 
算 某 一 向 量 或 者 矩 阵型 数据 ， 而 k 就 是 相应 的 索引 脚 标 。 

如 果 计 算 和 矩阵 型 数据 ， 则 需要 利用 两 层 for 循环 结构 ， 即 : 


for m=1:M; 
for n=I:N 
Statement 

enda 
enda 

参数 说 明 :“1:N” 和 “1:M” 是 向 量 结构 ， 用 户 也 可 以 直接 输入 1 个 向 量 名 ，N 和 M 是 程序 计 
算 的 范围 。 计 算 顺序 可 以 从 小 到 大 , 也 可 以 从 大 到 小 ( 此 时 应 该 用 "N:-1:1 "来 代替 "1:N”)ostatement 
表示 每 一 步 中 要 完成 的 计算 任务 。 

在 一 些 特殊 场合 , 可 能 需要 利用 多 层 循 环 , 用 户 根据 上 面 的 两 层 循环 类 推 即 可 得 到 多 层 循 环 的 
结构 。 在 调用 循环 结构 的 时 候 ， 循 环 每 一 步 都 计算 的 量 可 以 放 到 循环 结构 前 面 进行 计算 ， 如 此 可 以 
节省 不 必要 的 计算 。 

如 果 用 户 在 循环 计算 的 过 程 中 要 求 满足 条 件 时 中 止 循环 计算 ， 可 以 在 for 循环 里 面 加 入 break 
函数 来 中 止 程序 ， 使 用 格式 如 下 : 


for Kk=1:N; 
Statement 1; 
if cond1il 
break; 

end 
end 

其 中 cond1 用 来 检查 是 否 满足 条 件 。 

与 break 函数 类 似 的 一 个 函数 是 return 函数 。 这 个 函数 可 以 使 当前 正在 运行 的 函数 正常 结束 ， 同 时 
返回 调用 它 的 函数 继续 运行 后 面 的 程序 ， 或 者 返回 到 调用 它 的 环境 ， 如 命令 窗 和 MATLAB 程序 文件 中 。 
该 函数 通常 用 于 函数 文件 中 。 用 户 可 以 对 输入 的 参数 进行 判断 ， 如 果 参 数 不 符 合 要 求 ， 就 调用 return 语 
句 中 止 当前 程序 的 运行 ， 并 返回 到 调用 它 的 函数 或 环境 ， 这 样 可 以 省 去 一 些 不 必要 的 计算 量 。 

例 5-3: 从 自然 数 1 开始 累加 ， 加 数 为 自然 数 的 质数 因子 最 小 数 ， 直 至 累加 和 达到 100 时 停 
止 累 加 ， 返 回 累加 和 于 停止 的 位 置 。 

分 析 : 利用 for 循环 来 完成 这 个 计算 任务 。 其 中 质数 分 解 可 以 利用 函数 factor 来 计算 ， 并 利用 
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min 函数 来 计算 最 小 值 。 程 序 的 结束 控制 通过 半 语句 调 用 break 函数 来 实现 。 因 为 在 循环 计算 之 前 
不 清楚 需要 计算 到 哪 一 个 自然 数 停止 ， 因 此 这 里 预 设 程序 计算 到 自然 数 100。 实 现 程序 如 下 : 
S = 0; sg 初始 化 栋 加 变量 
for k = 1:100; 

F = factor(k); 8% 对 k 进 行 质 因 数 分 解 

Fm = min(F); ， s 获得 所 有 因数 中 的 最 小 值 

Fn (k) = Fmy; # 记录 最 小 质数 

S = S+Fmy 当 聚 加 求 和 

if S >= 100; g% 检查 S 是 否 大 于 等 于 100 

break; sg 满足 条 件 停止 程序 


enaQ 


可 见 截 止 的 自然 数 是 19， 累 加 和 是 100。Fn 记录 了 相应 的 最 小 质数 。 

为 了 让 for 循环 计算 得 快 些 ， 在 循环 之 前 需要 给 数组 预先 分 配 一 个 空间 。 比 如 例 5-3 中 每 执行 
一 次 循环 变量 Fn 的 size 就 增加 1， 这 样 MATLAB 需要 花费 时 间 对 变量 Fn 分 配 内 存 来 存储 数据 。 
为 了 避免 这 个 操作 浪费 时 间 ， 可 以 在 for 循环 之 前 增加 如 下 一 条 语句 : 


En=zeros (1,19) 


这 样 就 为 变量 Fn 预先 分 配 了 内 存 ， 在 每 次 计算 中 只 是 对 Fn 相应 位 置 的 值 进行 更 换 ， 而 不 必 
考虑 增加 内 存 的 事情 。 

如 果 对 向 量 或 者 数组 内 所 有 元 素 执行 的 计算 任务 都 是 一 样 的 ,可 以 利用 支持 矩阵 计算 的 计算 关 
系 或 者 函数 来 并 行 计算 , 避免 用 for 循环 来 重复 计算 。 比 如 t=0:.1:1, 计算 sin(t*piy/[2+cos(2*t*pi)] 
时 ， 可 以 考虑 利用 下 面 的 语句 : 
ta 0:。.1:1; 

Y=sin(t*pi)./[2+cos(2xtw*pi)]; 

这 样 程序 将 会 执行 得 很 快 ， 用 户 输入 的 内 容 也 会 减少 , 但 是 程序 的 可 读 性 会 降低 。 和 希望 用 户 在 
熟练 以 后 才 使 用 这 种 简化 的 形式 , 并 进行 详细 的 注释 以 备 日 后 方便 查询 和 其 他 用 户 阅读 学 习 。 在 后 
面 的 “程序 加 速 ” 一 节 会 更 详细 地 分 析 这 种 形式 的 编程 风格 。 

与 for 循环 不 同 的 是 ，while 循环 将 以 不 确定 的 次 数 执行 循环 结构 ， 其 调用 格式 为 : 
while expression 

Statements 
enda 

参数 说 明 : expression 是 一 个 表达 式 ， 用 来 控制 程序 是 否 执行 ,一 般 情 况 下 是 一 个 逻辑 表达 式 
或 多 个 逻辑 表达 式 。statements 是 满足 条 件 时 每 一 步 循环 操作 的 内 容 。 当 expression 的 结果 为 真 
时 ， 在 statements 里 面 的 程序 内 容 将 被 执行 。 大 多 数 情况 下 ， 表 达 式 expression 的 所 得 结果 为 
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个 标量 值 ， 对 于 数组 变量 同样 有 效 。 当 expression 结果 为 1 个 数组 时 ， 要 求 所 有 元 素 都 为 真 时 才 


执行 程序 ， 否 则 程序 结束 。 


例 5-4: 获得 100 以 内 所 有 加 法 表达 式 ， 其 中 加 数 有 两 个 ， 它 们 是 在 1~-99 之 间 的 数 ， 同 时 限 
制 第 1 个 加 数 小 于 第 二 个 加 数 。 要 求 把 所 有 加 法 算式 在 命令 窗 中 显示 。 
分 析 : 这 个 问题 考虑 利用 while 循环 结构 来 计算 。 利 用 函数 disp 来 把 字符 串 组 成 的 表达 式 显 


示 到 命令 窗 中 。 程 序 如 下 : 


aa = 1); g 初始 化 加 数 a 
b = 2 ，s 初始 化 加 数 

N= 0; 
while a<100; 


加 数 b 
# 加 法 算式 个 数 的 计数 器 ， 这 里 初始 化 为 0 


if a+b<100.5; $ 验证 是 否 溢出 
disp([num2sEr(a),，'+',num2str(b),，'=' num2str(a+b)]) #% 输出 加 法 算式 
b = b+1; #% 变化 b 
N = N+11 % 增加 算式 个 数 
else 
aa = at+li # 变化 a 的 值 
b = at+l; gs 变化 初始 化 b 的 值 
enaQ 
end 
N 
程序 计算 输出 如 下 : 
1+2=3 
1+3=4 
% 这 里 略 去 以 下 等 式 
输出 N 的 值 为 : 
N = 2450 
等 价 地 利用 两 重 循环 结构 来 计算 这 个 问题 ， 相 应 程序 如 下 : 
aa = 1; # 初始 化 加 数 a 
N = 0); g% 加 法 算式 个 数 的 计数 器 ， 初 始 为 0 
while a<100; 
b = af+t; 
while a+b<100.5; g% 验证 是 否 溢出 
disp( [num2str{(a)，'+',num2str(b),，'=' num2str(a+b)]) s# 输出 加 法 算式 
b = b+1; #% 变化 b 
N = N+1; 增加 算式 个 数 
enaQ 
= at+l; % 变化 a 
end 
N 


其 中 外 层 循环 是 变化 a， 里 面 一 层 循环 是 变化 b。 两 层 循环 输出 的 结果 和 一 层 循环 输出 的 结果 


一 样 ， 这 里 不 再 显示 。 


和 for 循环 一 样 ， 存 在 数组 定义 时 ， 需 要 预先 定义 出 数组 的 内 存 空 间 ， 这 样 可 以 避免 在 程序 计 


算 过 程 中 出 现 动态 内 存 浪费 的 问题 。 


前 面 介绍 的 程序 结果 ， 如 在 f，switch，for 和 while 结构 中 和 MATLAB 程序 中 ， 关 键 词 都 是 上 
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下 对 齐 ， 如 if 和 end，for 和 end。 在 输入 的 时 候 ， 这 些 关键 词 之 间 相 互 匹配 ， 并 显示 为 蓝 色 。 在 
大 型 程序 中 ， 出 现 因 结构 引起 的 错误 是 比较 难 查找 的 ， 但 是 利用 MATLAB 自 带 的 Edit 编辑 器 会 自 
动 缩 进 语句 ,并 以 不 同 的 颜色 显示 不 同 作用 的 字符 ,便于 查找 错误 。 因 此 希望 用 户 输入 程序 内 容 时 
按 默认 的 标准 格式 进行 。 


5.4 递归 结构 


当 一 个 计算 任务 和 它 自 身 的 规则 存在 关系 时 ， 就 可 能 涉及 递归 关系 了 。 在 所 有 程序 结构 中 , 递 
归结 构 是 很 难 理解 和 掌握 的 。 比 如 方形 几何 中 的 自 相 似 性 就 是 一 个 典型 的 例子 , 局 部 和 整体 之 间 的 
相似 性 拓展 可 以 得 到 美丽 的 方形 图 像 。 程 序 设计 也 会 因为 使 用 递归 变 得 简单 ,但 是 不 容易 理解 , 可 
读 性 差 一 些 。 

在 MATLAB 中 递归 结构 需要 写 到 函数 文件 中 ， 函 数 在 其 内 部 调用 自身 。 简 单 地 说 ， 递 归结 构 
就 是 函数 自身 的 调用 。 下 面 以 阶乘 函数 的 建立 来 介绍 递归 结构 。 代 码 如 下 : 
function Y=fac(n) ; 

E Dn==07 

Y=1; 
elSe 
Y=nw*fac(n-1) 7 #% 自身 调用 
end 

把 上 述 内 容 存 为 fac.m 文件 即 可 实现 阶乘 的 计算 。 这 里 , 在 fac.m 文件 中 调用 了 fac 来 计算 n-1 
时 的 值 ， 拿 n=5 来 说 ， 其 计算 过 程 依次 是 5*fac(4) 一 4*fac(3) 一 3*fac(2) 一 2*fac(1) 一 1fac(0) ， 而 
fac(0) 由 if 后 面 的 语句 定义 ， 这 样 就 可 以 得 到 fac(5) 的 值 了 。 


儿 RN 在 MATLAB 中 ， 已 经 提供 了 factorial 和 gamma 函数 可 以 用 来 计算 阶乘 。 


下 面 再 举 一 个 二 值 图 形 处 理 的 例子 。 

例 5-5: 计算 任务 是 在 1 个 字符 图 像 上 面 删 去 1 个 连通 的 文字 。 初始 的 图 片 如 图 5.2 左 图 所 示 ( 相 
应 图 片 在 光盘 中 ， 文 件 名 是 words.bmp， 位 于 Ch05 文件 夹 ) 通过 程序 实现 删 去 其 中 的 “ 工 字 "。 

分 析 : 图 中 分 离 的 几 个 字符 都 是 连通 在 一 起 的 ， 只 要 抓 住 一 点 ， 就 可 以 “ 顺 芯 摸 瓜 ” 得 到 全 部 
的 “ 黑 点 "。 对 于 二 值 图 像 对 应 的 矩阵 ， 其 中 只 有 2 个 数值 ， 即 0 和 1。 而 每 个 矩阵 元 素 周围 有 8 
个 近邻 ， 如 果 当 前 点 为 黑 点 ( 对 应 像素 值 等 于 0 )， 那 么 把 该 点 变 为 白色 ， 同 时 处 理 周 围 的 8 个 像 
素 。 因 此 可 以 建立 一 个 递归 过 程 来 处 理 这 个 问题 。 


也 中- 嫉 


处 理 之 前 的 图 像 删 去 一 个 字 的 图 像 
图 5.2 程序 执行 的 结果 
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相应 的 实现 程序 如 下 : 


function [A,xn,yn,x,y] 


= pickup (AR,xn,yn,x,y 


) ; 


if A(x,Y) == 0; 
xn = [xn,x]; # 满足 条 件 后 把 位 置 坐标 x 记录 到 xn 
Yn = [yn,y]; #% 满足 条 件 后 把 位 置 坐标 y 记录 到 yn 
有 (xy)=17 % 把 黑 点 变 为 白 点 
[A, xn,yn,x,y] = pickup (RAR,xnv,yn,x+1l,y)y # 处 理 第 1 个 近邻 点 
X = xX-1; gs 把 x 的 值 恢复 到 原来 的 位 置 
[RA, xn,yn,x,Y] = pickup(R,xn,yn,x-1vy)， g 处 理 第 2 个 近邻 点 
X = X+1; # 把 x 的 值 恢复 到 原来 的 位 置 
[R, xn,ynv,x,y]】 = pickup(a,xn,ynvxyYy+1); 多 处 理 第 3 个 近邻 点 
Y = Y-1; gs 把 y 的 值 恢复 到 原来 的 位 置 
[A,xn,yn,x,y] = pickup(R,xn,yn,x,y-1)7 当 处 理 第 4 个 近邻 点 
Y = Y+15; gs 把 y 的 值 恢 复 到 原来 的 位 置 
[R,xn,yn,x,Y] = pickup(A,xn,yn,x+1,y+1) g 处 理 第 5 个 近邻 点 
Y = Y-1; # 把 Y 的 值 恢复 到 原来 的 位 置 
x = X-1; # 把 x 的 值 恢 复 到 原来 的 位 置 
[Ra, xn,yn,x,y] = pickup(R,xn,yn,x-1,y-1); 处 理 第 6 个 近邻 点 
Y = Y+11; # 把 y 的 值 恢 复 到 原来 的 位 置 
X = X+1? 把 x 的 值 恢复 到 原来 的 位 置 
[axn,yn,x,y] = pickuB{(R,xn,yn,x-1,y+1); # 处 理 第 7 个 近邻 点 
Yy = Y-1; % 把 y 的 值 恢 复 到 原来 的 位 置 
x = x+l; sg 把 x 的 值 恢复 到 原来 的 位 置 
[a, xn,yn,x,yY] = pickup(R,xn,yn,x+l,y-1); 处 理 第 8 个 近邻 点 
Y = Y+1; # 把 Y 的 值 恢 复 到 原来 的 位 置 
X = X-1; % 把 x 的 值 恢复 到 原来 的 位 置 
end 


把 上 述 内 容 存 为 pickup.m, 即 可 实现 删除 某 文字 的 功能 , 其 中 在 函数 pickup 内 调用 了 该 函数 。 
相应 的 调用 程序 如 下 ， 


# 载 入 图 片 文 件 为 1 个 矩阵 


RAR = imread('words .bmp') 

x = 40; gs 设 定 1 个 x 初 始点 ， 作 为 “ 顺 蕨 摸 瓜 ”的 起 点 
Yy = 40; % 设 定 1 个 y 初始 点 ， 作 为 “ 顺 蕨 摸 瓜 ”的 起 点 
xn = [3 g 初始 化 坐标 点 集 xn 

yn = []， sg 初始 化 坐标 点 集 yn 

subplot (121) ; gs 开 一 个 子 图 窗口 

imshow(&a,， []) 7 $% 绘图 

xlabel( ' 处 理 之 前 的 图 像 ') ; % 标注 


pickup (R,xn,yn,x,y); gs% 调用 pickup 进行 处 理 
subplot (122) % 开 另 外 一 个 子 图 窗口 
imshow (Ra []) 7; g% 绘图 

xlabel(' 删 去 1 个 字 的 图 像 ' ) ; # 标注 

set (gcf,'Color',[1,1,1]*0.92); % 背景 色 设 置 


上 述 程序 语句 执行 后 可 以 得 到 如 图 5.2 右 图 所 示 的 图 形 。 通 过 选择 不 同 的 初始 点 ， 还 可 以 删 去 
其 他 字符 。 


[&A,xn,Yyn,x,y] = 


初始 点 的 像素 值 应 该 等 于 0， 否则 程序 不 能 删除 图 像 上 的 内 容 。 


当 递 归 次 数 超过 500 次 时 ，MATLAB 会 提示 出 错 ， 并 告诉 用 户 增加 最 大 递归 次 数 设置 。 有 的 
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时 候 是 递归 程序 的 问题 ， 需 要 做 相应 的 修改 。 当 计算 量 比较 大 时 ， 需 要 特别 地 增加 最 大 递归 次 数 ， 
相应 用 法 如 下 : 


Set (0,，'RecursionLimit',N) ; 


5.5 人 机 交互 函数 


MATLAB 提供 了 input，keyboard，echo 和 profile 等 函数 来 实现 人 机 交互 过 程 ， 下 面 详 细 介绍 
这 些 函 数 的 使 用 方法 。 
函数 input 可 以 让 用 户 在 命令 窗 中 输入 相关 的 参数 ， 其 调用 格式 为 : 


= input('expression')i; 多 格式 1 
= input(' expression'，'s'); g% 格式 2 


参数 说 明 : expression 是 对 变量 R 进行 说 明 ， 比 如 某 某 参数 。 参 数 s 用 于 指定 输入 内 容 是 
符 串 。 执 行 input 函数 之 后 会 在 命令 窗 中 出 现 R= expression， 在 expression 后 面 用 户 可 以 输入 合 
法 的 内 容 ， 如 R 可 能 的 取 值 或 者 workspace 里 已 经 存在 的 变量 名 。 如 果 输 入 的 内 容错 误 ， 将 会 提 
示 出 错 ， 同 时 要 求 用 户 继续 输入 。 

如 执行 语句 R = input ( 煌 射 率 : )， 首 先 要 把 这 个 语句 输入 到 命令 窗 ; 
>> R = input(' 折 射 率 =' ) 

如 果 输入 1 个 不 存在 的 变量 A， 如 下 : 
折射 率 =A 

将 会 出 现 如 下 出 错 信息 : 


以 另 


?3?? Error using ==> input 
Undaefined function or variable 'A' . 


并 提示 继续 输入 ( 如 果 输 入 变量 名 是 存在 的 ，MATLAB 将 通过 并 继续 执行 后 面 的 程序 ): 
折射 率 -= 
可 以 输入 正确 的 数值 ， 如 : 


折射 率 =1 .617 
R = 1.6170 

在 输入 过 程 中 ， 用 户 可 以 输入 向 量 或 者 和 矩 阵 ， 按 回 车 键 后 MATLAB 认为 输入 结束 ， 并 把 输入 
内 容 赋 给 变量 R。 

如 果 是 用 户 自己 编写 和 使 用 的 M 文件 ， 应 该 直接 在 程序 中 赋值 及 相应 地 写 上 注释 ， 这 样 比 利 
用 input 函数 方便 ， 因 为 执行 程序 时 不 必 逐 个 输入 参数 而 节省 了 时 间 。 在 给 其 他 用 户 演示 或 者 使 用 
时 可 以 考虑 利用 input 函数 ， 因 此 用 户 需要 根据 不 同情 况 来 选用 这 个 函数 。 

函数 keyboard 把 计算 机 作为 一 个 函数 文件 来 调用 ,并 放 入 M 文件 中 , 这 个 特性 对 调试 或 正在 
运行 期 间 修改 变量 很 有 帮助 。 当 执行 该 函数 时 ，MATLAB 将 暂时 停止 运行 程序 ,并 使 计算 机 处 于 等 
待 键盘 输入 状态 。 一 旦 处 理 完 需要 的 工作 后 ， 输 入 return 并 按 回 车 键 ， 程 序 将 继续 运行 。 在 M 文 
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件 中 使 用 这 个 函数 ， 对 调试 程序 非常 有 用 。 类 似 的 函数 是 pause， 该 函数 用 于 使 程序 暂停 运行 ,等 
待 用 户 按 任意 键 才 继续 ， 其 中 pause(m) 将 暂停 n 秒 钟 后 继续 运行 ( n 可 以 是 小 数 ) 

函数 echo 通常 用 来 控制 M 文件 在 执行 过 程 中 是 否 显示 。 在 正常 的 执行 过 程 中 , M 文件 是 不 会 
显示 在 命令 窗 中 的 。 在 一 些 特殊 场合 ， 比 如 需要 对 M 文件 进行 调试 和 演示 时 ， 则 需要 M 文件 执行 
的 每 条 命令 都 显示 出 来 ， 用 函数 echo 就 可 以 实现 。 其 调用 格式 为 : 
echo ony; Sg 格 式 1 


echo offy; % 格 式 2 
echo' 格式 3 


0 站。 认 状 态 。 格 式 3 用 于 切换 格式 1 和 格式 2。 在 显示 方式 下 ，M 文件 是 逐 行 解释 执行 
的 ， 而 不 是 编译 后 执行 的 ， 这 样 会 大 大 地 降低 程序 执行 的 速度 和 效率 。 除 非 有 必 
要 ， 比 如 在 调试 程序 的 时 候 ， 和 否则 用 户 最 好 不 要 打开 MATLAB 文件 的 显示 方式 (这 
样 影响 运行 速度 )。 


格式 1 用 于 打开 M 文件 执行 过 程 的 显示 方式 。 格 式 2 用 于 关闭 显示 格式 ， 此 为 默 


函数 profile 可 以 用 于 详细 地 查看 ( 或 者 叫 剖析 ) MATLAB 文件 中 每 步 耗费 的 时 间 ， 用 户 可 以 
看 到 程序 费时 的 部 分 。 其 调用 格式 如 下 : 


Proftile on 
Profile off 
Profile report 
profile Plot 
profile reset 
Profile done 
profile clear 

参数 说 明 : on 用 于 打开 profile 函数 的 剖析 功能 。off 用 来 关闭 剖析 功能 。report 用 于 显示 剖析 
结果 。plot 给 出 一 个 图 形 来 描绘 剖析 结果 。reset 把 消失 时 间 数 据 恢 复 为 0。done 关闭 剖析 功能 并 
清除 相应 数据 。clear 用 于 清除 所 有 记录 的 剖析 结果 。 在 低 一 些 MATLAB 版 本 ( 如 6.5 版 本 ) 中 ， 
可 能 参数 有 所 不 同 ， 读 者 调用 时 请 先 仔细 阅读 帮助 文档 。 

例 5-6: 计算 num2str 函数 的 剖析 过 程 。 

分 析 : 首先 要 建立 一 个 简单 的 程序 来 调用 num2str 函数 ， 再 调用 profile 函数 获得 剖析 结果 ， 
其 中 显示 剖析 结果 数据 ， 并 显示 相应 的 图 形 。 相 关 程 序 如 下 : 


Ns = [randperm(8)]'; 


profile on g 打开 剖析 操作 

gg = num2str(NSs); #% 把 double 型 数据 转化 为 字符 串 类 型 
profile report gs 弹出 剖析 结果 窗口 

profile viewer # 停止 剖析 并 显示 结果 于 IE 浏览 器 中 


profsave(profile('infto'),'profile_results');  % 保存 剖析 结果 于 profile_results 文 


件 夹 下 
profile off # 关闭 剖析 操作 


执行 上 述 程序 后 会 弹出 如 图 5.3 所 示 的 窗口 。 用 户 可 以 从 这 个 窗口 中 查看 相关 函数 执行 的 时 
间 ， 同 时 在 当前 路 径 下 得 到 profile_results 文件 夹 ， 并 存储 了 相应 的 正文 件 ， 如 图 5.4 所 示 。 
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图 5.3 函数 profile 测试 程序 执行 时 间 的 窗口 


6 程序 加 速 


本 节 介 绍 一 些 加 速 程序 在 执行 时 的 一 些 方法 ， 这 些 方法 主要 是 在 编程 风格 上 做 一 些 特殊 的 改 
因为 MATLAB 对 于 矩阵 计算 支持 得 非常 好 ， 所 以 加 速 程序 主要 围绕 向 量化 编程 。 对 于 提高 程 








序 运行 速度 ， 这些 方法 非常 有 用 。 和 希望 读者 通过 本 节 可 以 提高 程序 执行 的 速度 。 加 速 程序 需要 注意 
以 下 几 个 方面 。 


急 只 有 使 用 这 样 的 数据 类 型 , MATLAB 才 会 对 其 加 速 : logical, char, int8, uint8 ,int16, uint16， 
int32, uint32, double, 而 语句 中 如 果 使 用 了 非 以 上 数据 类 型 时 则 不 会 加 速 , 比如 : numeric， 
cell，structure，single，function handle，java classes，user classes，int64，uint64 和 稀 
朴 和 矩阵 。 在 运行 时 数据 类 型 分 析 和 处 理 方面 ， 由 于 MATLAB 中 的 变量 可 以 非常 灵活 地 进行 
类 型 转换 和 数组 大 小 的 调整 ， 因 此 MATLAB 必须 具备 强大 的 类 型 检查 功能 ，MATLAB 为 此 
项 任务 需要 付出 时 间 代 价 。 在 运行 过 程 中 ， 数 据 类 型 分 析 根 据 一 个 原则 来 提高 类 型 分 析 的 
效率 ， 即 若 一 行 MATLAB 语句 被 执行 两 次 ， 则 第 二 次 执行 的 语句 中 的 变量 ， 其 数据 类 型 和 
大 小 极 有 可 能 和 前 一 次 相同 , 那么 代码 翻译 工作 就 可 以 只 做 一 次 , 即 MATLAB 可 以 “偷懒 " 
一 次 。 

急 MATLAB 不 会 对 超过 三 维 的 数组 进行 加 速 。 

争 当 使 用 for 循环 结构 时 ， 只 有 遵守 以 下 3 条 规则 才 会 被 加 速 ; 


e for 循环 的 范围 只 用 标量 值 来 表示 。 
e for 循环 内 部 的 每 一 条 语句 都 要 满足 上 面 第 1 条 和 第 2 条 规则 , 即 只 使 用 支持 加 速 的 数 
据 类 型 ， 只 使 用 三 维 以 下 的 数组 。 
e 循环 结构 内 只 调用 了 内 建 函 数 ( build-in function )。 
急 当 使 用 if (elsei 和 ，while 和 switch 时 ， 其 条 件 测 试 语句 中 只 使 用 标量 值 ， 才 加 速 运行 。 
争 不 要 在 一 行 中 写 入 多 条 语句 ， 这 样 会 减 慢 运行 速度 ， 而 且 不 利于 程序 的 调试 。 希 望 用 户 不 
要 编写 如 下 语句 : 
RAR.name; for k = 1:20000，y(k) = Sin(xX(k)); end'; 


因此 ， 规 范 地 编写 程序 是 非常 重要 的 。 其 中 道理 不 难 解 释 ， 程 序 越 是 规范 ， 编 译 器 需要 猜 
测 的 事情 就 越 少 ， 效 率 自然 越 高 。 
旬 当 某 条 语句 改变 了 原来 变量 的 数据 类 型 或 形状 ({ 大 小 、 维 数 ) 时 ， 将 会 减 慢 运 行 速 度 。 
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争 对 于 复数 常量 的 书写 ,应 该 这 样 使 用 复 常量 ; x = 7 + 2i， 而 不 是 像 这 样 使 用 : x = 7 + 2*i， 
后 者 会 降低 运行 速度 。 

争 在 程序 结构 上 ， 尽 量 避 免 使 用 循环 。 

争 MATLAB 是 一 种 矩阵 语言 ， 针 对 向 量 和 矩阵 操作 而 设计 。 向 量化 设计 M 文件 可 以 利用 矩阵 
语言 的 特点 , 一 些 for 循环 和 while 循环 可 以 等 价 地 写 为 1 个 向 量 或 者 矩阵 操作 。 改 进 这 样 
的 状况 有 两 种 方法 : 


。 ”尽量 用 向 量化 的 运算 语句 来 代替 循环 结构 。 比 如 下 面 的 程序 : 


i=0 
toz 七 二 0:.01:10 
二 = +17 
Y(i) = sin(t); 
enda 
可 以 替换 为 : 
t = 0:.01:10?; 
Y = Sin(t); 


因此 速度 将 会 大 大 加 快 。 最 常 使 用 向 量化 技术 的 函数 有 : All，diff，permute，permute， 
reshape, squeeze, any, find, logical, prod, shiftdim ,sub2ind, cums, um, ind2sub， 
ndgrid，repmat，sort 和 sum 等 。 


ESSN MATLAB 文档 中 还 有 这 样 一 名 补充: 在 向 量化 程序 代码 的 时 候 还 要 注意 执行 加 速 的 
SEN 。 情况， 用户 可 以 用 MATLABJIT 加 速 器 加 速 自己 的 代码 。 因 此 ， 用 户 需要 根据 实际 
情况 来 确定 向 量化 自己 的 程序 。 


。， 在 必须 使 用 多 重 循环 时 ， 如 果 两 个 循环 执行 的 次 数 不 同 ， 则 程序 最 好 在 外 环 执行 循环 
次 数 少 的 ， 内 环 执 行 循环 次 数 多 ， 这 样 可 以 显著 提高 速度 。 有 时 还 可 以 考虑 用 较 少 循 
环 的 重 数 ， 比 如 例 5-4 中 给 出 的 两 种 实现 程序 ， 读 者 可 以 考虑 用 设计 程序 结构 来 改变 
循环 的 重 数 。 


介 对 于 数组 操作 需要 注意 以 下 两 点 : 


e 预先 分 配 矩 阵 内 存 空 间 , 即 事先 确定 变量 的 大 小 和 维 数 。 这 一 类 的 函数 有 zeros, ones， 
cell，struct 和 repmat 等 。 在 计算 时 只 是 更 换 相应 位 置 的 值 即 可 ， 省 去 了 分 配 内 存 的 时 
间 。 还 有 一 点 ， 在 MATLAB 中 变量 传递 是 按照 复制 方式 ， 所 以 要 尽量 避免 使 用 多 个 子 
函数 ， 或 者 在 调用 函数 时 避免 传递 给 size 很 大 的 变量 。 如 果 多 个 函数 之 间 需 要 同时 使 
用 大 变量 ， 可 以 定义 成 全 局 变量 ( global )， 由 此 可 以 极 大 地 提高 程序 的 执行 速度 。 

e” 当 要 预 分 配 1 个 非 double 型 变量 时 ， 使 用 repmat 函数 可 以 加 速 ， 如 将 以 下 代码 ; 


及 = uint8(zeros(100) ): 
换 成 : 


有 = repmat (uint8(0)，100，100)7 
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当 需 要 扩充 1 个 变量 的 大 小 和 维 数 的 时 候 ， 可 以 调用 函数 repmat 来 实现 。 
争 在 函数 选用 上 可 以 增加 程序 的 计算 时 间 , 这 里 涉及 MATLAB 自 带 的 内 建 函数 和 用 户 自己 定 
义 的 函数 文件 ， 具 体 关 系 如 下 : 


。 ”优先 使 用 MATLAB 内 建 函 数 ， 可 以 将 耗 时 的 循环 编写 进 MEXFile 中 ， 以 达到 加 速 的 目 
的 。 

。 使 用 用 户 函数 文件 而 不 是 脚本 文件 。 把 脚本 文件 转化 为 函数 文件 的 办 法 是 在 程序 最 开 
始 处 加 入 下 面 的 语句 


function outputN = filename' 


因为 在 脚本 文件 中 输入 的 参数 都 已 经 存在 ， 而 不 必 再 增加 参数 ， 所 以 用 户 可 以 把 需要 
输出 的 参数 写 到 outputN 部 分 ， 多 个 参数 可 以 写 为 [output1，output2,…]。 关 于 函数 文 
件 和 脚本 文件 的 详细 介绍 ， 读 者 可 以 参阅 第 6 章 内 容 。 


改进 程序 整体 结构 ， 是 解决 问题 的 最 好 方法 ， 思 路 如 下 两 个 方面 ， 


人 改 用 更 有 效 的 算法 。 
镶 采用 Mex 技术 ， 或 者 利用 MATLAB 提供 的 工具 将 程序 转化 为 C 语言 、Fortran 语言 。 


但 是 在 版 本 R13 以 后 ，MathWorks 声称 已 经 完成 所 有 内 建 函数 及 工具 箱 的 加 速 。 同 时 JIT 
( Just-In-Time ) 代码 生成 技术 从 根本 上 改变 了 原来 MATLAB 程序 代码 的 执行 过 程 。 原 来 版 本 的 
MATLAB 代码 的 处 理 方式 是 ， 先 翻译 成 p-code ( P 码 文件 )， 再 用 p-code 解释 器 执行 。 而 JIT 技术 
可 以 将 许多 MATLAB 程序 直接 转化 为 机 器 指令 ， 省 去 了 中 间 的 解释 工作 所 耗 费 的 时 间 。 该 技术 在 
Intel X86 体系 的 Linux 和 Windows 上 有 额外 优化 的 余地 。JIT 加 速 器 详细 内 容 可 以 参阅 
http:Wwww.mathworks.corycompanynewslettersynews_notes/may03/profilerhtml。 

Mex 技术 对 提高 程序 运行 速度 已 无 用 ， 其 作用 只 是 可 以 增加 程序 的 可 移植 性 而 已 ， 有 时 反而 
还 会 出 现 转 换 后 函数 的 运行 速度 变 慢 的 现象 。 

在 加 速 程序 的 时 候 , 程序 可 能 变 得 不 容易 阅读 ， 此 时 用 户 需要 进行 详细 的 注释 ， 同 时 也 需要 积 
累 一 些 关 于 MATLAB 内 建 函 数 执行 速度 的 知识 ， 用 执行 效率 高 的 函数 可 以 极 大 地 加 快 程序 执行 。 
对 于 一 些 有 用 的 工具 化 程序 段 , 可 以 编写 为 函数 文件 以 作为 自己 的 工具 函数 使 用 , 这 样 不 仅 可 以 加 
速 程 序 ， 还 方便 编程 ， 节 省 了 程序 内 容 输 入 方面 的 工作 量 。 


5.7 ”程序 注释 


在 MATLAB 中 ， 注 释 内 容 放 在 百 分 号 “%” 后 面 ， 对 程序 中 相关 语句 的 功能 做 注释 ， 供 用 户 记 录 
程序 ， 便 于 日 后 回忆 程序 的 整体 功能 。 需 要 注意 的 是 在 换行 符号 “,….” 后 面 写 入 注释 会 引起 错误 ， 
此 需要 在 语句 结束 后 写 入 注释 内 容 。MATLAB 在 编译 的 时 候 会 忽略 百 分 号 后 面 的 内 容 ， 把 从 百 分 号 开 
始 到 本 行 末 尾 的 内 容 作为 注释 部 分 。 当 需要 大 段 注释 语句 的 时 候 ， 用 户 可 以 先 选择 要 注释 的 部 分 ， 再 
在 右键 快捷 菜单 中 选择 Comment 命名 就 可 以 注释 相应 的 语句 了 。 如 果 想 取消 注释 , 可 以 在 右键 快捷 菜 
单 中 选择 Uncomment 命名 。 利 用 大 段 语句 的 注释 和 取消 注释 可 以 控制 是 否 执行 程序 ， 这 一 特点 在 调 
试 或 者 保存 不 用 的 可 选 程序 段 方面 是 非常 方便 的 ， 有 的 内 容 可 以 作为 以 后 的 参考 。 
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有 的 时 候 在 语句 后 面 增加 注释 内 容 还 是 不 能 很 好 地 记录 程序 的 功能 ， 用 户 可 以 使 用 其 他 文档 ， 
如 Word 文档 来 书写 详细 的 记录 ， 同 时 可 以 结合 公式 和 图 形 来 记录 。 


5.8 常见 错误 的 调试 


本 节 介 绍 一 些 程序 调试 方面 的 知识 , 可 以 方便 用 户 快速 建立 需要 的 程序 。 如 果 是 用 户 自己 编写 
一 个 全 新 程序 ， 建 议 应 适当 地 对 程序 进行 编译 ， 检 查 是 否 出 现 错误 ， 发 现 错误 应 及 时 修改 。 如 果 是 
修改 别人 的 程序 ， 需 要 自 上 而 下 地 调试 程序 ， 并 根据 提示 对 程序 做 相应 修改 ， 此 时 程序 的 流程 、 参 
数 取 值 及 要 实现 的 任务 是 非常 重要 的 ， 如 果 没有 这 些 知 识 ,程序 是 很 难 调试 正确 的 。 一 般 地 , 程序 
的 错误 可 以 分 为 语法 错误 和 非 语 法 错误 。 下 面 详细 介绍 这 两 种 错误 的 调试 方法 。 


5.8.1 语法 错误 


语法 错误 是 指 程序 的 错误 可 以 由 MATLAB 通过 编译 显示 出 来 。 这 样 的 错误 用 户 可 以 根据 提示 
进行 修改 ， 一 般 情况 下 这 类 错误 是 很 容易 修改 的 。 下 面 将 列举 一 些 常见 的 语法 错误 。 


5.8.1.1 索引 超出 规定 


因为 索引 超出 规定 范围 而 引起 的 错误 , 这 是 一 种 在 编写 程序 时 经 常 遇 到 的 错误 。 下 面 是 一 段 存 
在 这 样 错 误 的 程序 段 : 


M=5; s% 参数 赋值 
N=6; s% 参数 赋值 
Ma=rand(M,N) ; % Ma 是 随机 和 矩阵 
for n=1:N; 。 
for m=1:M; 
Mb tn,m)= [Ma(n,m)+l1]*sin([n/M+m/N]*pi); g 计算 矩阵 Mb 的 值 
end 
end 


执行 上 述 程序 将 会 出 现 如 下 提示 : 


?3?? RARLLempted to access Mal(6,1); index out of bounds because size(Ma)=[5,6]. 
Error in ==> debug_list at 9 
Mbtn,m)=[Ma(n,m)+1]*sin([n/M+mAN]*Pi) 


在 "??3” 之 后 的 一 行文 字 是 告诉 用 户 出 现 错误 的 信息 ， 其 具体 指出 了 调用 Ma(6,1) 时 超出 和 矩阵 Ma 
的 索引 范围 ， 在 6.5 版 本 中 则 给 出 较为 含糊 的 提示 ( 只 是 给 出 超出 范围 的 提示 )。 后 面 两 行 的 提示 
信息 表明 出 现 错误 的 位 置 ( 在 程序 中 的 行 数 ) 和 相应 语句 。 在 位 置 提示 的 下 面 有 一 条 下 画 线 ， 表 示 
是 1 个 超 链接 ， 用 户 单 击 后 可 以 直接 把 光标 移 到 当前 M 文件 出 错 的 位 置 。 改 正 这 个 错误 的 办 法 是 
把 语句 “Mbltn,M)=[Ma(n,m)+1*sin([IMM+ rN]*pi) ”变换 为 “MbnM)=[Man,m)+1] 
*sin([VM+rmN]*pi);” 就 可 以 了 。 

5.8.1.2 ”和 矩阵 乘法 中 两 个 矩阵 的 尺寸 不 合法 

和 矩阵 乘法 中 两 个 矩阵 的 size 不 合法 ， 这 种 错误 一 般 是 因为 用 户 疏 忽 了 和 珑 阵 的 size 关联 而 引起 

的 ， 比 如 下 面 的 例子 : 
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有 RA = magic(5); 
B = rand(6,5)1， 
C = 有 2B; 


执行 上 面 例子 之 后 将 会 显示 如 下 出 错 信息 : 


?3?3? Error USsing ==> mtimes 

Inner matrix dimensions must agree， 
Error in ==> debug_list at 23 

C = AsB; 


这 里 MATLAB 提示 用 户 和 矩阵 的 维 数 需要 一 致 ， 同 时 指出 了 出 错位 置 和 相关 语句 。 调 整 矩阵 的 
size 就 可 以 改正 这 样 的 错误 了 。 
5.8.1.3 ”警告 提示 信息 
警告 提示 信息 的 处 理 ， 在 一 些 计算 或 者 某 些 函数 的 调用 中 可 能 会 出 现 警告 提示 ， 比 如 : 
Z=1le52*rand(200);  #% 生成 1 个 动态 范围 大 的 矩阵 
axes; % 打开 1 个 空 的 坐标 轴 
mesh(Z) s% 绘图 
执行 上 述 命令 会 出 现 1 个 空 的 坐标 轴 并 出 现 如 下 提示 : 


warning: Axis LIimits outside float precision，use ZBuffer or Painters instead，. Not 
rendering 


出 现 这 样 的 警告 是 因为 数据 范围 超出 了 MATLAB 人 允许 的 范围 ， 改 正 的 办 法 是 :在 使 用 mesh 
命令 之 前 ， 使 用 下 面 的 语句 就 可 以 了 。 


set (gcf,，'Renderer '，'ZBuffer'); 

或 者 ; 
set(gcf, 'Renderer'，'painters'); 

如 果 在 程序 中 出 现 这 样 极 大 数据 或 者 极 小 数据 , 可 能 是 计算 公式 编写 存在 问题 ,而 导致 出 现 这 
么 大 的 数 。 在 处 理 警 告 之 前 ， 用 户 应 该 检查 结果 是 否 满足 物理 现实 。 

对 于 MATLAB 弹出 的 警告 信息 ， 有 的 可 能 不 影响 程序 的 执行 ， 但 是 用 户 应 该 仔细 核查 自己 的 
程序 ， 避 免 警 告 出 现 。 
5.8.1.4 输出 矩阵 大 小 的 限制 

某 些 函数 对 于 输出 矩阵 的 size 做 了 限制 ， 如 zeros，rand 和 ones 等 函数 。 比如 下 面 的 语句 ; 
M=rand(100000,10000); 

MATLAB 会 提示 用 户 如 下 信息 : 
??? Maxirmum variable size allowed by the program is exceeded . 


表示 size 参数 超出 了 MATLAB 允许 的 范围 ， 把 数值 变 小 即 可 。 在 程序 设计 中 可 以 考虑 用 多 个 
小 矩阵 来 组 合成 为 大 的 短 阵 。 
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5.8.1.5 ”表达 式 非法 
表达 式 非法 也 会 引起 错误 ， 这 类 错误 是 因 表达 式 中 的 符号 错误 而 引起 的 ， 如 


X=1; 
Y=exp (-0.5x) 7 


将 会 出 现 如 下 提示 : 
Error: Unexpected MATLAB expression. 

这 里 在 0.5 和 x 之 间 缺 少 1 个 运算 符号 ， 加 上 “+ ”“-”"*” 和 “/” 等 就 可 以 正常 运行 了 。 
X=0:0.01:5; 
Y=X^21 

执行 上 面 的 语句 会 出 现下 面 的 提示 ， 


??? Error Using ==> mpower 
Matrix muUSt be square . 


只 有 用 方 和 矩阵 的 时 候 乘 方 运算 “人 ” 才 是 合法 的 ， 而 这 里 x 是 1 个 向 量 ， 只 能 写 为 点 运算 ， 即 
“.^ 人 ”这样 将 进行 x 的 各 元 素 的 对 应 震 运 算 。 类 似 的 矩阵 元 素 对 应 相 除 还 可 以 使 用 表达 式 “A/B"。 


5.8.1.6 因 变 量 类 型 错误 
因 变 量 类 型 引起 的 错误 是 因为 不 同 数据 类 型 的 混用 而 引起 的 ， 如 


Syms X Y # 定义 符号 变量 
f = inline('x+y'5); # 定义 内 联 函 数 
Iv = int (int(f,x,1,2),y,1,2) $% 进行 积分 计算 


执行 后 会 提示 : 


??? Undaefined function or method 'int' for input arguments of type 'inline'， 
Error in ==> debug_list at 26 
IV = int(int(E,x,1,2),Y,1I,2) 
就 是 说 , f 的 类 型 不 能 取 inline, 对 于 int 函数 ,被 积 函 数 可 以 选择 符号 型 变量 和 字符 串 型 变量 。 
可 能 出 现 的 错误 有 很 多 , 这 里 仅 列 出 经 常 遇 到 的 几 种 , 用 户 在 实际 应 用 中 还 需要 从 不 同 角度 思 
考 如 何 修改 错误 ， 在 查找 错误 原因 时 需要 避免 思维 定 势 。 对 于 程序 执行 过 程 中 出 现 的 错误 和 提示 ， 
用 户 可 以 先 根据 提示 进行 修改 。 此 外 还 可 以 考虑 在 网 络 上 查找 答案 ， 或 者 找 熟 练 的 人 帮忙 。 在 问题 
得 到 解决 后 建议 用 户 做 一 下 记录 ， 便 于 日 后 解决 类 似 问题 。 


5.8.2 非 语 法 错误 


非 语 法 错误 是 指 调试 的 时 候 , 程 序 正常 运行 而 不 会 出 现 错误 提示 ,但 是 程序 结果 不 正确 的 情况 。 
这 类 错误 很 难 改正 , 一 般 是 通过 用 户 自己 的 专业 知识 背景 来 检验 输出 结果 是 否 合理 。 这 就 要 求 用 户 
具有 较 多 的 经 验 , 才 有 可 能 发 现 并 改正 程序 中 的 问题 ， 其 修改 过 程 可 能 需要 花费 很 多 时 间 。 建议 用 
户 按 下 列 顺序 来 修正 程序 : 先 检查 参数 赋值 是 否 正确 ,再 检查 程序 结构 的 正确 性 ( 如 循环 和 分 支 结 
构 )， 最 后 分 段 程序 ， 逐 段 排查 。 如 果 一 时 无 法 发 现 错误 ， 建 议 用 户 重新 建立 程序 流程 来 编写 新 的 
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程序 。 下 面具 体 介绍 两 种 典型 情况 。 

5.8.2.1 ， 语句 顺序 不 当 

为 语句 顺序 不 当 而 引起 的 错误 。 比 如 例 5-4 中 的 程序 写 为 
17 ， $% 初始 化 加 数 a 


已 


b = 2; ss 初始 化 加 数 b 
N = 0; ”加 法 算式 个 数 计数 器 
while a<100; 
ifE a+b<100.5; % 验证 是 否 溢出 
disp( [num2str(a),'+'ynum2str(b),，'=' num2str(atb)]) % 输出 加 法 算式 
b = b+1; gs 变化 b 
elSe 
己 = a+l' # 变化 a 的 值 
b = a+l; ， 变化 初始 化 b 的 值 
endQ 
N = N+1/ s# 增加 算式 个 数 
end 
N 


此 时 计算 得 到 的 N 值 为 2549， 与 正确 的 值 2450 不 一 样 ， 但 是 程序 执行 过 程 中 不 会 出 现 错误 
提示 。 此 时 检验 程序 是 否 正确 ， 只 能 通过 另外 一 个 程序 版 本 来 进行 对 比 ， 或 者 与 别人 的 结果 比较 ， 
或 者 变化 特殊 的 参数 进行 检验 。 特 别 是 在 科学 研究 中 , 不 但 要 求 得 到 不 出 现 错误 的 程序 , 还 要 求 计 
算 结 果 准 确 。 专 业经 验 、 特 殊 值 时 的 结果 ( 比如 参数 等 于 0 或 者 等 于 1 等 ) 公开 发 表 的 结果 ( 大 
多 数 情况 下 是 正确 的 ) 等 对 于 检验 程序 的 正确 性 都 是 非常 重要 的 。 


5.8.2.2 ”while 循环 的 错误 


while 循环 不 停止 或 者 不 执行 是 while 循环 经 常会 发 生 的 情况 ， 此 时 程序 不 出 现 错误 提示 ， 只 
能 通过 过 程 量 的 变化 来 查看 结果 。 其 中 , 程序 执行 不 停止 可 能 是 结束 条 件 有 误 或 者 所 考虑 的 算法 不 
收敛 ， 而 程序 不 执行 是 结束 条 件 有 误 或 者 参数 赋值 不 正确 。 


N = 1 # 初 始 化 次 数 计数 器 

rand('state',0); # 初始 化 rand 函数 状态 数 

RARL = rand(1,100)); 多 人 

A2 = rand(1,100); ss 第 二 振幅 的 初始 

R2 = R2/sqrt(sum(AL.^2));， S% 站 摧 个 信号 的 能 和 

P1 = rand(1,100);  $ 第 一 相位 的 初始 化 

ALt = 100; % 过 程 位 相 的 初始 化 

while sum(abs(RA1L-aALt))>1le-47; 
R2P = fft(R1.wexp(PL*i)); # 傅 里 叶 变 换 
P2t = angle(R2p); % 提取 第 二 位 相 
R1Lt = ifft(aA2.*exp(i*Pp2t)); gs 逆 傅 里 叶 变 换 
P1 = angle(RAlt); g 提取 第 一 位 相 
N=N+1TI 

End 


上 述 程序 是 1 个 简单 的 G-S 位 相 恢 复 算法 。 执 行 这 个 程序 的 时 候 ， 程 序 将 不 停 地 执行 ， 表 明 
算法 是 不 收敛 的 ， 满 足 不 了 预 设 的 精度 。 为 了 让 程序 快速 结束 任务 的 计算 ， 还 需要 做 算法 改进 。 


NL=0); % Nt 用 于 记录 循环 的 次 数 
R = 2; % 欲 开 方 的 数 
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xl = 2; g% 初始 值 

x2 = 3; 初始 值 

while abs (xl-x2)>1le-6; 
x2 = 0.5*[xl1+R/xl]; sg 和 迭代 公式 进行 开 方 计算 
X1  X2; s# 赋值 
Nt = NEt+17 s 次 数 票 加 


Enda 


这 个 程序 实现 了 利用 牛顿 法 计算 VR 的 值 ， 当 用 户 执行 上 面 的 程序 的 时 候 ， 将 会 得 到 Nt=1， 
x1=x2=1.5， 而 与 期 望 的 V2 相差 很 远 ，Nt=1 说 明 程序 执行 一 次 就 停止 了 。 仔 细 分 析 这 个 程序 可 
以 发 现 ， 语 句 x1=Xx2 执行 之 后 ， 使 得 程序 结束 条 件 abs(x1-x2)> 1e-6 成 立 ， 因 此 把 x1=x2 转移 到 
语句 “x2 = 0.5*[x1+R/x1];” 前 面 就 可 以 了 。 

可 见 对 于 非 语法 错误 ， 用 户 需要 反复 仔细 调试 程序 , 才 可 能 得 到 正确 的 程序 。 有 时 隐藏 的 错误 
是 很 难 发 现 的 ， 此 时 还 可 以 考虑 发 动 多 人 分 别 考虑 这 个 问题 ， 采 用 发 散 思 维 来 挑 错 。 


5.9 小 结 


本 章 主要 介绍 了 程序 结构 方面 的 知识 。 程 序 结构 是 程序 的 框架 ， 如 同人 体 中 的 骨 骼 ， 一 个 
好 的 程序 结构 可 以 帮助 用 户 编写 和 调试 程序 。 本 章 首 先 介绍 了 条 件 语 句 ， 给 出 了 如 何 建立 条 件 
语句 和 等 效 改进 方法 。 和 条 件 语 句 相 似 的 一 种 格式 是 switch 语句 ， 该 语句 可 以 带 有 多 个 分 支 情 
况 。 循 环 结构 是 用 户 经 常 接触 的 , 它 可 以 通过 for 语句 和 while 语句 来 实现 确定 次 数 和 不 定 次 数 
的 循环 结构 。 递 归结 构 是 一 种 自身 调用 的 格式 ， 本 章 通过 两 个 例子 介绍 了 递归 结构 的 设计 与 调 
试 。 人 机 交互 函数 是 可 以 实现 用 户 和 计算 机 互动 操作 的 函数 。 另 外 , 本 章 还 概括 了 加 速 MATLAB 
程序 的 几 个 编程 技巧 ， 同 时 描述 了 程序 注释 时 需要 注意 的 事项 及 如 何 更 好 地 利用 这 一 功能 ， 最 
后 讲述 了 调试 程序 时 需要 注意 的 一 些 事项 。 


镶 全 会 
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@ 脚本 文件 介绍 脚本 文件 相关 知识 。 
人 函数 文件 介绍 函数 文件 的 定义 、inline 函数 、 分 段 函数 、 自 函数 和 私有 函数 。 
人 函数 文件 与 脚本 文件 的 优 缺 点 比较 

人 数据 文件 介绍 数据 文件 的 读 写 操作 。 

@ 图 片 文 件 介绍 图 片 文 件 的 读 写 操作 。 

视频 和 音频 文件 介绍 这 两 种 文件 的 读 写 操作 。 

人 文件 批 处 理 结构 “给 出 文件 批量 处 理 的 程序 结构 。 


MATLAB 输入 命令 的 方式 大 体 有 两 种 。 一 种 是 在 工作 空间 中 直接 输入 简单 的 命令 ， 这 种 方式 适应 
于 语句 比较 简单 、 输 入 方便 ， 而 且 处 理 问题 比较 特殊 、 没 有 一 定 的 重复 性 和 普遍 性 、 错 误 处 理 比 较 简 
单 的 场合 。 这 种 方式 主要 体现 了 MATLAB 作为 一 种 “数学 演算 和 图 视 化 工具 ”的 特点 。 读 者 在 以 上 的 
学 习 中 已 经 体会 到 这 种 工作 方式 的 优越 性 和 方便 之 处 ， 这 正 是 其 他 数学 计算 工具 和 编程 语言 无 法 比拟 
的 。 然 而 单 有 这 方面 的 功能 还 不 足以 体现 MATLAB 的 强大 、 完 整 性 和 容易 使 用 的 特点 。 在 进行 大 量 重 
复 性 计算 和 输入 时 ， 单 靠 直接 输入 是 一 件 非常 烦琐 的 事情 。 

而 MATLAB 提供 了 另 一 种 工作 方式 ， 就 是 M 文件 的 编程 方式 。M 文件 的 语法 类 似 于 一 般 的 高 
级 语言 ， 是 一 种 程序 化 的 编程 语言 ， 但 M 文件 又 具有 其 自身 的 特点 。 它 只 是 一 种 简单 的 ASCII 码 
文本 文件 ， 语 法 比 一 般 的 高 级 语言 都 要 简单 ， 程 序 比较 容易 调试 ， 人 机 交互 性 强 。MATLAB 是 一 种 
解释 性 的 编程 语言 ， 即 逐 句 地 解释 运行 程序 。MATLAB 在 初次 运行 M 文件 时 ， 要 将 M 文件 编程 代 
码 装 入 内 存 中 , 此 过 程 会 极 大 降低 程序 的 执行 速度 , 但 再 次 运行 该 程序 时 便 会 直接 从 内 存 中 取出 代 
码 运行 ， 又 会 加 快 程序 的 运行 速度 。MATLAB 的 M 程序 是 注重 数学 计算 的 一 种 编程 语言 ， 直 接 采 
用 复数 矩阵 作为 运算 的 单位 ， 因 此 不 论 从 形式 上 还 是 从 语法 上 来 说 ， 都 还 算 比较 容易 维护 。 此 外 ， 
由 于 MATLAB 是 使 用 C 语言 编写 而 成 的 , 因此 它 与 C 语言 有 着 干 丝 万 缕 的 联系 , 如 果 熟 悉 C 语言 ， 
学 握 M 文件 的 编写 会 比较 简单 。 

M 文件 可 以 在 任何 文本 编辑 器 ( 如 记事 本 、 写 字 板 、Word ) 中 进行 编辑 、 存 储 、 修 改 和 读 取 。 
利用 M 文件 ， 可 以 自 编 函 数 ， 对 已 经 存在 的 函数 进行 扩充 和 修改 ， 因 此 对 MATLAB 进行 二 次 开发 
是 非常 方便 的 。M 文件 按 形式 可 以 分 为 两 种 ， 即 脚本 文件 ( 也 称 命令 文件 ) 和 函数 文件 。 两 种 文 
件 的 扩展 名 都 是 “,m'。 

本 章 将 介绍 MATLAB 自身 文件 的 处 理 ， 以 及 相关 数据 文件 的 处 理 方法 ， 此 外 介绍 文件 的 批 处 
理 方法 以 便于 在 处 理 大 量 文 件 时 书写 程序 。 


6.1 脚本 文件 
如 果 要 输入 较 多 的 语句 , 而 且 要 经 常 对 这 些 命令 进行 重复 输入 修改 , 可 以 利用 脚本 文件 来 简单 
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且 方 便 地 处 理 。 可 以 将 要 重复 输入 的 所 有 语句 按 先 后 顺序 放 到 一 个 扩展 名 为 “.m” 的 M 文件 里 面 ， 

每 次 开启 MATLAB 之 后 只 要 输入 M 文件 的 名 称 即 可 执行 该 文件 ， 此 外 在 M 文件 窗口 单 击 【 run 
按钮 或 者 按 【 F5 ]】 键 也 可 以 执行 M 文件 。 需 要 注意 的 是 ，M 文件 要 存放 在 MATLAB 的 搜索 路 径 下 

并 且 文 件 名 不 能 和 MATLAB 自 带 函数 ( 包括 内 建 函数 和 工具 箱 里 面 的 函数 ) 重 名 ， 否 则 会 产生 混 
淆 并 导致 一 些 不 必要 的 麻烦 。 如 果 当 前 路 径 下 没有 要 执行 的 文件 ( script_file.m 文件 )， 那 么 执行 
该 文件 ( 单 击 【 run 】 按 钮 或 者 按 【 F5 】 键 ) 时 ， 将 会 弹出 如 图 6.1 所 示 的 窗口 。 








图 6.1 文件 不 在 当前 路 径 时 弹出 的 对 话 杠 
单 击 按钮 程序 即 可 执行 ,同时 当前 路 径 切 换 为 文件 scripL- file.m 所 在 的 路 径 。 是 在 命令 窗 
中 输入 文件 名 script_file 来 执行 该 文件 : 


>> SCript_file 
将 会 出 现下 面 的 提示 : 
?3? Undefined function or variable 'script_file'. 


实际 上 ， 脚 本 文件 和 DOS 下 的 批 处 理 命令 ， 与 安 命令 等 有 相似 之 处 ，MATLAB 对 脚本 文件 的 
执行 等 价 于 从 命令 窗 中 按 顺 序 执行 文件 中 所 有 指令 。 

函数 文件 中 的 语句 可 以 访问 MATLAB 工作 空间 ( workspace ) 中 的 所 有 变量 。 在 脚本 文件 运行 
过 程 中 产生 的 所 有 变量 都 等 价 于 直接 从 MATLAB 工作 空间 中 建立 ， 因 而 任何 其 他 的 函数 文件 和 函 
数 都 可 以 访问 这 些 变 量 。 这 些 变 量 产生 后 就 一 直 保 存在 内 存 中 ， 可 以 使 用 函数 clear 来 删除 工作 空 
间 中 的 特定 变量 或 者 所 有 变量 。 

在 M 文件 编写 的 时 候 , 文件 中 的 第 1 行 注 释 将 会 加 入 到 当前 路 径 窗口 下 的 “Description ”中 ， 
描述 该 文件 的 功能 ， 借 此 可 以 方便 地 查找 文件 。 比 如 在 script_file.m 文件 中 输入 如 图 6.2 所 示 的 注 
释 。 


在 这 虹 入 和 对 本 文件 的 描述 
clear .close ai 


0 





图 6.2 当前 路 径 窗口 
在 当前 路 径 窗口 中 将 会 出 现 如 图 6.3 所 示 截 图 中 Description 选中 的 “在 这 里 输入 对 本 文件 的 
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描述 ”文字 。 这 样 使 用 者 可 以 用 这 个 方法 存储 和 管理 自己 的 文件 。 





6.3 当前 路 径 窗口 截图 
如 果 对 第 1 行 注释 进行 修改 ,MATLAB 将 在 下 次 启动 后 更 新 注释 的 内 容 。 如 果 使 用 者 在 Current 
Directory 窗口 中 单 击 鼠 标 右键 ， 再 在 弹出 的 快捷 菜单 中 选择 Refresh 命令 , 就 可 以 更 新 修改 后 的 注 
释 信息 ， 如 图 6.4 所 示 。 


Copy 


ie Bit 立 o ob liadee 


‖ [oswmeswnmboomenos 司 Fle Fier 


口 -schos doc DOcC File 20. 六 月 .7009 0904 上 午 





图 6.4 交互 式 更 新 注释 信息 


6.2 函数 文件 


如 果 一 个 M 文件 的 第 1 行 非 注释 性 语句 含有 关键 词 function， 那 么 这 个 文件 就 叫做 函数 文件 。 
大 多 数 函 数 文件 的 第 1 行 都 是 以 function 开头 的 。 函 数 文件 在 广义 上 可 以 认为 是 MATLAB 子 函 数 ， 
其 作用 与 其 他 高 级 语言 的 子 函数 基本 相同 , 都 是 为 了 实现 某 一 功能 而 定义 的 。MATLAB 本 身 提 供 了 
数 十 个 工具 箱 ， 如 信号 处 理 、 图 像 处 理 、 样 条 分 析 、 神 经 网 络 以 及 金融 财政 等 。 这 些 工具 箱 扩展 了 
MATLAB 的 功能 和 应 用 领域 ， 同 时 MathWorks 公司 也 不 断 推出 新 的 工具 箱 ， 这 样 很 多 学 科 都 可 以 
利用 MATLAB 语言 来 进行 科学 研究 。 很 多 有 用 的 函数 就 是 以 函数 文件 编写 的 ， 然 而 部 分 函数 文件 
的 核心 代码 是 看 不 到 的 。 只 要 能 确切 地 知道 函数 文件 的 输入 和 输出 关系 ， 就 可 以 放心 地 使 用 了 。 函 
数 文件 是 扩展 MATLAB 自身 功能 并 对 其 进行 二 次 开发 的 强 有 力 的 工具 。 


6.2.1 函数 的 定义 
函数 定义 的 一 般 步 骤 是 ， 首 先 在 函数 文件 的 第 一 行 输入 : 
function [YL1，Y2，…] = function_name (X1，X2，…); 


其 中 function 是 关键 词 ， 显 示 为 蓝 色 。y1，Yy2 等 是 输出 参数 ，x1，x2 等 是 输入 参数 ， 它 们 可 
以 是 MATLAB 中 不 同类 型 的 变量 。function_name 是 函数 文件 名 , 它 可 以 是 和 函数 文件 功能 相关 的 
英文 单词 ， 其 首 字 母 只 能 是 英文 字母 ， 后 面 可 以 是 下 画 线 、 数 字 、 英 文字 母 等 ， 但 是 如 空格 、 
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“%"、"+" 等 字符 是 不 允许 的 。 
下 面 是 函数 文件 的 例子 , 该 程序 计算 实现 用 两 点 在 两 个 坐标 系 中 的 坐标 值 , 建立 起 坐标 系 之 间 

的 变换 矩阵 ， 旋 转 矩 阵 R、 平 移 和 矩阵 S 及 缩放 系数 ， 具 体内 容 如 下 : 
Eunction [R,S,X] =zrotate_shiftt(xXl,yl,x2,Y2,XL,Y1,X2,Y2) 7; 
和 & 是 旋转 矩阵 ， S 是 平移 矩阵 X 是 缩放 系数 

(xl1,y1) 和 (x2,y2) 是 第 一 坐标 系 的 坐标 

(X1,Y1) 和 (X2,Y2) 是 第 二 坐标 系 的 坐标 5 
angle([X1-X2]+i*[Y1-Y2])-~angle([x1-x2]j+i*[Yy1-Y2]): 

[cos (A) ,~-sin(aA) ;sin(A) cos{(A) ] 7 
abs([X1L-X2]+i*[Y1-Y2])/abs([xl-x2]+i*[YyY1-Y2]); 

[X17;Y1L]-Rx [xl7YI]*K” 
在 第 1 行 下 面 一 般 对 这 个 程序 的 功能 及 参数 的 意义 进行 了 说 明 ， 然 后 进行 相关 计算 。MATLAB 
中 大 部 分 可 以 看 到 源 程序 的 函数 都 是 这 样 的 结构 。 


6.2.2 ”输入 输出 参数 的 控制 


有 的 时 候 , 函数 文件 的 输入 和 输出 变量 的 个 数 是 不 确定 的 ,根据 不 同 的 应 用 ， 输 入 和 输出 参数 
可 能 有 所 变化 。MATLAB 中 提供 了 函数 nargin 和 nargout 来 计算 输入 和 输出 参数 的 个 数 。 下 面 介绍 
这 两 个 函数 的 使 用 方法 。 

函数 nargin 可 以 返回 输入 参数 的 个 数 ， 表 6.1 是 此 函数 使 用 的 一 个 函数 文件 的 例子 。 


表 6.1 一 个 函数 文件 例子 


多 民风 另 邮 和 pp 


行 号 程序 内 容 

1 function y = spview(fun,x0,tol); 

2 % 将 fun 按 Taylor 级 数 展开 ， 要 求 在 X0 处 的 误差 小 于 tol 
3 % Example: 

4 % fun = 'exp(-2*x 人 人 2) 

5 %x0 = 1; 

6 % tol = 1e-3; 

7 %y = Spviewlfun,x0,tol); 

8 if nargin == 2; 

9 tol = 1e-3; % 设置 tol 的 默认 值 
10 elseif nargin ==1; 

11 tol = 1e-3; % 设置 tol 的 默认 值 
12 x0 = 1; % 设置 x0 的 默认 值 

13 end 


14 fs = sym(fun); % 把 fun 转化 为 符号 表达 式 
15 fun = inline(fun); % 把 fun 转化 为 内 联 函 数 
16 n= 1 % 初始 化 展开 级 数 的 最 高 宕 次 
17 D = inf; % 初始 化 实时 误差 


18 while abs(D)> =tol; 

19 y = taylorlfs,n); % 计算 最 高 次 因为 n 的 Taylor 展开 
20 D = fevallfun,x0)-subs(yx0); % 更 新 实时 误差 D 

21 n = n+1; % 增加 展开 级 数 的 最 高 蝴 次 

22 end 


在 这 个 程序 中 , 第 2 行 描述 了 这 个 程序 的 功能 。 第 4~7 行 是 调用 函数 spview 的 一 个 例子 。 第 
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8~-13 行 利用 nargin 函数 检查 输入 参数 的 个 数 ， 当 输入 参数 少 于 3 个 的 时 候 , 程序 将 进行 判断 ， 把 
未 定义 的 变量 赋值 ， 如 果 不 定义 缺少 的 变量 ， 下 面 将 会 出 现 变量 未 定义 的 错误 提示 。 第 14 一 18 行 
定义 过 程 参 数 。 第 18~-22 行 循 环 计 算 Taylor 分 解 。 计 算 演 示例 子 的 程序 有 : 


fun = 'exp(-22X^2) 7 X0 = 1 ol = Le-3? 


Y1 = spview(fun,x0,tol) # 格式 1 
Y2 = spview(fun,x0) # 格式 2 
Y3 = spview(fun) 当 格式 3 


用 .3 种 不 同 输入 参数 调用 spview 函数 ， 所 得 结果 如 下 : 


yl1 = 1-2xx^2+2wx^4-413wx^6+2/3wx^8-4/15*x^10+4/45*x^12-8/315*x^14+2/315*x^16-412835x*x^18 
Y2 =1-2xx^2+2wx^4-4/3wx^6+273wx^8-4715wx^10+4/45wx^12-8/315*x^14+2/315*x^16-4/2835xx^18 
yY3 =1-2xx^2+2vx^4-4/3wx^6+273wx^8-4/15wx^10+4/45wx^12-8/315*x^14+2/315*x^16-4/2835*x^18 
可 见 3 种 调用 方式 ， 默 认 参 数 起 了 作用 ， 因 此 得 到 了 相同 的 结果 。 在 应 用 中 可 以 根据 需要 使 
用 不 同 输入 参数 个 数 来 调用 函数 文件 。 
MATLAB 提供 了 函数 nargout 来 返回 输出 参数 的 个 数 , 利 用 这 个 函数 可 以 输出 不 同 的 参数 个 数 ， 
表 6.2 是 一 个 例子 。 


表 6.2 ”可 以 输出 不 同 参数 个 数 的 例子 


行 号 程序 内 容 

1 function [xp,yp] = Mira_Modella,b,x,y); 

2 % Mira 曲线 

3 % Mira_Model(a,b,x,y) 

4 N = 12000; % 设置 迁 代 次 数 

5 xn = zeros(1,N); % 初始 化 X 轴 坐 标 

6 yn = xni % 初始 化 Y 轴 坐 标 

7 xn(1) = X; % 设置 x 的 初 值 

8 yn(1T) = Yi % 设置 y 的 初 值 

9 Fx = ax*x(1) 十 2*(1-a)*x(T) 人 2/[1+x(1) 人 2]; % 计算 函数 F(x) 
10 fork = 2:N; 

11 xn(k) = yn(k-D)*b+F(axn(k-1T); % 和 迭代 计算 x 的 值 

12 Fx = axx(k)+2*(1-a)*x(k)^2/[1+x(k)^2]; % 计算 函数 F(x) 
13 yn(k) = -xn(k-1)+F(axn(k));)  % 迭代 计算 y 的 值 

14 end 

15 if nargout == 0; % 无 输出 

16 plot(xn,yn,k.markersize',2); % 绘制 点 图 

17 elseif nargout == 1 i; % 一 个 输出 

18 xp = xni % 输出 X 轴 坐标 
19 elseif nargout == 2; % 两 个 给 出 

20 xp = xni % 输出 X 轴 坐标 
21 yp = yn; % 输出 Y 轴 坐 标 
22 end 





函数 文件 Mira_Model 实现 了 Mira 模型 的 迭代 计算 ， 该 模型 的 数学 描述 如 
Re 


9 羽 ， 函 》 
yu = 一 区 十 已 (2 其 中 Q. 和 是 参数 ， 数 Fo) 定义 为 
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2(1-a) 产 
1 二 好 


下 (xz)= ax+ 


函数 Mira_Model 可 以 有 如 下 3 种 带 有 不 同 输出 参数 的 调用 方式 。 


Mira_Model (a,b,x,y); % 无 输出 直接 绘图 
xp = Mira_Model(ab,x,y); g% 仅 输出 X 坐标 
[xp，yYp] = Mira_Model(a,b,x,y); s# 同 时 输出 X 和 YY 坐标 

在 程序 Mira_Model.m 中 ， 第 1 行 定 义 函数 名 、 输 入 参数 及 输出 参数 。 第 2--3 行 是 程序 功能 
及 调用 的 注释 。 第 4~9 行 定义 参数 及 相关 变量 的 初始 化 。 第 10~14 行 是 迭代 计算 各 步 xx 和 火 的 
数据 。 第 15 一 22 行 设 置 输出 参数 的 取 值 情况 。 该 程序 的 输出 情况 是 : 没有 参数 时 ， 程 序 将 直接 根 
据 进 代数 据 进行 绘图 ， 有 1 个 输出 参数 时 ， 将 输出 X 轴 坐 标的 数据 ， 有 2 个 输出 参数 时 ， 输 出 X 
轴 和 Y 轴 数 据 。 可 以 根据 实际 需要 选用 不 同 的 输出 参数 个 数 。 

用 下 面 的 程序 调用 函数 Mira_Model 进行 计算 ,a=0.7，b=0.9998， 初 始点 坐标 为 (0,12.1) 时 的 
Mira 模型 结果 如 


subplot (121); g# 第 一 子 图 

Mira_Model(0.7,0.9998,0,12.1); # 调用 Mira_Model， 无 输出 参数 

set (gca, 'Position',[0.13 0.41 0.327023 0.515]); % 重 置 坐标 轴 位 置 

set (gca, 'Fontsize',12); s# 重 置 坐标 轴 字 体 大 小 

subplot (122) ; g 第 二 子 图 

[x,y]=Mira_Model(0.7,0.9998,0,12.1); # 计算 数据 

hold on; 

plot (x(1:2000),y(1:2000)，'k.…'markersize',2)， g 1~2000 点 用 黑色 画 
plot (x(2001:4000),y(2001:4000)，r.'markersize',2); sg 2001~4000 点 用 红色 画 
plot (x(4001:6000),y(4001:6000)，'g.'w'markersize',2); #s 4001~6000 点 用 绿色 画 
plot(x(6001:8000),y(6001:8000),'b.''markersize' ,2) 7 $% 6001~8000 点 用 蓝 色 画 


plot(x(8001:10000),yY(8001:10000)，'y. markersize' ,2); #% 8001~10000 点 用 黄色 画 
plot (x(10001:12000),y(10001:12000)，'c.'wv'markersize',2); . %$10001~12000 点 用 青色 画 
set (gca, 'Position',[0.577977 0.41 0.327023 0.515])， g 重 置 坐标 轴 位 置 

set (gca,'Fontsize',12); g% 重 置 坐 标 轴 字 体 大 小 


执行 上 面 的 程序 得 到 如 图 6.5 所 示 的 图 形 。 左 图 是 直接 的 绘图 结果 ,从 中 可 以 看 出 整个 迭代 结 
果 的 轮廓 ， 从 右 图 可 以 观察 到 不 同和 迭代 步骤 的 位 置 分 布 ， 其 中 设置 了 不 同 颜色 绘图 ， 便 于 观察 。 
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图 6.5 ”Mira 模型 对 应 的 图 案 
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6.2.3 ”使 用 内 联 函 数 


前 面 介绍 了 函数 文件 的 编写 方法 , 这 里 介绍 一 种 利用 MATLAB 提供 的 函数 inline 定义 的 内 联 函 
数 , 这 样 定义 的 函数 和 一 般 的 函数 文件 用 法 类 似 ， 适用 于 表达 式 较为 简单 的 函数 。 该 函数 的 调用 格 


式 为 : 
fun = inline(expr); # 格式 1 
fun = inline(expr，argl，arg2，...); 当 格式 2 


参数 说 明 : fun 是 所 定义 的 内 联 函数 的 名 称 。expr 是 表达 式 对 应 的 字符 串 ， 使 用 者 需要 正确 地 
输入 ， 否 则 在 利用 fun 进行 计算 的 时 候 会 出 现 错误 提示 。arg1，arg2 等 是 函数 中 变量 的 名 称 。 在 格 
式 1 中 内 联 函 数 fun 中 的 变量 顺序 是 按照 字母 先后 顺序 排列 的 。 在 格式 2 中 可 以 指定 变量 的 顺序 。 


例 6-1: 利用 inline 定义 的 函数 。 

上 (xz)=xsinx 一 妇 cos 关 

万 (z)=2/L2+sing(x)],， 其 中 8(xz)=x+3cos() 
户 ( 吉 7)=xcosy 一 六 


对 于 函数 矿 00) 的 表达 式 可 以 使 用 函数 inline 如 下 定义 : 
funl = inline('x*sin(x)-x^2*cos(x^2)') 

执行 上 面 的 语句 出 现 如 下 结果 : 
funl = 


Inline function: 
funl (x) = XwSsin(X)-X^2*cos(X^2) 


. 但 是 上 面 的 结果 只 是 支持 X 为 单个 数字 ， 如 运行 下 面 的 语句 ， 


x = linspace(0,4,100); # 生成 数据 采样 点 
plLot (x, fun1 (x) ) gs 绘图 


将 会 得 到 如 下 提示 ， 


?3?? Error using ==> inlineevVal 

Error in inline expression ==> X*Sin(X)-Xx^2*Cos (X^2) 
??? Error using ==> * 

Inner matrix dimensions muSt agree. 


因此 需要 把 fun1 的 定义 写 为 下 面 的 形式 : 
funl = inline('x.-wsin(X)-xXx.^2.*cos(X.^2) ') 
此 时 fun1 可 以 支持 向 量 运算 。 
第 2 个 函数 Po 可 以 如 下 定义 : 


gx = inline('X+3xcos(X.^3) 7") 7 
fun2 = inline('x.^2./[2+sin(gx(Xx))]"，'Xx'7 0 和 尖 


这 是 一 个 不 同 inline 函数 之 间 调 用 的 问题 ， 下 面 的 fun2p 是 表达 式 的 综合 : 
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fun2pP = inline('x.^2./[2+Sin(X+3xCos (X.^3))]); 
通过 下 面 的 语句 ， 得 到 的 图 形 如 图 6.6 所 示 。 


x = linspace(0,4,100); % 生成 数据 采样 点 
plot (x, fun2 (x,gx) ，'F'X, fun2p(x)，'b') g 绘制 两 条 曲线 进行 比较 
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图 6.6 调用 inline 定义 的 函数 进行 绘图 
可 见 fun2 的 红色 曲线 完全 被 fun2p 的 蓝 色 曲 线 所 覆盖 ， 即 fun2 和 fun2p 是 等 价 的 。 可 以 根据 
这 个 方式 把 较 长 表达 式 中 重复 的 部 分 写 为 inline 函数 的 形式 ,此 外 还 可 以 把 长 的 表达 式 分 为 两 个 短 
的 表达 式 。 
第 3 个 函数 训 0 可 以 按照 下 面 的 方式 进行 定义 : 


fun3 = inline('x*cos(y)-Y^2') 


输出 如 下 : 
fun3 = Inline function: 
fun3 (X,Y) = X*Cos(y)-Yy^2 


可 以 看 出 fun3 中 变量 的 顺序 是 按 字母 顺序 排列 的 ， 如 果 用 户 希 望 的 顺序 不 是 按照 字母 顺序 排 
列 ， 那 么 需要 指定 一 下 ， 即 ; 


fun3 = inline('X*cos(y)-Yy^2'5，yY'，'X') 


fun3 = Inline function: 
fun3 (Y,x) = xcos(y)-Y^2 


在 表达 式 中 还 可 以 输入 一 个 向 量 表达 式 ， 比 如 : 
2 十 COSX 
已 (z)= 


1+Ssin x 
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可 以 如 下 定义 这 个 向 量 函 数 ， 
fun4 = inline('[2+cos(x);1+sin(x)]') 
按照 如 下 的 方式 调用 fun4: 
y = fun4(pi) 
输出 如 下 : 


Y= 1.0000 
1.0000 
使 用 inline 定义 的 函数 可 以 在 脚本 文件 中 调用 ,就 不 必 单 独 使 用 一 个 函数 文件 来 定义 专门 的 函 
数 了 。 因 此 ， 所 有 程序 内 容 都 可 以 编写 到 一 个 M 文件 中 ， 便 于 用 户 日 后 的 文件 管理 、 保 存 和 传输 。 
当然 ， 如 果 函 数 的 表达 式 非 常 复杂 ， 还 是 建议 用 户 使 用 函数 文件 定义 脚本 文件 。inline 函数 如 果 出 
现在 核心 循环 ,也 会 使 速度 下 降 很 多 ， 此 时 需要 考虑 用 函数 文件 进行 蔡 代 , 或 者 直接 把 表达 式 写 入 


循环 中 。 在 inline 函数 中 只 能 出 现 函数 和 参数 ， 要 传递 一 个 可 变 系数 万 (x)=sin(axr)+3e ， 
这 里 < 是 一 个 参数 ， 可 通过 下 面 的 方式 。 


aa = 1.2; # 对 要 传递 的 参数 a 赋值 


fun6 = inline(['sin(x*'ynum2str(a),，')+3x*exp(-Xx.^2)']) g 把 参数 a 转化 为 字符 串 
写 入 表达 式 
yl1 = fun6(0.6) 当 调用 fun6 函数 来 计算 0.6 处 的 值 

输出 ， 
fun6 = Inline function: 

fun6(x) = Sin(x*1.2)+3wexp(-X.^2) 

yl1 = 2.7524 

其 中 ， 对 参数 a 进行 double 型 赋值 ， 再 利用 函数 num2str 转化 为 字符 串 。 
6.2.4 “分 段 函数 


分 段 函数 是 一 类 经 常 遇 到 的 函数 形式 , 在 不 同 定义 区 间 的 表达 式 不 同 ,而 在 各 区 间 端 点 处 连续 。 
本 小 节 主 要 讲述 分 段 函数 的 定义 。 比 如 下 面 的 分 段 函数 : 


如 0O<x<1l 
J(z)=1cos[r(z-D0]，1<sx<2 
一 /x+2)， 2<x<s4 ( 6-1 ) 


可 使 用 表 6.3 所 示 的 函数 文件 piecewise1.m 定义 这 个 分 段 函数 。 
表 6.3 函数 文件 piecewise1.m 








序号 ”程序 内 容 

1 function y = piecewise1(x); 

2 if sum(x> =0&x<=4)<0.5; % 检查 定义 域 是 否 在 规定 的 范围 内 
3 error(x must be in the interval [0,4]); 

4 end 

5 放 X> 王 0&x<1; % 检查 x 所 属 子 区 间 
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{ 续 表 ) 
序号 程序 内 容 
6 Y=Xx^ 人 2; % 赋值 
7 elseif x>=1&x<2; % 检查 x 所 属 子 区 间 
8 y = cos([x-1]*pi); % 赋值 
9 else % 检查 x 所 属 子 区 间 
10 = -X^ 人 2/[x+2]; % 赋值 
11 end 


但 是 上 面 的 程序 只 能 计算 当 x 是 单个 数字 的 情况 ， 如 ， 
Y1 = piecewisel(0.5) 
Y2 = piecewisel(1.2) 
Y3 = piecewisel (3 六 
而 当 x 是 一 个 向 量 的 时 候 ， 调 用 上 述 函数 文件 将 会 出 错 。 表 6.4 给 出 一 种 支持 向 量 运算 的 函数 
文件 编写 格式 。 


表 6.4 一 种 支持 向 量 运算 的 函数 文件 编写 格式 


行 号 “程序 内 容 

1 function y = piecewise2(x); 

2 if Sum(x> =0&x<=4)<0.5; % 检查 定义 域 是 否 在 规定 的 范围 内 
3 error(x must be in the interval [0,4]); 

4 end 

5 y=x.^2;， 9% 计算 函数 值 

6 y(x>=1&x<2) = cos{[x(x> =1&x<2)-1]*pj)i ，。 % 计算 函数 值 
7 x> =2) = -x(x>=2). 全 2./[x(x> =2)+2]; % 计算 函数 值 





在 程序 piecewise2.m 中 , 函数 值 计 算 主 要 是 在 第 5 一 7 行 。 首 先 利 用 第 1 区 间 [0,1] 内 的 表达 式 
进行 计算 ， 得 到 1 个 函数 值 向 量 y， 接 下 来 对 y 的 数值 进行 修正 ， 修 正 的 格式 可 写 为 ， 


Y( 条 件 语句 *) = f(x( 条 件 语句 *) ) ; $% 统一 格式 修改 分 段 函数 取 值 


在 上 面 的 格式 中 ,“ 条 件 语 句 *"” 用 来 确定 x 的 范围 , 右 侧 是 关于 x 的 函数 表达 式 。 等 式 两 侧 “条 
件 语 句 *” 的 内 容 要 一 致 。 可 以 比较 程序 中 第 6 行 和 第 7 行 的 内 容 以 理解 上 面 介绍 的 统一 格式 。 
调用 函数 文件 piecewise2.m， 利 用 下 面 的 语句 可 以 得 到 分 段 函数 jx) 的 曲线 图 。 


= linspace(0,4); ss% 自 变 量 取样 点 集 
Y = piecewise2(x):; g% 计算 相应 函数 值 

plot(x,y); $% 绘制 曲线 

hold on; 

plot (1*ones(1,2),ylim,'r:'); sg% 画 区 间 间 隔 线 

plot (2*ones(1,2),ylim,'r:i'); #% 画 区 间 间 隔 线 

set (gca, 'fontsize',12): 

xlabel('Nitx'y fontname' times new roman+，'PEontsize' 14)， 


所 得 曲线 如 图 6.7 所 示 ,， 这 个 分 段 函 数 在 区 间 端 点 处 是 连续 的 ， 有 时 也 存在 区 间 端 点 不 连续 的 
情况 ， 利 用 上 面 的 思路 同样 可 以 计算 分 段 函数 各 点 的 函数 值 。 


区 
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其 
图 67 分 段 函数 的 曲线 
当 分 段 函数 表达 式 比较 简单 的 时 候 ， 可 以 使 用 inline 函数 来 定义 分 段 函数 。 使 用 如 表 6.5 所 示 
的 语句 ( 该 部 分 内 容 保存 在 光盘 中 的 piecewise2p.m 文件 中 ) 可 以 实现 公式 ( 6-1 ) 中 的 分 段 函数 。 


表 6.5 定义 分 段 函 数 的 语句 


行 号 ”程序 内 容 

1 S1 = X. 人 2.*(x> =0&x<1) % 第 1 区 间 内 的 表达 式 
人 S2 = 'cos([x-1]*pi).*(x> 一 1&x<2)5; % 第 2 区 间 内 的 表达 式 

3 S3 = '(-1)*x. 人 2./[x+2].*(x> =2)， % 第 3 区 间 内 的 表达 式 
4 fx = inline([s1,+',S2,'+',S3]); % 联合 起 来 成 为 分 段 函数 
5 y = fxllinspacet0,4)); % 计算 函数 值 

6 plotllinspace(0.4).y): % 绘图 


在 上 面 的 程序 中 利用 了 inline 函数 定义 这 个 分 段 函数 , 使 得 该 程序 可 以 在 一 个 脚本 文件 中 完成 
计算 和 绘图 工作 ， 所 得 结果 与 图 6.6 一 样 。 这 里 第 1~3 行 是 定义 各 段 区 间 上 的 函数 表达 式 ， 除 了 
表达 式 之 外 还 有 一 个 区 间 判 断 语 句 ， 即 “(x> =0&x<1)”、"(x>=1&x<2)” 和 “(x>=2)"”， 它 们 将 
返回 0 和 1 构成 的 一 个 逻辑 性 数组 ， 还 可 以 和 前 面 的 函数 值 进行 点 乘 计 算 ， 进 行 一 个 采样 操作 。 
通过 第 4 行 把 3 段 函 数 表 达 式 联合 在 一 起 ， 直 接 相 加 就 得 到 了 公式 ( 6-1 ) 所 定义 的 函数 。 


6.2.5“ 子 函数 和 私有 函数 


在 函数 文件 中 允许 定义 多 个 子 函数 函数 文件 中 第 一 个 function 标识 的 为 主 函数 ,其 他 function 
标识 的 为 子 函数 。 子 函数 只 能 由 这 个 函数 文件 的 主 函 数 调 用 , 或 者 由 它 前 面 的 子 函 数 调用 而 不 能 由 
其 他 M 文件 调用 。 每 一 个 子 函数 和 函数 文件 的 定义 类 似 ， 在 定义 的 时 候 需要 根据 先后 调用 顺序 安 
排 子 函数 的 顺序 。 表 6.6 是 子 函数 例子 , 这 里 仅 附 上 程序 的 框架 , 完整 程序 请 见 光 盘 中 main_sub.m 
文件 。 
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表 6.6 ”一 个 子 函数 的 例子 


燥 


程序 内 容 
function y = main_subt(n); 
if modtn,2) == 1 
y= magic_odd(n);i % 奇数 时 执行 子 函数 进行 计算 
elsef mod(n,2) == 0; 
error(n must be an odd numben);， % 偶数 时 返回 错误 提示 
end 
function M = magic_odd(n); 
% 该 函数 部 分 内 容 略 去 
[区 y] = modfun(xynm); % 调用 modfun 子 函数 
10 function [xy] = modfun(x,ym); 
11 x = mod(x-1,n)+1; % 计算 x 对 mn 的 模 除 ， 使 结果 在 [1, 丫 范 围 内 
12 = modfy-1n)+1; % 计算 y 对 n 的 模 除 ， 使 结果 在 [1, n] 范 围 内 


这 是 一 个 用 来 计算 奇数 阶 幻 方 矩阵 的 程序 ， 其 中 magic_odd 和 modfun 都 是 这 个 程序 中 的 子 
函数 ， 子 函数 modfun 由 magic_odd 调用 ， 因 此 子 函 数 modfun 需要 放置 在 子 函数 magic_odd 的 
后 面 。 

私有 函数 是 MATLAB 函数 文件 的 一 种 形式 。 它 唯一 的 特征 是 只 能 够 在 一 个 特定 的 限定 函数 群 
体 中 可 见 。 如 果 要 约束 函数 的 访问 范围 ， 或 者 当选 择 不 让 外 面 看 到 所 执行 的 是 哪个 函数 的 时 候 , 可 
以 用 到 私有 函数 。 私 有 函数 存放 在 以 专 有 名 称 private 命名 的 子 目 录 下 ， 它 们 只 能 由 其 父 目录 中 的 
函数 文件 调用 。 比 如 在 光盘 中 \ch06\private 目录 下 的 rotate_shift 文件 ， 只 要 把 该 文件 复制 到 硬盘 
上 之 后 ， 在 命令 窗 中 输入 ， 


>> [R,S,K]=rotate_shift(1,2,3,4,5,6,7,8) 
将 会 出 现下 面 的 提示 : 
??? Undefined function or variable 'rotate_shift' . 
也 就 是 说 在 其 父 目 录 中 的 脚本 文件 也 不 能 调用 private 目录 下 的 函数 文件 。 然 而 定义 如 下 函数 


function private_test; $ 私有 函数 的 测试 
[R, S,K] =rotate_shift(1,2,3,4,5,6,7,8) 
执行 private_test 函数 就 可 以 调用 rotate_shift 函数 了 。 
因为 私有 函数 在 其 父 目 录 以 外 调用 ,是 “隐身 ”的 ， 因 此 可 以 与 其 他 目录 下 函数 文件 的 名 字 相 
同 。 这 一 点 在 创建 用 户 特定 函数 新 版 本 的 时 候 同时 在 另外 目录 中 保存 原来 版 本 的 函数 是 非常 有 用 
的 。 在 MATLAB 中 先 查 询 私有 函数 ， 再 寻找 其 他 位 置 的 M 文件 。 此 外 ，help，lookfor 和 which 等 
命令 在 private 目录 以 外 ， 不 能 提供 关于 私有 函数 的 任何 帮助 信息 。 
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6.3 函数 文件 与 脚本 文件 的 比较 
函数 文件 与 脚本 文件 的 主要 区 别 在 于 : 函数 文件 一 般 都 要 带 参 数 ， 都 要 返回 结果 ( 也 有 一 些 函 


数 文件 不 会 带 参数 和 返回 结果 的 ), 而 且 函 数 文件 还 要 定义 函数 名 ; 脚本 文件 没有 参数 和 返回 结果 ， 
也 不 在 程序 的 开头 定义 函数 名 ， 通 过 生成 和 访问 工作 空间 中 的 变量 可 以 与 外 界 和 其 他 函数 交换 数 
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据 。 另 外 ， 脚 本 文件 的 变量 在 文件 执行 结束 后 仍然 会 保存 在 内 存 中 不 丢失 ; 函数 文件 的 变量 仅 在 函 
数 执行 期 间 有 效 ， 当 函数 执行 完毕 ， 它 所 定义 的 所 有 过 程 变量 都 会 被 清除 ( 只 有 输出 的 部 分 变量 可 
以 在 内 存 中 查看 到 )。 使 用 函数 whos 不 能 看 到 这 些 过 程 变 量 ， 在 函数 运行 期 间 使 用 函数 whos 可 
以 看 到 函数 内 部 定义 的 变量 以 及 输入 参数 。 函数 中 定义 的 变量 可 以 与 工作 空间 中 的 变量 重 名 ,而 不 
会 影响 到 工作 空间 中 原来 存储 的 变量 。 

对 于 程序 的 调试 工作 而 言 ， 脚 本 文件 要 比 函 数 文件 方便 些 。 因 为 脚本 文件 的 过 程 变量 的 size 
可 以 通过 workspace 来 查看 , 一 些 数组 的 “ 超 维 " 调用 问题 以 及 不 合法 的 和 矩阵 乘法 可 以 直接 从 work 
space 窗口 发 现 。 如 果 注 释 掉 函数 文件 第 一 行 带 “function ”的 语句 ， 同 时 对 所 有 输入 变量 赋值 ， 
那么 函数 文件 就 可 以 转化 为 脚本 文件 。 对 于 初学 者 ， 建 议 使 用 脚本 文件 进行 程序 调试 工作 。 当 然 在 
函数 文件 中 ， 去 掉 分 号 也 可 以 显示 过 程 变量 的 取 值 ， 可 以 查看 程序 计算 的 数值 和 预期 的 是 否 相符 。 

编 好 的 函数 文件 可 以 用 于 日 后 在 其 他 问题 中 反复 进行 调用 , 如 果 这 样 的 函数 文件 比较 多 了 ，, 使 
用 者 就 有 了 自己 的 “工具 箱 "， 把 这 些 函 数 放置 在 MATLAB 的 搜索 路 径 中 就 可 以 像 MATLAB 自 带 函 
数 一 样 放心 使 用 了 。 频繁 使 用 的 程序 最 好 写 为 函数 文件 的 形式 ， 这 样 可 以 方便 管理 ， 同 时 能 够 加 快 
程序 执行 速度 。 

广大 研究 者 经 常 根 据 任务 需要 , 解决 不 同类 型 的 科学 和 工程 问题 , 对 于 程序 的 分 类 管理 和 注释 
是 非常 重要 的 。 对 于 简短 的 函数 文件 ,程序 中 添加 部 分 文字 可 能 就 能 满足 注释 的 要 求 。 对 于 大 型 程 
序 ， 建 议 使 用 者 另 附 详细 文档 { 如 Word 文档 ) 进行 补充 性 注释 ， 其 中 可 以 增加 流程 图 、 公 式 等 无 
法 进行 文本 输入 的 内 容 ， 详 细 的 思路 记载 也 是 需要 的 。 


6.4 数据 文件 


数据 文件 的 读 入 和 写 入 是 不 同 软件 之 间 交 流 的 有 效 途径 之 一 。 目 前 一 些 流行 软件 的 高 级 版 本 已 
经 支持 MATLAB 输出 的 数据 文件 类 型 ( 即 .mat 文件 )。 本 节 将 考虑 一 些 数据 文件 格式 的 读 入 和 写 入 
问题 ， 如 .dat，.tbt，.Xls 等 。 通 过 输入 help iofun 可 以 得 到 数据 、 图 片 、 声 音 和 视频 等 文件 读 写 相 
关 函 数 的 列表 。 本 节 将 详细 介绍 数据 读 写 函数 的 使 用 方法 。 

6.4.1 常用 的 数据 文件 读 入 函数 


常用 的 数据 文件 读 入 函数 有 load，importdata，dlmread，wk1lread，xlsread，fopen ，fgetl， 
fscanf 等 。 下 面具 体 介绍 这 些 函 数 的 使 用 。 ， 


6.4.1.1 数据 读 入 函数 
load 函数 是 最 常用 的 数据 读 入 函数 ， 其 调用 格式 为 : 


load filename g% 格式 1 
load filename xyz ..， s 格式 2 
data = load('filename') 7 s 格式 3 


参数 说 明 : 函数 load 一般 可 以 读 入 .dat，.txt，.mat，.xls 等 数据 文件 。 参 数 filename 可 以 是 数 
据 文件 名 ， 也 可 以 是 含 路 径 的 文件 名 ( 这 里 文件 名 需要 写 上 扩展 名 )， 比 如 D:'\data1,txt。 其 中 格式 
1 将 读 入 数据 文件 中 的 所 有 数据 信息 , 格式 2 可 以 指定 读 入 数据 文件 中 变量 对 应 的 数据 , 格式 3 可 
以 读 入 路 径 名 或 者 文件 名 中 含有 空格 符 的 数据 文件 ， 其 作用 和 格式 1 相同 。 此 外 格式 3 在 处 理 大 
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量 数据 时 会 很 方便 ， 把 文件 名 依次 循环 输入 即 可 ， 比 如 需要 处 理 Su1.dat，Su2.dat，Su.3.dat， 等 
等 ， 可 以 使 用 如 下 语句 : 

for k=1:200:; 


D = load(['Su',num2str(k),'.dat']);  S# 进 行 数据 处 理 
end 


6.4.1.2 导入 数据 文件 
函数 importdata 可 以 读 入 数据 文件 、 音 频 及 图 片 文件 的 数据 变量 信息 ， 其 调用 格式 如 下 : 
S = importdata('filename'); 


参数 说 明 : 在 函数 importdata 使 用 中 要 求 文件 名 ( 含 扩展 名 ) 以 字符 串 形式 输入 。 当 数据 不 
在 当前 目录 时 ， 需 要 把 完整 目录 写 上 ， 如 E\LiWData1.txt。 当 数据 文件 中 含有 非 数 据 的 中 英文 头 文 
件 或 者 其 他 说 明 时 ，s 是 细胞 矩阵 结构 ， 为 了 得 到 目标 数据 还 需要 做 进一步 的 处 理 。 对 于 一 些 特殊 
软件 生成 的 数据 文件 , 可 以 尝试 使 用 函数 importdata 读 入 数据 。 比 如 下 面 的 语句 可 以 读 入 T0624.bt 
文件 中 的 数据 。 


s = importdata('D:\MATLAB\booklvch06\T0624 .txt') 
6.4.1.3 读 取 ASCII 文件 到 和 珑 阵 
函数 dlmread 可 以 读 取 带 有 分 隔 符 的 ASCII 文件 到 和 矩阵 函数 ， 其 调用 格式 为 : 


s = dlmreadl('filename')， 


参数 说 明 : 比如 在 一 个 记事 本 文件 中 输入 “7.1;8.2;6.3;6.2;5.3,9.1"， 并 把 这 个 文件 命名 为 
DLM.txt， 利 用 语句 A=dlmread(DLM.txt) 可 以 得 到 ， 


RAR = 7.1000 8.2000 6.3000 6.2000 5.3000 9.1000 
6.4.1.4 读 入 Lotus1-2-3 的 数据 文件 


函数 wk1read 可 以 用 来 读 入 Lotus1-2-3 电子 数据 表 文 件 的 数据 ( 这 是 一 种 类 似 Excel 表格 的 
文件 )， 这 个 函数 的 调用 方法 和 dlmread 函数 类 似 ， 这 里 不 再 袭 述 。 比 如 下 面 的 语句 可 以 把 
WK1_1.wk1 文件 中 的 数据 读 入 workspaceo 


s = wWklread('D:\MRATLRB\bookl\ch06VWK1_1.wk1l') 
6.4.1.5 读 入 Excel 数据 文件 
函数 xlsread 可 以 读 入 Excel 数据 文件 ， 其 调用 格式 如 下 : 


A = xlsreaG('filename'): s 格式 1 
Ra = xlsreadG('filename' ,Sheet); % 格式 2 
ARA = xlsreadl('filename' ,Sheet,range); % 格式 3 


参数 说 明 : 格式 1 将 读 入 Excel 数据 文件 的 第 一 个 Sheet 里 面 的 内 容 。 格 式 2 可 以 读 入 指定 
Sheet 内 的 数据 ， 其 中 Sheet 可 以 是 目标 Sheet 的 名 称 ( 此 时 需要 输入 相应 的 字符 串 )， 也 可 以 是 
Sheet 的 序号 。 格 式 3 可 以 在 Sheet 中 指定 一 个 子 区 域 进行 数据 读 取 ， 其 中 range 是 子 区 域 丰 上 和 
右 下 网 格 的 坐标 ， 如 A2:J5 或 者 a2:j5。 下 面 是 调用 xlsread 的 一 个 例子 。 
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sl1 = xlsread('D:\MATLAB\bookl\ch06\XLS1.xls'v,1,'R2:I5') 
它 可 以 得 到 指定 范围 内 的 数据 。 
6.4.1.6 fopen 读 取 特 殊 数 据 


某 些 特殊 数据 文件 使 用 前 面 的 函数 可 能 无 法 读 取 ， 可 以 考虑 使 用 fopen 和 fgetl。 首 先 介 绍 一 
下 fopen 函数 的 使 用 方法 ， 它 的 调用 格式 为 : 
fi = fopen(ftilename，Ppermission); 
[fiaQa，message] = fopen(filename，Ppermission); 
[ftida，message] = fopen(filename,permission，format); 
[filename，Ppermission，format] = fopen(fia) 

参数 说 明 :fid 是 要 读 入 文件 的 标识 , 它 是 一 个 整数 filename 是 文件 名 ,包含 扩展 名 permission 
用 来 定义 打开 数据 文件 的 模式 。format 用 于 指定 文件 中 数据 的 格式 。 若 文件 读 入 成 功 ，fid 是 一 个 
正 整数 ， 同 时 message 是 一 个 空 字符 串 ; 若 文件 打开 失败 ，fid 是 一 个 负数 ， 同 时 message 返回 
出 错 信息 。 利 用 参数 message 在 数据 的 批量 读 入 时 很 方便 , 程序 不 会 因 出 错 而 停止 , 根据 message 
的 值 可 以 制定 不 同 的 处 理 方式 。 表 6.7 给 出 permission 可 输入 的 字符 串 及 意义 。 


表 6.7 参数 permission 的 可 选 字符 串 及 意义 


字符 串 意义 

只 读 方式 打开 文件 

[十 可 读 写 方式 打开 文件 

W 删除 文件 中 的 内 容 ， 并 以 只 写 格 式 打开 

W 十 删除 文件 中 的 内 容 ， 并 以 只 读 格式 打开 

a 只 写 方式 打开 文件 ， 并 可 把 新 的 内 容 只 写 增加 到 文件 尾 
a+ 只 写 方式 打开 文件 ， 并 可 把 新 的 内 容 可 读 写 增加 到 文件 尾 
W 不 进行 自动 刷新 写 入 数据 

A 不 进行 自动 刷新 增加 数据 


如 果 要 以 文本 文件 的 方式 打开 数据 文件 ， 我 们 应 该 增加 字母 “t” 到 permission 项 中 (如 wt 
和 wt+ )j。 当 以 二 进 制 模式 打开 数据 文件 的 时 候 ， 需 要 在 permission 里 面 增加 字母 “b”( 如 wb )o 
特别 地 ， 文 本 文件 和 二 进 制 文件 在 UNIX 操作 系统 中 是 没有 区 别 的 ， 因 此 在 此 系统 上 ， 字 母 r 和 b 
是 不 需要 加 以 区 分 的 。 

在 调用 函数 fopen 的 时 候 ， 参 数 format 记录 字符 串 数 据 存储 在 文件 中 的 格式 。 在 两 全 计算 机 
中 传递 互相 矛盾 的 数据 格式 时 ， 这 个 字符 串 format 是 必须 用 到 的 。 一 些 可 能 格式 的 控制 字符 为 nm， 
1，b，d，g，c，a，Ss， 可 以 从 中 选择 使 用 。 


6.4.1.7 函数 frewind 读 取 文 件 
通过 函数 frewind 来 进行 文件 读 取 的 时 候 ， 可 以 把 指针 放 到 文件 头 。 下 面 是 一 个 数据 读 入 的 例子 : 


function Y=readdata(str); % str 是 文件 名 
fid=fopen(sttz); % 打开 数据 文件 
mn=17? gs 初始 化 票 加 参数 
Yy=[];  s% 初始 化 输出 量 为 空 矩 阵 
while n>0; 
tline = fgetli(fid); % 读 取 当前 行 
if sum(findstr(tline,'<<'))<0.5&n>6; $% 检查 是 否 满足 条 件 
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y=[y;istr2num(tline)]; % 读 入 数据 
elseif sum(findstr(tline,'<<'))>0.5 


break; ss 退出 循环 
ena 
n=n+1; % 累加 


enda 


fclose(fia); $% 关闭 数据 文件 


上 述 程序 可 以 实现 从 第 6 行 开 始 读数 据 。 有 些 特 殊 软 件 输出 的 数据 一 般 能 用 记事 本 打开 ， 这 
里 可 以 看 到 其 中 的 头 文件 信息 , 也 可 以 读 出 从 哪 一 行 开 始 是 数据 部 分 。 这 里 通过 检查 最 后 一 行 出 现 
了 特征 字符 “<<"， 即 将 停止 程序 。 
6.4.1.8 读 取 格 式 化 数据 
函数 fscanf 可 以 实现 从 一 个 数据 文件 中 按 用 户 自 定义 的 格式 来 读 取 格 式 化 数据 ， 它 的 调用 格 
式 如 下 : 


array = fscanf(fid，format): 
[array，count]】 = fscanf(fid，ftormat，size): 


参数 说 明 : fid 是 利用 fopen 函数 得 到 的 数据 文件 标识 。 参 数 format 是 可 供用 户 控制 如 何 读 取 
数据 格式 的 字符 串 ， 表 6.8 给 出 了 一 个 详细 说 明 。 


表 6.8 参数 format 可 能 取 值 及 含义 


字符 串 ”含义 

%a 读 取 一 个 字符 串 ， 其 可 被 空格 符 或 其 他 类 似 于 换行 符 的 特殊 符号 分 开 
%c 读 取 一 个 字符 ， 可 以 是 任意 类 型 的 字符 ， 如 空格 ， 换 行 符 等 
%d 读 取 一 个 小 数 ( 忽略 空格 ) 

%e 读 取 一 个 小 数 ( 忽略 空格 ) 

9%6f 读 取 一 个 小 数 ( 忽略 空格 ) 

%9 读 取 一 个 小 数 ( 忽略 空格 ) 

5%6i 读 取 一 个 有 符号 数据 ( 忽略 空格 ) 

%o 读 取 一 个 八进制 数据 

%s 读 取 一 个 字符 串 ( 忽略 空格 ) 

%u 读 取 十 进 制 数据 

36X 读 取 十 六 进 制 数据 


在 表 6.8 中 的 符号 “%” 后 面 可 以 加 入 数字 人 来 控制 读 取 的 位 数 。 参 数 size 可 以 用 
来 指定 从 文件 读 取 数据 的 数目 。 这 个 函数 有 以 下 3 种 取 值 类 型 : (1 ) n 准确 地 从 
数据 文件 中 读 取 『 个 值 ， 执 行 函数 fscanf 之 后 ， 输 出 array 是 一 个 包含 个 值 的 
列 向 量 ; (2 ) inf 读 取 数 据 文件 中 所 有 值 ， 在 执行 函数 fscanf 之 后 ， 输 出 array 
是 一 个 列 向 量 ， 它 包含 了 数据 文件 中 所 有 值 ; (3) [mm] 从 数据 文件 中 精确 地 读 
取 mmxn 个 值 ， 此 时 输出 array 是 一 个 mxn 的 数组 。 若 数据 文件 中 的 数据 与 格式 
转换 指定 字符 不 相 匹 配 ， 那 么 函数 fscanf 将 会 中 赴 执 行 。 





下 面 举 一 个 例子 讨论 函数 fscanf 的 用 法 ， 比 如 在 记事 本 程序 中 写 入 下 面 的 内 容 : 
玫 六 
562 
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将 上 面 的 内 容 保 存 为 刀 .txt 文件 。 利 用 函数 fscantf 来 读 入 这 个 数据 文件 : 
fia = fopen('ttz.cxt'); # 打开 ttz,txt 文件 
R = fscanf(fid,'su',inft); sg% 读 入 数据 
B = AR， #s 显示 A 的 数据 内 容 
R = reshape(R, [4,3]); % 重新 排列 数据 顺序 
-有 = R， g 显示 整理 后 的 数据 
fclose(fid)， 多 关闭 fia 
上 述 程序 执行 后 结果 如 下 : 
B = 1 2 3 4 5 6 立 3 2 2 4 5 
及 = 


从 B 的 数据 内 容 可 以 看 出 函数 fscanf 读 入 数据 是 逐 行 读 入 的 ， 将 下 面 的 程序 与 上 面 的 程序 进 
行 对 比 : 


fid = fopen('ttz.txt'); s 打开 ttz.txt 文件 
R = fscanf(fid,'gsu',[3,4]) ， s# 读 入 数据 
fclose(fid) 和 关闭 fid 

这 段 程序 的 输出 如 下 : 
及 三 


1 生 2 2 
2 5 3 4 
站 6 2 5 


可 见 ， 此 时 A 的 顺序 和 tbz.txt 文件 中 的 顺序 不 一 致 , 因此 用 户 在 调用 这 个 函数 的 时 候 需要 注意 
这 个 问题 ， 并 合理 利用 reshape 函数 来 调整 顺序 。 
6.4.2 ”常用 数据 的 写 入 函数 
数据 的 写 入 可 以 使 用 save,， fwrite, fprintf，csvwrite，wk1write，xlswrite，cdfwrite 和 kmlwrite， 
下 面具 体 介 绍 这 几 个 函数 的 使 用 。 
6.4.2.1 函数 save 保存 数据 


函数 save 可 以 把 MATLAB 计算 生成 的 数据 变量 保存 为 .mat，.dat，.txt 等 常见 数据 文件 格式 ， 
其 调用 格式 如 下 ， 


save filename gs 格式 1 
save filename 闵 #% 格式 2 
save filename x Y z #% 格式 3 
save filename Ar #% 格式 4 


参数 说 明 : 这 里 flename 是 文件 名 ， 如 果 不 写 扩展 名 ，MATLAB 将 把 数据 文件 的 扩展 名 默认 
为 .mat。 格 式 1 将 把 当前 workspace 里 面 的 所 有 变量 保存 到 数据 文件 ， 在 数据 文件 中 组 成 一 个 结 
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构 体 。 格 式 2 可 以 保存 指定 的 数据 变量 。 格 式 3 可 以 指定 多 个 变量 进行 数据 存储 。 格 式 4 可 以 使 


用 通配符 “*"， 其 可 以 写 为 不 同形 式 ， 如 “A*"”，"*B” 和 “*B*” 等， 在 需要 保存 多 个 具有 共同 字 
符 的 数据 文件 时 ， 利 用 通配符 是 很 方便 的 。 如 下 面 的 语句 ; 


有 = rand(4,3) 
Save randdata 六 


可 以 把 变量 A 存 入 randdata.mat 文件 中 。 
6.4.2.2， 二 进 制 格式 储存 数据 
函数 fwrite 可 以 实现 以 二 进 制 格式 储存 数据 ,这 个 函数 的 使 用 需要 结合 fopen 和 fclose 来 实现 。 
函数 fwrite 的 调用 格式 如 下 : 


count = fwrite(fid，array，Pprecision): 
count = fwrite(fid，array，Pprecision，Skip):; 


参数 说 明 : fid 是 使 用 函数 fopen 打开 的 数据 文件 标识 ，array 是 欲 写 入 的 数据 短 阵 。count 是 
写 入 数据 文件 变量 的 个 数 。 参 数 precision 用 来 指定 写 入 数据 的 格式 ， 为 了 便于 数据 文件 在 不 同 计 
算 机 或 者 不 同 软件 之 间 传 递 , 指定 写 入 数据 的 格式 是 非常 重要 的 , 表 6.9 给 出 了 相应 的 字符 及 意义 。 


表 6.9 参数 precision 可 能 取 值 及 含义 


字符 串 C/Fortran 形式 含义 

char char*1 6 位 字符 型 数据 

schar signed char 8 位 有 符号 字符 型 数据 

uchar unsigned char 8 位 无 符号 字符 型 数据 

int8 integer*1 8 位 整 型 数据 

int16 integer*2 16 位 整 型 数据 

int32 integer*4 32 位 整 型 数据 

int64 integer*8 64 位 整 型 数据 

uint8 integer*1 8 位 无 符号 整 型 数据 

uint16 integer*2 16 位 无 符号 整 型 数据 

uint32 integer*4 32 位 无 符号 整 型 数据 

uint64 integer*8 64 位 无 符号 整 型 数据 

float32 real*4 32 位 浮 点 型 数据 

float64 real*8 64 位 浮 点 型 数据 

bitN N 位 有 符号 整 型 数据 ( 1<N<64 ) 
uUbitN N 位 无 符号 整 型 数据 (1 和 <N<64 ) 


aa 在 表 65.9 中 对 于 数据 文件 的 大 小 ， 除 了 “bitN” 和 “ub 让 N” 以 位 为 单位 ， 其 他 格 

绾 可 EN 式 的 数据 都 是 以 字 节 为 单位 的 。 使 用 参数 skip 可 以 指定 在 每 一 次 写 入 数据 之 前 跳 

| 过 的 约定 的 字 节 数 。 在 替换 有 固定 长 度 的 字符 时 ， 使 用 这 个 参数 非常 方便 。 特 别 
地 ， 当 precision 等 于 bitN 和 ubitN 时 ，skip 表示 跳 过 skip 位 。 


下 面 结合 一 个 例子 说 明 这 个 函数 的 使 用 。 


fid = fopent('magic5.cxt' rw+b')7 s 打开 数据 文件 进行 读 写 
fwrite(fid,magic(5) int8')7 gs 写 入 int8 型 数据 
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fclose(Eia) ; 


对 于 函数 fwrite 得 到 的 数据 文件 一 般 情 况 下 不 能 使 用 load 和 importdata 读 入 ， 而 需要 利用 函 
数 fread 来 读 取 其 中 的 数据 ， 如 读 入 上 面 语 句 生 成 的 数据 文件 magic5.txt， 可 以 使 用 如 下 语句 : 


[fid,message]l = fopen('magic5 .Ext'): 
Cm=fread(fid,f5,5]，int8') 

程序 输出 如 下 : 
Cm = 


17 24 1 8 15 

23 ] 了 工 4 16 

生 6 4 20 22 

10 12 19 21 3 
11 8 25 2 9 


在 读 取 数 据 的 时 候 需要 明确 数据 文件 中 的 数据 格式 ,否则 将 会 出 现 错误 。 比 如 执行 下 面 的 语句 ， 


Cm=freaQ(fid, [5,5],'int16') 


将 会 输出 下 面 的 结果 : 
Cm = 
5905 1793 4111 
2564 4877 790 
6155 2073 0 
1541 5134 0 
4620 533 0 


6.4.2.3 ”把 特定 格式 化 数据 写 入 文件 


函数 fprint 可 以 根据 用 户 自 定义 格式 把 特定 格式 化 数据 写 入 一 个 文件 中 , 它 与 fscanf 函数 是 一 
对 读 写 函 数 ， 其 调用 格式 为 : 
count = fprintf(fia，format，vall，Vval2，..,); 
fprintf(ftida，format，Vval1l，Vval2，-...); 

参数 说 明 : 参数 fid 是 数据 文件 标识 。 如 果 fid 缺 省 ， 数 据 将 写 入 到 命令 窗 中 。 参 数 format 是 
用 来 控制 数据 写 入 格式 的 字符 串 ， 其 参数 意义 与 表 6.8 等 同 。 在 参数 format 中 可 以 用 字符 串 指定 
队列 长 度 、 小 数 部 分 位 数 、 整 数 部 分 位 数 和 输出 格式 等 ， 它 包括 文字 、 数 字 字符 ( 位 于 符号 “%” 
和 格式 字母 之 间 ) 和 字母 符号 ( 用 于 指定 输出 数据 显示 的 精确 格式 )。 一 个 典型 的 数据 输出 格式 控 
制 字符 串 表 示 为 “%8.6e"， 其 中 “%” 是 控制 符 开 始 标志 ， "8” 表 示 整 数 部 分 位 数 ，"6” 表 示 小 
数 部 分 位 数 ，e 是 格式 描述 。 这 里 的 字符 “%” 总 是 标志 着 格式 化 字符 串 的 开始 ， 在 其 之 后 的 字符 
串 包 括 整数 部 分 位 数控 制 数字 、 精 度 指 定 符 和 转换 指定 符 。 

在 函数 fprintf 中 ， 可 以 利用 下 面 几 个 字符 进行 格式 控制 : 减 号 “-” 用 来 控制 数据 左 对 齐 ， 如 果 这 个 
控制 符 缺 省 则 认为 是 右 对 齐 ; 加 号 “十 ”表示 写 入 数据 时 带 有 正 负 号 ; “0” 表 示 如 果 数 据 的 位 数 不 足 ， 
用 0 填充 前 面 的 空位 。 比 如 ， 可 以 用 fprintffid, %-8.6e'A 来 控制 对 齐 方式 。 

如 表 6.10 所 示 给 出 了 一 些 格式 字符 虽 的 转 义 字符 及 相应 含义 ， 它 们 可 以 以 字符 的 形式 输入 到 
format 项 中 。 
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表 6.10 格式 字符 惠 的 转 义 字符 
字符 串 “” 含义 示例 





Mn 换行 符 fprintf(9%dm',123) 
机 水 平 制 表 符 fprintf(%ft,234) 
\b 退 后 一 格 fprintf(9%efb',234) 
V 回 车 符 ， 使 光标 移 到 下 一 行 最 前 面 fprintf(9%ed\',234) 
让 跳 页 符号 fprintf(9%ed\f,234) 
AN 输入 一 个 反 斜 杠 fprintf(%eW,234) 
人 输入 一 个 省 赂 号 或 单一 引号 fprintf(96e. ,234) ,fprintf(%eV",234) 
3%% 输入 一 个 百 分 号 (% ) fprintf(96d9%6%6,234 
下 面 的 一 段 程序 可 以 把 一 段 数据 写 到 一 个 记事 本 文档 中 。 
xx = 1:128; 生成 数据 
filename = 'Vectorl.txt'; $ 文件 名 
fid = fopen(filename,'wt'); % 打开 文件 
for pD = 1:l1ength(x)， 
fprintf(fid,'%sd',x(p));  % 写 入 数据 
fprintf(fid,'scvn'，'， '); sg% 输入 换行 符 
enda 
fclose(fiad) ; g 关闭 文件 


6.4.2.4， 把 数据 写 入 逗号 分 隔 值 文件 


函数 csvwrite 可 以 把 数据 写 入 去 号 分 隔 值 文件 { comma separated value， 缩 写 为 csv )， 该 文 
件 类 型 可 以 使 用 Excel 软件 打开 ， 该 函数 的 调用 格式 如 下 : 


CSVwrite(filename,m)， 
CSVvwrite(filename,m,r,c)， 


参数 说 明 : filename 是 csv 文件 的 名 称 ， 含 扩展 名 。m 是 数据 矩 阵 。r 和 c 分 别 表示 csyv 文件 
中 左上 角 数 据 离开 上 边 和 左边 的 行 数 和 列 数 ， 它 们 的 默认 值 都 是 0。 比 如 利用 下 面 的 语句 我 们 可 以 
得 到 一 个 csv 文件 。 


CSVvwritel('csVvl.csv' ,rand(4,3),1,2) 
6.4.2.5 “数据 写 入 wk1 文件 


函数 wklwrite 可 以 把 数据 写 入 wk1 文件 中 ， 其 调用 格式 和 参数 意义 与 函数 csvwrite 相同 。 比 
如 语句 wk1write(WK1_1.wk1,magic(4)) 可 以 得 到 WK1.wk1 文件 。 


6.4.2.6 ”把 数据 写 入 xls 文件 
函数 xlswrite 可 以 把 数据 写 入 xls 文件 中 ， 其 完整 调用 格式 如 下 : 
[success,message]= xlSswrite(filename,array, Sheet,range) 


参数 说 明 : success 返回 写 入 是 否 成 功 ，message 返回 可 能 的 出 错 信息 。filename 是 xls 文件 
名 称 。array 是 数据 和 矩阵。sheet 表示 sheet 的 序号 。range 用 来 约束 数据 写 入 的 范围 。 在 实际 调用 
中 ，filename 和 array 是 必须 输入 的 ， 其 他 参数 可 以 缺 省 。 这 个 函数 在 早期 版 本 中 不 存在 ， 用 户 可 
以 在 网 上 搜索 并 利用 这 个 文件 即 可 。 下 面 是 一 个 调用 xlswrite 的 例子 : 
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Xxlswrite('majic.xls',magic(4),2，'b2:e5') 
6.4.2.7 ”把 数据 写 入 频道 定义 格式 


函数 cdfwrite 可 以 把 数据 写 入 频道 定义 格式 ( Channel Definition Format， 缩 写 为 CDF )， 其 调 
用 格式 如 下 : 


cdfwrite(filename，Variablelist)， 


参数 说 明 ; filename 是 cdf 文件 名 称 。variablelist 是 欲 写 入 的 数据 。 更 多 详细 属性 设 定 ， 用 户 
可 以 参考 该 函数 的 帮助 信息 。 此 外 ，cdf 文件 的 读 入 函数 是 cdfread。 下 面 是 一 个 调用 cdfwrite 函 
数 生成 cdf 文件 的 例子 : 


cdfwrite('CDF1.cdft'，{'HIT'，1920:19221}); 
6.4.2.8 把 数据 写 入 kml 文件 


函数 kmlwrite 可 以 把 数据 写 入 kml 文件 。 读 者 可 详细 阅读 该 函数 的 帮助 信息 来 了 解 该 函数 的 
使 用 。 下 面 是 生成 kml 文件 的 例子 : 
address = {'Harbin'"，... 
China'，... 
'Heilongjiang'}; 
filename = 'mesage.km1l'; 
kmlwrite(filename，address，'Name'，address) 


6.5 图 片 文件 


在 MATLAB 中 函数 imread 和 imwrite 可 以 读 写 图 片 文件 .此 外 函数 saveas 和 print 可 以 把 figure 
上 的 曲线 或 者 图 像 保 存 为 图 片 格式 。 下 面 详细 介绍 这 4 个 函数 的 使 用 。 


6.5.1 读 入 多 种 格式 的 图 片 文 件 
函数 imread 可 以 读 入 多 种 格式 的 图 片 文件 ， 具 体 支 持 的 格式 如 表 6.11 所 示 。 
表 6.11 函数 imread 支持 的 图 片 格 式 





格式 ”说明 

JPG ”支持 所 有 这 种 格式 的 图 片 

TIFF “1，4，8，24 位 非 压缩 和 packbit 压缩 图 像 ，16 位 灰 度 和 索引 图 像 ，1 位 CCITT 压缩 和 48 
位 RGB 图 像 

GIF 1 位 和 8 位 GIF 图像 

BMP 1，4，8，16，24，32 位 非 压 缩 图 像 ，4 位 和 8 位 行程 长 度 编码 ( run-length encoded， 缩 
写 为 RLE ) 图 像 

PNG ”任意 PNG 图 像 ， 包 括 1，2，4，8，16 位 灰 度 级 图 像 ，8 位 和 16 位 索引 图 像 ，24 位 和 48 
位 RGB 图 像 

HDF “8 位 和 24 位 光栅 图 像 数据 库 

PCX 1，8，24 位 PCX 图 像 

XWD 1 位 和 8 位 Zpixmaps，XYbitmaps，1 位 XYPixmaps 

ICO “1，4，8 位 非 压缩 ICO 图 像 

CUR 1，4，8 位 非 压 缩 CUR 图 像 
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格式 ”说明 
RAS ”任意 RAS 图 像 ， 包 括 1 位 位 图 ，8 位 索引 图 像 ，24 位 真 彩色 图 像 ，32 位 alpha 通道 真 彩色 
图 像 
PBM 任意 1 位 PBM 图 像 


PGM ”任意 标准 PGM 图 像 
PPM__” 任意 标准 PPM 图 像 


尽管 MATLAB 支持 的 图 片 格式 很 多 ， 但 还 有 一 些 图 片 格式 不 能 直接 读 入 。 为 此 在 使 
用 图 片 文件 的 时 候 ， 可 以 考虑 使 用 第 三 方 软件 来 转换 格式 。 





函数 imread 的 调用 格式 如 下 : 


imread(filename,FMT) ; 
imread(Eilename) 
imread (filename，IDX) ; 
AAA，map，alpha]l = jimread(filename)); 
参数 说 明 : A 是 图 片 文 件 对 应 的 像素 矩阵 。filename 是 图 片 文 件 名 ， 它 可 以 包含 或 者 不 包含 
扩展 名 ， 当 filename 中 不 包含 扩展 名 的 时 候 需要 在 参数 FMT 中 写 上 扩展 名 。 参 数 IDX 用 于 读 
入 .tiff, .ico 和 .gif 等 图 片 格式 时 , 对 多 帧 图 像 中 某 一 帧 的 读 入 map 是 像素 映像 信息 oalpha 是 alpha 
通道 信息 。 ， 
下 面 是 几 个 读 入 图 片 的 例子 。 
有 RA = imread('cameraman'，'cif'); sg 读 入 摄像 师 照片 
imread('rice.tif'); % 读 入 米粒 图 
[B，map] = imread('pout .tif'); ss 读 入 一 个 小 孩 的 照片 


[B，map,alpha]l = imread('magic20.png'); $% magic20.png 是 光盘 中 的 一 个 随机 图 像 
[B，map] = imreadq('mri.tif',2); % 读 入 多 帧 图 像 中 的 一 帧 


6.5.2 ”把 数据 写 到 一 个 图 片 文件 
函数 imwrite 可 以 把 数据 写 到 一 个 图 片 文 件 中 ， 其 调用 格式 如 下 ， 


定 吧 加 
全 有 


到 
外 站 


imwrite(R&a，fEilename) 7 
imwrite(RA，filename，fmt)7 
imwrite(RA，map，filename，fmt) 7 
imwrite(A，filename，ftmt，Pparaml，vall，param2，Vval2,...)); 

参数 说 明 : 参数 A 是 欲 写 入 的 数据 ， 其 要 求 是 uint8 或 者 uint16 的 数据 格式 ， 如 果 是 double 
型 数据 ,需要 利用 uint8(A-1) 进 行 转化 map 是 一 个 有 效 的 MATLAB 支持 的 colormap 格式 ofilename 
是 图 片 文件 名 。fmt 是 扩展 名 。 对 于 不 同 图 片 格式 ， 用 户 可 以 对 图 片 的 具体 参数 进行 设 定 ， 请 参阅 
imwrite 的 帮助 信息 。 

对 于 dcm 格式 的 图 片 可 以 使 用 函数 dicomread 和 dicormwrite 进行 该 图 片 格式 的 读 写 操作 。 具 
体 用 法 和 函数 imread 和 imwrite 类 似 ， 这 里 不 再 蓝 述 。 

函数 imfinfo 可 以 用 来 查看 图 片 文件 的 信息 ， 返 回 结果 包含 了 详细 的 文件 信息 。 为 了 方便 使 用 
MATLAB 自 带 的 图 片 信息 , 本 书 在 光盘 的 image_list,doc 文件 中 列举 了 图 片 处 理工 具 箱 提 供 的 图 片 
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名 称 及 相关 信息 。 


6.5.3 ”把 矩阵 保存 为 图 片 文件 


基数 imwrite 把 一 个 矩阵 或 者 MxNx3 的 数组 保存 为 图 片 文 件 ， 对 于 Figure 上 的 曲线 和 图 像 
的 保存 还 可 以 使 用 函数 saveas 和 print 函数 。 函 数 saveas 的 调用 格式 如 下 ， 
saveas (hh，filename，format) ; 

参数 说 明 : h 是 figure 的 句柄 ， 当 前 图 形 窗口 的 黑 认 句柄 是 gcf。filename 是 文件 名 。format 
是 扩展 名 。 当 format 缺 省 且 flename 里 面 也 未 写 扩展 名 时 ， 则 保存 的 文件 扩展 名 为 ffg。 在 实际 应 
用 中 ， 建 议 大 家 在 保存 的 时 候选 择 两 种 格式 : fig 和 需要 的 文件 格式 。fig 格式 的 文件 可 以 继续 读 入 
MATLAB 进行 编辑 ， 起 到 备份 的 作用 。 


6.5.4 打印 当前 图 形 文件 
函数 print 可 以 把 当前 的 ( 或 者 指定 的 ) 图 形 窗口 上 面 的 内 容 打印 到 jpg，.eps 和 ,证 等 格式 的 
图 形 文件 中 ， 其 调用 格式 为 : 


Print -device -options 
print (hh，'-device'，filename) 


参数 说 明 : device 用 来 设置 打印 方案 ， 如 黑白 、 彩 色 等 格式 。options 可 以 用 来 设置 一 些 参 数 ， 
如 dpi 等 。filename 是 文件 名 。 


下 面 是 相关 的 4 个 例子 。 
print('-dpsc'，'-r600' hhh.eps')  s# 打印 当前 图 形 窗 吕 成 sps 文件 ， 并 设置 dpi 数值 为 600 
print -dpsc -r200 hhh.eps sg 打印 当前 图 形 窗 口 成 eps 文件 ， 并 设置 dpi 数值 为 200 
print (gcf，'-djpeg'"，'foo') # 打印 当前 图 形 窗口 成 jpg 文件 


print -depsc -tift -zx300 matildaa  % 打印 当前 图 形 窗 口 为 tiff 文件 ， 并 设置 dpi 为 300 

-r300 和 -r600 分 别 用 于 设置 dpi。 在 一 些 学 术 文章 中 往往 需要 设置 图 形 采用 一 定 的 dpi 数值 ， 
可 以 使 用 上 面 的 语句 来 设 定 。 在 MATLAB 的 高 级 版 本 figure 属性 中 可 以 设 定 dpi 等 属性 , 也 可 以 方 
便 地 利用 语句 来 实现 ， 这 样 便于 操作 ， 能 放 更 多 精力 在 程序 的 调试 上 。 


6.6 视频 和 音频 文件 


MATLAB 不 太 支持 视频 文件 ,对 于 AVI 文件 可 以 使 用 函数 aviread 来 读 入 所 有 的 帧 或 者 特定 帧 。 
函数 aviread 的 调用 格式 为 : 


mov = aviread(filename) 7 
mov = aviread(filename,index); 


参数 说 明 : mov 是 返回 的 .avi 文件 信息 ， 其 中 包含 帧 画面 图 像 信 息 。 filename 是 .avi 文件 名 称 。 
index 可 以 用 于 指定 某 一 帧 或 者 多 帧 。 
下 面 是 读 入 .avi 文件 的 例子 。 
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这 里 A 是 一 个 结构 体 ， 包 括 cdata 和 colrmap 两 部 分 内 容 ， 其 中 cdata 是 像素 数据 信息 ， 
colormap 是 颜色 映像 信息 。 
函数 avifile 可 以 用 来 记录 一 个 avifile 文件 ， 其 调用 格式 如 下 : 


aviobj = avifile(filename); # 格式 1 
aviobj = avifile(filename，'Propertyname'，Value，'DPropertyname'，Vvalue，..,.); 
格式 2 


参数 说 明 : aviobj 是 生成 .avi 文件 的 标识 ， 是 一 个 结构 体 数 据 ， 其 作用 相当 于 句柄 。filename 
是 .avi 文件 名 。 此 外 ， 用 户 还 可 以 设 定 .avi 文件 的 一 些 参 数 ， 包 括 FPS 指定 每 秒 的 帧 数 ， 默 认 值 是 
15; COMPRESSION 设 定 压 缩 方 式 ， 可 以 选择 的 参数 有 Indeo3，Indeo5，Cinepak，MSVC，RLE 
或 者 None，WINDOWS 系统 默认 值 是 Indeo3，UNIX 系统 默认 值 是 None; QUALITY 用 于 控制 压缩 
程度 ( 当 无 压缩 时 ， 这 个 参数 无 效 )，QUALITY 越 大 ，.avi 文件 的 质量 越 好 ， 该 参数 默认 值 为 75， 
KEYFRAME 指 每 秒 特定 帆 数目 , 其 默认 值 是 2, 此 参数 是 针对 于 支持 临时 压缩 的 情况 ; COLORMAP 
是 颜色 映像 表 ， 其 大 小 是 Nx3， 其 中 N 不 能 大 于 256 ( 当 存 在 压缩 时 ， 该 值 是 236 )， NAME 是 视 
频 文 件 描述 名 称 ， 它 不 能 多 于 64 个 字符 。 除 了 像 格 式 2 那样 定义 具体 参数 的 数据 外 ， 也 可 以 按 下 
面 的 方式 定义 : 


avViobj = avifile{(filename): 
avViobj .Quality = 99) 


下 面 是 用 avifile 函数 记录 一 个 同心 圆 环 变化 的 过 程 。 


axis square' $% 设置 坐标 轴 为 方形 

set (gcf, 'DoubleBuffer'，'on'); gs 使 图 像 变 化 是 图 形 窗 口 不 发 生 抖 动 

set (gca, 'xlim',[-80 80],'ylim',，[-80 80]，..。 
'NextPloct'，'replace','Visible'，'off'); #% 设置 坐标 轴 属 性 

mov = avifile('example.avi','ouality',100); g 生成 .avi 文件 及 定义 属性 

x = -pi:.1:pi; # 采样 数据 


radius = [0:length(x)]; ss 半径 采样 数据 
for i=1:1ength(Xx) 


h = patch(sin(x)*radius(i),cos(x)w*radius(i),， [abs(cos(x(i))) 0 0]); 多 利用 数 
据 绘图 

set(h,'EraseMode','xor');  % 设置 擦 除 方式 为 异 或 

F = getframe(gca) ; # 获取 图 形 窗口 像素 信息 

mov = addframe (mov,F); sg 把 了 填 加 到 mov 中 作为 一 帧 
end 

mov = close(mov); $ 关闭 mov 


此 时 可 以 删除 生成 的 .avi 文件 ， 并 不 需要 关闭 MATLAB 才能 删 。 

特别 需要 指出 的 是 , 在 利用 avifile 记录 图 形 窗口 变化 的 时 候 , 被 记录 的 图 形 窗 口 不 能 被 其 他 界 
面 放 挡 ， 即 使 系统 锁定 、 注 销 也 不 可 以 。 若 图 形 窗口 被 这 挡 ， 记 录 的 将 是 被 遮挡 后 的 结果 。 因 此 在 
长 时 间 记 录 的 时 候 ， 用 户 需要 取消 系统 的 屏幕 保护 程序 。 

函数 auread 可 以 读 入 .au 音频 文件 ， 具 体 调用 格式 如 下 : 
Y = auread(aufile); 


[y,fs,bits] = auread(aufile); 
Y = auread(aufile,n)， 
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[y,fs,bits] = auread(aufile, [nl n2]); 
siz = auread(aufile,'size')7 


参数 说 明 : y 是 返回 的 音频 文件 的 采样 数据 。fs 是 采样 率 。bits 是 每 个 采样 点 的 bit 数 。aufile 
是 .au 文件 名 。n 表示 返回 前 n 个 通道 的 采样 数据 。[n1, n2] 表 示 返 回 通道 nl 和 n2 之 间 的 采样 数据 。 
当 使 用 参数 size 的 时 候 ， 将 返回 采样 和 通道 信息 ， 即 SIZ=[samples channels]。 比 如 利用 auread 
函数 读 入 aufile.au 可 以 用 下 面 的 语句 : 


auread('aufile.au') 


函数 auwrite 可 以 把 数据 写 入 .au 音频 文件 中 ， 其 调用 格式 如 下 ; 


auwrice(y，aufile) 
auwrite(y，fts，aufile): 
auwrite(y，fs，bits，aufile)， 
auwrite(yY，fts，bits，method，aufile) 


参数 说 明 : 除了 method 以 外 ， 其 他 参数 与 函数 auread 中 的 参数 意义 相同 ， 参 数 method 可 
以 选择 的 参数 有 mu 和 linear， 其 中 mu 是 默认 值 ， 选 择 mu 参数 时 ，y 需要 的 是 8 位 数据 。 
生成 .au 文件 的 例子 如 下 : 


auwrite(zrand(1,20000)，'aufile.au') 


这 里 把 一 个 随机 序列 存 入 .au 文件 。 
函数 wavread 和 wavwrite 可 以 读 写 .wav 音频 文件 ,其 用 法 和 函数 auread 和 auwrite 基本 一 样 ， 
可 以 参考 它们 的 帮助 信息 ， 这 里 不 再 袭 述 。 


6.7 文件 批 处 理 结 构 


如 果 在 编程 的 时 候 能 建立 文件 批量 处 理 的 程序 , 将 是 一 件 非常 有 意义 和 有 意思 的 事情 。 为 了 方 
便 建 立 批 处 理 程序 ， 下 面 介 绍 基本 的 MATLAB 文件 处 理 函 数 ， 具 体 如 表 6.12 所 示 。 


表 6.12 ”基本 文件 管理 函数 


函数 名 说 明 函数 名 说 明 

cd 改变 工作 路 径 ls 作用 同 dir 

copyfile 复制 文件 matlabroot 返回 MATLAB 安装 根 目录 
delete 删除 文件 mkdir 建立 新 路 径 

diary 保存 会 话 open 打开 M 文件 

dir 列 出 当前 路 径 下 的 所 有 文件 “pwd 返回 当前 路 径 

edit 编辑 M 文件 rmdir 删除 路 径 

flleparts 返回 文件 名 的 信息 tempdir 返回 系统 临时 路 径 

fullfile 建立 文件 type 把 M 文件 内 容 输 入 命令 窗 
inmem 返回 内 存 中 的 函数 what 列 出 MATLAB 文件 

下 面 依次 介绍 这 些 函 数 的 使 用 。 


6.7.1 改变 MATLAB 的 当前 路 径 
函数 cd 可 以 改变 MATLAB 的 当前 路 径 ， 其 调用 格式 为 : 
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cd 或 者 E = cd sg 格式 1 

cd directory gs 格式 2 
cdf'directory ') #% 格式 3 
cd .， $ 格式 4 


参数 说 明 : 格式 1 中 将 返回 当前 路 径 ,f 是 记录 当前 路 径 的 一 个 字符 串 ， 此 时 函数 cd 的 作用 
相当 于 函数 pwd。 格 式 2 中 ， 将 把 当前 路 径 转移 到 路 径 directory。 如 果 在 路 径 名 中 含有 空格 ， 比 
如 想 进 入 下 面 的 路 径 : 
D:\Mfiles\ahit\bookl\ch06YAx Bx 

那么 使 用 “cd D:'\MfilesWhitbook1vch06Wx Bx” 将 会 出 现 如 下 错误 提示 : 


?3?? Error using ==> CQ 
Too many input arguments . 


在 这 样 的 情况 下 ， 可 以 调用 格式 3， 即 cd(D'\MfilesWhit\booktl\ch06Wx Bx) ， 这 样 就 可 以 正确 
地 进入 这 个 带 有 空格 的 路 径 了 。 格 式 4 将 返回 上 一 级 目录 , 它 可 以 由 格式 2 和 格式 3 代替 。MATLAB 
提供 了 函数 matlabroot 来 获得 MATLAB 软件 安装 的 根 目 录 ， 其 调用 格式 如 下 : 


mat1labroot 或 者 s = matlabroot 


参数 说 明 :”s 是 根 目录 的 字符 串 信 息 。 


6.7.2 复制 文件 
函数 copyfile 可 以 复制 文件 ， 其 调用 格式 如 下 : 


Copyfile ('Source'，'dest'); 

copyfile ('source'，'dqest'，'writable'): 
Status = Copyfile ('source'，'Gest')) 
[status，msgj = Copyfile ('Source'，'Gest:!)7 


函数 copyfile 把 指定 源 文 件 目录 中 的 文件 source 复制 到 指定 的 路 径 dest 中 。 如 果 源 文件 位 于 
当前 路 径 下 ， 那 么 source 处 可 以 只 写 源 文件 名 ， 其 中 源 文件 的 扩展 名 是 需要 的 。 如 果 目 的 路 径 在 
当前 路 径 下 的 子路 径 ， 那 么 dest 可 以 仅 写 目的 文件 夹 名 称 ， 如 欲 复制 当前 路 径 下 的 源 文 件 AA.dat 
到 当前 路 径 下 的 子路 径 P1 下 ， 那 么 可 以 简单 地 写 为 copyfile(AA.dat'\P1) 或 者 
copyfile(AA.dat,\P1)。 当 源 文件 所 在 路 径 和 目的 路 径 都 不 是 前 面 所 述 情况 时 ，source 处 需要 写 全 
路 径 信息 和 文件 名 ，dest 也 应 该 是 完整 路 径 名 ， 否 则 会 出 现 如 下 提示 : 


“系统 找 不 到 指定 的 路 径 。 已 复制 0 个 文件 。” 
参数 writable 表示 确认 目的 路 径 是 可 写 属性 。status 将 返回 复制 操作 执行 后 的 状态 ， 其 值 等 于 
0 的 时 候 表 示 复 制 操作 失败 ， 等 于 1 的 时 候 表 示 复 制 操作 成 功 。 当 发 生 错 误 时 msg 返回 错误 信息 ， 
如 果 复 制 成 功 ，msg 将 是 一 个 空 字符 串 。 在 程序 批 处 理 的 时 候 ， 可 以 设置 两 个 输出 参数 status 和 
msg 来 判断 复制 的 情况 ， 而 且 可 以 保证 程序 执行 不 发 生 中 断 。 
6.7.3 ”删除 文件 


函数 delete 可 以 删除 文件 ， 其 调用 格式 为 : 
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Gelete filename g% 格式 工 
delete('Eilename') gs 格式 2 


filename 应 该 是 完整 路 径 名 加 完整 文件 名 。 如 果 要 删除 的 文件 在 当前 路 径 下 , 那么 仅 写 文件 名 
即 可 ， 其 中 在 文件 名 中 扩展 名 是 必须 的 。 如 果 路 径 或 者 文件 名 中 存在 空格 符 ， 那 么 需要 使 用 格式 2 
的 形式 删除 文件 。 比 如 删除 abc.txt 文件 可 以 用 下 面 的 语句 : 


delete abc .txXt 


6.7.4 保存 命令 窗 中 的 会 话 内 容 
函数 diary 可 以 把 在 命令 窗 中 的 会 话 内 容 保存 到 当前 路 径 下 的 一 个 文件 中 ， 其 调用 格式 如 下 : 


qiary 外 格式 1 
Giary filename g% 格式 2 
diary off g 格式 3 
diary on g% 格式 4 


格式 1 将 创建 一 个 用 户 键盘 输入 并 由 系统 应 答 的 日 志文 件 ， 同 时 输出 一 个 包含 报告 和 其 他 文 
档 的 能 够 打印 的 ASCII 文件 。 格 式 2 将 把 会 话 内 容 保存 到 指定 的 文件 中 ,如果 该 文件 已 经 存在 ， 则 
自动 把 输出 结果 直接 添加 到 该 文件 的 结尾 处 。 格 式 3 将 暂停 执行 函数 diary。 格 式 4 恢复 执行 函数 
diary， 并 使 用 当前 文件 名 。 如 果 没 有 指定 日 志文 件 的 名 称 ， 系 统 将 使 用 默认 的 日 志文 件 名 diary。 
用 户 输入 下 面 的 内 容 可 以 把 用 户 在 命令 窗 输入 的 内 容 记 录 到 diary_text.txt 文件 中 。 


diary diary_text .上 xt 


6.7.5 ”指定 路 径 下 的 所 有 文件 名 
函数 dir 将 列 出 当前 或 者 指定 路 径 下 所 有 文件 名 ， 该 函数 调用 格式 如 下 ; 


air 格式 1 

air dirname s 格式 2 

S = dir('dirname') 外 格式 3 
Ss = dir('.ext') g% 格式 4 


格式 1 将 列 出 当前 目录 中 的 所 有 文件 名 称 及 文件 夹 名 称 ， 其 中 包括 隐藏 的 文件 。 格 式 2 可 以 
用 来 获取 非 当前 路 径 下 的 所 有 文件 信息 。 格 式 3 可 以 用 于 文件 名 或 者 路 径 名 中 包含 空格 符 的 情况 ， 
S 是 一 个 结构 数组 ， 其 内 部 字段 含义 是 : name 为 文件 名 ，date 是 修改 数据 ，bytes 是 文件 占用 空 
间 的 字 节 数 ，isdir 等 于 1 时 表示 name 是 个 文件 夹 ， 否 则 是 一 个 文件 。 格 式 4 可 以 获得 所 有 扩展 
名 为 某 一 特定 扩展 名 的 文件 信息 ， 进 一 步 地 我 们 用 Sn = char(Ss.name) 就 可 以 得 到 文件 名 信息 ， 
其 中 Sn 的 各 行 表示 文件 名 信息 , 用 Sn (k,:) 就 可 以 逐一 访问 这 些 特 定 的 文件 。 用 户 在 命令 窗 中 输入 
A = dir 将 会 显示 如 下 内 容 : 
及 = 
75x1 Struct array with fielqs: 

Dame _ 


Gate 
Dbytes 


isdir 
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Gatenum 


6.7.6 编辑 一 个 文件 
函数 edit 可 以 编辑 一 个 文件 ， 该 函数 的 调用 格式 如 下 ， 


edijt # 格式 1 
edait fun s 格式 2 
edit file.ext g 格式 3 


格式 1 将 打开 一 个 新 的 编辑 器 窗口 , 作用 相当 于 在 meditor 窗口 中 单 击 New M-file 按钮 增加 一 
个 新 文件 。 格 式 2 将 使 用 编辑 器 打开 指定 的 fun.m 文件 或 者 私有 文件 。 格 式 3 将 打开 指定 的 文本 文 
件 。 此 外 ,使 用 Windows 操作 系统 的 用 户 可 以 从 File 莱 单 中 选择 New M-file 命令 或 者 利用 函数 Open 
来 启动 MATLAB 编辑 器 。 在 工具 栏 中 单 击 New M-file 按钮 或 者 Open file 按钮 也 可 以 打开 MATLAB 
编辑 器 。 比 如 用 户 在 命令 窗 中 输入 : 
edit ode45 


将 会 在 M 文件 编译 窗口 弹出 ode45.m 文件 。 


6.7.7 ”文件 各 个 部 分 的 信息 
函数 flleparts 可 以 返回 文件 名 各 个 部 分 的 信息 ， 其 调用 格式 为 : 
[pathstr，name，ext，ver] = fileparts(file) 
参数 说 明 :， pathstr 是 文件 所 在 的 路 径 。name 是 文件 名 。ext 是 文件 扩展 名 。ver 是 版 本 信息 。 
比如 执行 如 下 语句 ， 
[pathstr，name，ext，Vver] = fileparts('mesage.kml') 


将 会 得 到 如 下 输出 


pathstr = 
name =meSsage 
ext =,Kkml 
Ver = 和 


6.7.8 建立 完整 的 文件 名 
函数 fullfile 可 以 建立 一 个 完整 文件 名 ， 其 调用 格式 为 ， 


F = fullfile(D1，D2，...，file)， 


参数 说 明 : F 是 返回 的 完整 文件 名 的 字符 串 。D1，D2 等 是 按 顺序 排列 的 路 径 名 ， 它 们 要 求 是 
字符 串 格式 。file 是 含 扩展 名 的 文件 名 。 
比如 执行 如 下 语句 : 


F = fullfile(matlabroot,'toolbox'，'matlab'，'general'， +Contents .m') 


将 返回 一 个 完整 的 文件 名 。 
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6.7.9 列 出 内 存 中 的 函数 名 
函数 inmem 将 列 出 内 存 中 的 函数 名 ， 其 亩 用 格式 如 下 ， 


M = inmem; . 
[M，MEX] = inmemy 
[M，MEX，J] = inmemy 


M 是 P 码 缓冲 器 里 的 所 有 函数 名 。MEX 是 当前 装载 MEX 文件 名 列表 。J 是 当前 装载 的 Java 
类 。 另 外 使 用 语句 clear all 可 以 清除 内 存 中 的 函数 .MEX 文 件 及 Java 类 。 比 如 在 命令 窗 中 输入 inmem 
后 会 显示 当前 内 存 中 的 函数 ， 这 里 不 再 列举 ， 读 者 可 以 自己 查看 。 


6.7.10 建立 新 的 文件 夹 
函数 mkdir 可 以 建立 一 个 新 的 文件 夹 ， 其 调用 格式 如 下 ， 
[success，message，messageid] = mkdir(parentdir，newdir); 


参数 说 明 : 输出 参数 success 等 于 1 时 表明 文件 夹 newdir 成 功 建立 ， 若 success 等 于 0 表示 
发 生 错误 。message 记录 mkdir 执行 后 的 信息 ， 如 果 成 功 建立 了 文件 夹 ， 那 么 message 是 一 个 空 字符 
串 , 否则 将 返回 出 错 信息 messageid 将 给 出 出 错 或 者 警告 信息 , 如 果 文 件 来 成 功 建立 ,那么 messageid 
是 空 字 符 串 。 在 使 用 的 时 候 3 个 输出 参数 可 以 全 部 缺 省 。 如 果 要 建立 的 文件 夹 存在 ， 那 么 success 将 
等 于 1 同时 给 出 一 个 警告 ， 通 知 使 用 者 该 文件 来 已 经 存在 。parentdir 是 所 建文 件 夹 的 上 一 级 路 径 信息 。 
newdir 是 要 建立 的 文件 夹 名 称 。 如 果 parentdir 不 存在 , 那么 mkdir 函数 将 按 parentdir 描述 顺序 依次 建 
立 文件 来， 并 生成 新 文件 夹 newdir。 特 别 地 ， 语 句 mkdir(DWA,'BB) 的 结果 将 是 在 当前 路 径 下 建立 D， 
再 生成 子 文 件 夹 AA 及 下 一 级 文件 夹 BB。 因 此 ， 使 用 者 在 输入 parentdir 信息 时 一 定 要 准确 ， 否 则 会 引 
起 不 必要 的 麻烦 。 比 如 ，mkdir(ABC) 将 在 当前 路 径 生 成 文件 夹 ABC。 


6.7.11 记录 当前 路 径 信息 
函数 pwd 可 以 记录 当前 路 径 信息 ， 其 调用 格式 为 : 


S = pwd; 
参数 说 明 : S 是 当前 路 径 的 一 个 字符 串 ， 这 个 函数 在 切换 路 径 时 非常 有 用 。 


6.7.12 删除 一 个 路 径 

函数 rmdir 可 以 删除 一 个 路 径 。rmdir 函数 操作 成 功 的 前 提 是 该 路 径 下 应 该 没有 文件 ， 其 调用 
格式 为 : 
[success，message，messageid] = Imdir(direccory) : 


参数 说 明 : 3 个 输出 参数 的 意义 与 mkdir 输出 参数 意义 类 似 。directory 是 要 删除 的 路 径 。 当 要 
删除 的 文件 夹 非 空 时 ， 将 会 出 现 如 下 的 提示 : 


?3?? Error using ==> ImaQit 


目录 不 是 空 的 。 
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使 用 者 可 以 根据 message 里 面 的 信息 考虑 清空 该 文件 夹 下 的 文件 。 


6.7.13 ”显示 M 文件 的 全 部 内 容 
函数 type 可 以 把 M 文件 的 全 部 内 容 显示 于 命令 窗 内 ， 其 调用 格式 为 : 


type mfilename 


参数 说 明 : 对 于 当前 路 径 和 MATLAB 搜索 路 径 内 的 文件 ， 使 用 type 函数 都 可 以 在 命令 窗 中 查 
看 文件 的 内 容 。 


6.7.14 列 出 当前 路 径 下 的 内 容 


函数 what 可 以 列 出 当前 路 径 下 的 内 容 ， 如 在 命令 窗 中 输入 what 将 会 出 现 如 下 用 下 画 线 标示 
的 信息 。 
>> what 


M-files in the current directory EB:I\ProgramN\bookl\ch06 
Script_file 


6.7.15 ”基本 结构 


在 进行 数据 计算 的 时 候 ， 有 些 大 型 程序 在 计算 一 组 数据 时 ， 需 要 很 长 时 间 , 在 程序 计算 过 程 中 
可 以 去 做 其 他 事情 。 当 有 多 组 数据 需要 保存 的 时 候 ， 可 以 使 用 程序 自动 的 保存 计算 结果 功能 ， 因 此 
对 于 相似 文件 的 批量 读 写 ， 用 户 将 是 非常 方便 的 。 

在 循环 结构 中 ， 变 化 的 指标 k {( 如 for k = 1:K; … end ) 是 double 型 数据 ， 而 文件 名 是 字符 
圳 型 数据 。 为 了 统一 数据 类 型 ， 可 以 使 用 num2str，int2str 和 mat2str 来 把 double 型 数据 转 为 字符 
串 型 数据 格式 。 一 个 通用 的 批量 读 、 写 程序 模板 如 下 : 


for k = 1:N; 
Rd = load(['Data',num2str(k),'.mat']); # 读 入 数据 
RP = imread(['Pic',num2str(k)，' .png']); gs 读 入 图 片 
Rm = aviread(f['Movie',num2str(k), .avi']); % 读 入 .avi 视频 文件 
Rs = wavread(['Music',num2str(k),，' .wav']); $% 读 入 .wav 音频 文件 
enaQ 
for k = 1:N; g% 批量 写 入 名 称 有 规律 的 文件 模板 如 下 
WwWa = save(['Data'v,num2str(k)， .mat']，X) 7 % 写 入 数据 
Wp = imwrite(X，['Pic',num2str{(k)，' .cif']); g 写 入 图 片 
WwWm = avifile(['Movie' num2str(xk)，'-avi']): gs 写 入 .avi 视频 文件 
ws = auwrite(X，['Music'ynum2str(k),r.au']); sg% 写 入 .au 音频 文件 
enG 


对 于 不 同类 型 的 文件 ,用 户 可 以 对 读 写 文件 的 函数 做 相应 改动 。for 循环 也 可 以 换 
为 while 循环 。 


当 使 用 某 一 软件 不 停 地 产生 某 一 类 型 的 数据 , 同时 对 这 些 数 据 需要 实时 处 理 ， 而 这 个 软件 又 无 
法 完成 数据 处 理工 作 时 ， 如 果 利 用 MATLAB 针对 相应 文件 夹 下 的 数据 进行 实时 处 理 将 是 非常 便利 
的 ， 两 个 软件 可 以 同时 运行 。 下 面 介绍 实时 处 理 数 据 的 一 种 程序 结构 : 
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path='D:\LiuN' s 指定 路 径 
while 1 
lc = dir([path,'*.dat']);  % 利用 通配符 获取 目标 文件 名 
D = char(lc.name)， 外 分 类 出 文件 名 
if ~isempty(D) % 检测 D 是 否 为 有 效 文件 名 
y=load(D{(1,:)); # 读 入 数据 
$% 数 据 处 理 部 分 (用户 可 以 在 这 里 输入 自己 需要 的 计算 程序 ) 
delete(D(1,:)); sg 删除 处 理 过 的 文件 
endG 
pause(0.1); % 停顿 一 下 


在 这 个 结构 中 ， 每 处 理 一 个 文件 后 必须 要 把 处 理 过 的 文件 删除 ， 避 免 出 现 一 直 处 
近 二 EN 理 该 文件 的 情况 。 此 外 也 可 以 利用 前 面 介绍 的 copyfile 函数 把 文件 复制 到 另外 一 
个 文件 夹 下 ， 这 样 就 可 以 备份 数据 文件 ， 这 个 语句 应 该 写 在 delete 语句 之 前 。 关 
于 数据 读 入 的 函数 ， 可 以 根据 实际 的 数据 来 选择 ， 有 的 特殊 文件 可 能 需要 用 户 自 
己 和 去 编写 一 个 读数 据 的 小 程序 。 这 个 程序 执行 之 后 可 以 不 停 地 处 理 指定 文件 夹 下 
的 数据 文件 ， 直 至 用 户 手 动 停止 程序 。 


6.7.16 无 规则 文件 名 的 处 理 


当 文件 名 没有 规律 的 时 候 ， 可 以 利用 dir 函数 获取 目录 下 任务 需求 的 文件 名 信息 。 如 果 文 件 名 
的 扩展 名 确定 ， 可 以 用 下 面 的 语句 得 到 所 有 文件 名 : 
RAL = dir(['w. IIexc']); 
Name = char(aAL.name):， 

其 中 ext 表示 扩展 名 。Name 就 是 需要 的 文件 名 信息 。 除 了 利用 循环 指标 命名 之 外 ， 还 可 以 考 
虑 利用 随机 数 来 命名 。 比 如 数据 写 入 程序 如 下 ; 
for k = 1:K 


% 计算 程序 
Wd = savel(['Data'，int2str(randxle4)，'.mat']); % 写 入 数据 


Ena 


这 里 利用 int2str(rand*1e4) 代 替 上 一 节 中 的 num2str(k) 来 获取 一 个 随机 数 。 对 于 其 他 类 型 文件 
的 保存 也 可 以 类 似 地 做 到 。 


6.8 小 结 


本 章 主要 介绍 了 一 些 类 型 文件 的 管理 与 操作 知识 。 首先 介 绍 了 脚本 文件 的 定义 及 一 些 特点 。 函 
数 文件 是 MATLAB 一 个 比较 有 特色 的 部 分 ， 具 体 介绍 了 函数 文件 的 定义 、inline 函数 的 使 用 方法 、 
分 段 函 数 的 定义 方法 、 子 函数 的 使 用 、 私 有 函数 的 定义 和 管理 等 。 函 数 文件 和 脚本 文件 各 有 各 自 的 
特点 ， 需 要 根据 它们 的 特点 选择 使 用 。 数 据 文 件 的 处 理 是 经 常用 到 的 ， 这 里 详细 介绍 了 数据 文件 读 
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写 操作 的 相关 知识 。 接 下 来 介绍 了 图 片 文 件 、 视 频 文件 和 音频 文件 的 读 写 操作 。 为 了 方便 用 户 处 理 
大 量 文件 ， 本 章 最 后 还 详细 介绍 了 文件 批量 处 理 的 程序 结构 。 
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第 站 章 “线性 方程 组 


人 基础 MATLAB 函数 介绍 一 些 低 阵 分 解 、 竹 阵 参 数 及 操作 的 基本 函数 。 
多 矩阵 求 逆 法 ”介绍 利用 炬 阵 求 逆 直 接 计 算 线性 方程 组 的 解 。 

镶 消 元 法 ”介绍 Gauss 消 元 法 、 亿 赶 法 及 列 主 元 消 元 法 。 

9 和 矩阵 分 解 算法 ”介绍 LU，QR 和 cholesky 分 解法 求解 线性 方程 组 。 

人 和 迭代 法 介绍 雅 可 比 和 迭代 法 、 高 斯 - 赛 德尔 迭代 法 及 逐次 松弛 和 迭代 法 。 
人 共 斩 梯 度 法 ”介绍 相关 MATLAB 函数 的 使 用 方法 。 


求 线性 方程 组 的 问题 ， 不 但 在 科学 技术 中 有 所 涉及 ， 而 且 在 计算 方法 其 他 分 支 的 研究 中 ,比如 
样 条 插值 、 最 佳 平 方 逼近 、 微 分 方程 数值 解 等 ， 也 往往 需要 解 线性 方程 组 ,因此 这 是 一 个 应 用 相当 
广泛 的 分 支 。 本 章 介 绍 用 MATLAB 解 线性 方程 组 的 方法 。MATLAB 软件 最 早起 源 于 对 线性 方程 组 
的 研究 。 ， 
线性 方程 组 的 数值 解法 通常 分 为 两 类 : 直接 法 和 和 迭代 法 。 直 接 法 是 在 没有 舍 入 误差 的 情况 下 ， 
通过 有 限 步 四 则 运算 可 以 求 得 方程 组 。 但 是 在 实际 计算 时 , 由 于 初始 数据 变 为 机 器 数 而 产生 的 误差 
以 及 计算 过 程 中 所 产生 的 含 入 误差 等 都 对 解 的 精确 度 产 生 影 响 , 因此 直接 法 实际 上 也 只 能 算出 方程 
组 的 近似 解 。 目 前 较 实用 的 直接 法 是 Gauss 消 元 法 和 一 些 变形 ， 例 如 选 主 元 的 Gauss 消 元 法 和 和 拢 
阵 的 三 角 分 解法 ， 它 们 都 是 目前 计算 机 上 常用 的 有 效 方法 。 直 接 法 的 优点 是 计算 量 小 , 并 且 可 事先 
估计 ， 缺 点 是 要 求 存储 空间 较 多 ， 编 写 程 序 较为 复杂 。 

和 迭代 法 是 用 某 种 极限 过 程 去 逐步 逼近 准确 解 的 方法 ,从 而 也 可 用 有 限 步 运算 得 出 具有 指定 精确 
度 的 近似 解 。 和 迭代 法 主要 有 : Jacobi 迭代 法 、Gauss-Seidel 迭代 法 、 逐 次 超 松弛 法 以 及 共 斩 斜 量 
法 等 。 和 迭代 法 的 优点 是 原始 系数 矩阵 始终 不 变 ， 因 而 算法 简单 ， 编 写 程序 方便 ， 且 所 需 存 储 空 间 也 
较 少 ， 缺 点 是 只 有 近似 解 序列 收敛 时 才能 被 采用 ， 而 且 存 在 收敛 性 和 收敛 速度 的 问题 。 

对 于 中 等 规模 的 n 阶 ( n<100 ) 的 线性 方程 组 ,由 于 直接 法 的 准确 性 和 可 靠 性 ， 所 以 它们 是 经 
常 被 采用 的 方法 。 对 于 较 高 阶 的 方程 组 , 特别 是 低 于 某 些 偏 微分 方程 离散 化 后 得 到 的 大 型 稀疏 方程 
组 ( 系统 矩阵 绝 大 多 数 为 零 元 素 )， 由 于 直接 解法 的 计算 代价 较 高 ， 使 得 迭代 法 更 具有 竞争 力 。 


7.1 基础 MATLAB 函数 


本 节 介绍 MATLAB 中 提供 的 与 线性 方程 组 相关 的 函数 及 使 用 方法 ， 其 中 包括 矩阵 的 创建 、 短 
阵 分 解 、 和 矩阵 操作 等 函数 。 有 关 函 数 整理 如 表 7.1 所 示 。 


表 7.1 MATLAB 提供 的 与 矩阵 有 关 的 函数 


函数 名 说 明 函数 名 说 明 
chol 和 矩阵 的 cholesky 分 解 lu 符 阵 的 LU 分 解 
cholinc 和 珑 阵 的 不 完全 cholesky 分 解 luinc 甜 阵 的 不 完全 LU 分 解 
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- ( 续 表 ) 
函数 名 说 明 函数 名 说 明 
diag 提取 矩 阵 对 角 元 素 norm 矩阵 或 矢量 的 范 数 
eig 求 本 征 值 和 本 征 向 量 normest 求 矩 阵 的 最 大 范 数 矢量 
eye 生成 单位 矩阵 pinv 求 伪 逆 矩阵 
fiplr 左右 翻转 矩阵 qr QR 分 解 
fpud 上 下 翻转 矩阵 rank 求 矩 阵 的 秩 
inv 求 逆 和 窍 阵 trace 和 矩 阵 对 角 元 素 的 和 ( 迹 ) 


下 面 逐 一 介绍 这 些 函 数 的 使 用 。 


7.1.1 和 矩阵 的 cholesky 分 解 
函数 chol 进行 矩阵 的 cholesky 分 解 ， 即 求解 上 三 角 珑 阵 R 使 R*R=X。 其 调用 格式 为 : 


R = chol(X) ; sg 格式 1 
[R，p] = chol(X); $ 格 式 2 

使 用 说 明 : 如 果 珑 阵 X 正定 ， 可 以 使 用 格式 1。 如 果 甜 阵 X 非 正定 ， 那 么 需要 使 用 格式 2 ( 直 
接 使 用 格式 1 会 提示 出 错 )， 参 数 p 表示 子 和 矩阵 X(1:p-1,1;p-1) 是 正定 的 ， 即 R*R= X(1:p-1,1:p-1)。 


7.1.2 和 矩阵 的 不 完全 cholesky 分 解 


函数 cholinc 实现 矩 阵 的 不 完全 cholesky 分 解 ， 即 求 出 上 三 角 短 阵 R 使 X = R*R-A。 其 调用 
格式 为 ， 


= cholinc(X,Groptol): 
三 cholinc (X， options); 
= 和 07) 7 

,Dp]】 = Cholinc(X,，'0') 7， 
= 本 "inf')7 


R 
R 
及 
[R,p 
R 

参考 说 明 : 和 矩阵 X 要 求 是 稀疏 矩阵 的 形式 , 可 以 使 用 函数 sparse 把 double 型 矩阵 转 为 稀疏 矩 
阵 形式 。droptol 用 来 指定 误差 options 取 值 丰富 多 彩 , 其 中 ,droptol 表示 舍 入 误差 ;如 果 michol=1， 
则 从 对 角 线 上 抽取 出 已 去 掉 的 元 素 ;rdiag 表示 用 droptol 值 代替 上 三 角 分 解 因 子 中 对 角 线 上 的 零 元 
素 。0 是 一 种 分 解 标准 。 如 果 输 出 含有 参数 p， 那 么 不 产生 任何 出 错 信息 ， 如 果 R 存在 ， 则 p=0; 
如 果 R 不 存在 ， 则 p 为 正 整数 。inf 表示 进行 cholesky 无 穷 分 解 。 


7.1.3 提取 和 矩阵 的 对 角 元 素 
函数 diag 可 以 用 来 提取 和 矩阵 的 对 角 元 素 ,同时 它 还 可 以 实现 其 他 相关 功能 。 其 调用 格式 如 下 : 


X = diagfv,k)y # 格式 1 
X = diag(v)， g 格式 2 
V = diag(X,k): g 格式 3 
V = aiag(X) ; s 格式 4 


使 用 说 明 : X 和 v 分 别 表示 和 珑 阵 和 向 量 。 格 式 1 中 由 向 量 v 生成 nxn 方 矩阵 X， 
n=length(v)+abs(k)， 其 中 k 表示 离开 主 对 角 线 的 斜 线 数 ( k 为 正 整数 时 在 主 对 角 线 上 面 ，k 为 负 
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整数 时 在 主 对 角 线 下 面 )， 和 玫 阵 X 中 离开 主 对 角 线 的 斜 线 由 向 量 v 赋值 。k 的 默认 值 是 0。k 可 以 取 
小 数 ， 但 是 MATLAB 按 向 中 心 取 整 处 理 。 格 式 3 是 提取 和 珑 阵 离开 主 对 角 线 的 k 斜 线 上 的 向 量 。 


7.1.4 求 本 征 值 和 本 征 向 量 


函数 eig 可 以 用 来 求 本 征 值 和 本 征 向 量 。 一 般 本 征 值 用 来 求解 方程 Ar = 和 x， 广义 本 征 值 用 来 
求 方程 Ar = 入 Bx 的 解 。 函 数 eig 的 调用 格式 如 下 : 
da = eig(a); 
QG = eig(&aA,B)， 
[V,D] = eigf(A)， 
[V,D] = elig(RA,，'nobalance'); 


[V,D] = eig(R,B) 7; 
[V,D] = eig(A,B,flag)， 


参考 说 明 : d 是 列 向 量 ，V 是 本 征 向 量 短 阵 ( 其 中 列 向 量 对 应 矩 阵 A 的 本 征 向 量 )，D 是 由 本 
征 值 构成 的 对 角 答 阵 。nobalance 表示 直接 求 矩 阵 A 的 特征 值 和 特征 向 量 , 没有 这 个 参数 的 时 候 先 
对 A 进行 相似 变换 后 求 矩 阵 A 的 特征 值 和 特征 向 量 。 当 表达 式 中 含 参数 B 的 时 候 ， 函 数 eig 计算 
广义 本 征 值 向 量 矩 阵 V 和 广义 本 征 值 矩 阵 D， 满 足 AV=BVD。 参 数 flag 用 来 指定 算法 计算 特征 值 
D 和 特征 向 量 V，flag 的 人 为 chol 表示 对 B 使 用 cholesky 分 解 算法 ， 这 里 A 为 对 称 Hermitian 和 珑 
阵 ，B 为 正定 阵 ;flag 的 值 为 qz 表示 使 用 QZ 算法 ， 这 里 A 和 B 为 非 对 称 或 非 Hermitian 和 阵 。 


7.1.5 和 矩 阵 的 基本 运算 


在 MATLAB 中 ， 非 常 方便 地 进行 矩阵 的 基本 运算 ， 包 括 生 成 单位 矩阵 、 和 阵 的 翻转 、 和 珑 阵 的 
求 道 等 。 下 面 分 别 对 这 些 基本 运算 进行 讲解 。 
函数 eye 可 以 生成 单位 矩阵 ， 其 调用 格式 如 下 ; 


Y = eye(n) 
Y = eye(m,n)) 或 者 Y = eye(size(&R)); 


弹出 的 警告 信息 如 下 : 

Warning: Size Vector Should be a row Vector with integer elements. 
函数 fipir 可 以 实现 左右 翻转 矩阵， 其 调用 格式 为 ， 

B = fliplr(A) 


参数 说 明 : 当 A 是 列 向 量 时 B=A。 
函数 fipud 可 以 实现 上 下 翻转 和 矩 阵 ， 其 调用 格式 为 


B = Elipud(Ra) 7; 


参数 说 明 : 当 A 是 行 向 量 时 B=A。 
函数 inv 可 以 用 来 求 逆 矩 阵 ， 其 调用 格式 为 ， 


Y = inv(X) 


参数 说 明 : X 必须 是 方 矩 阵 ， 同 时 函数 inv 支持 符号 矩阵 求 逆 。 
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7.1.6 矩阵 的 LU 分 解 
函数 lu 可 以 用 来 求 矩 阵 的 LU 分 解 ， 其 调用 格式 为 


[L，U] = lu(X)， % 对 应 于 L*U=X 
[L，U，P] = lu(X); 外 对 应 于 DLx*U=PxX 
Y = lu(X); 

[L，U，P，Ql = lu(X)， # 对 应 于 DL*U=P*XxQ 
[L，U，P] = lu(X，thresh) ; % 对 应 于 L*U=P*X 
[L，U，P，0Q] = lu(X，thresh) ; g% 对 应 于 L*U=Px*X*Q 


参数 说 明 : X 是 任意 答 阵 。 和 阵 Y 可 以 表示 为 Y = U+Lspeye(size(X))， 其 中 [L, U, P] = Iu(X)。 
U 为 上 三 角 阵 ，L 为 下 三 角 阵 或 其 变换 形式 。P 为 单位 和 矩阵 的 行 变换 矩阵 ，Q 为 单位 矩阵 的 列 变换 
矩阵 。thresh 是 中 心 阔 值 ， 其 值 分 布 于 区 间 [0,1] ， 默 认 值 为 1。 
7.1.7 ”矩阵 的 不 完全 LU 分 解 


函数 Iluinc 可 以 实现 矩阵 的 不 完全 LU 分 解 ， 其 调用 格式 为 


[L，U] = luinc(X，'05)， 
[L，U，PBP] = luinc(X，'0') 
[L，U] = luinc(X，options); 
[L，U] = luinc(X，dGrcoptol): 
[L，U，P] = luinc(X，options); 
[L，U，P] = luinc(X，dqroptol); 


参数 说 明 : 矩阵 X 要 求 是 一 个 稀疏 方 矩 阵 。U 为 上 三 角 阵 ，L 为 下 三 角 阵 或 其 变换 形式 。P 为 
单位 矩阵 的 行 变 换 矩 阵 。0 是 一 种 分 解 标准 。droptol 指定 不 完全 分 解 的 舍 入 误差 。options 取 值 为 : 
droptol 表示 指定 的 含 入 误差 ; milu 表示 改变 分 解 以 便于 从 上 三 角 分 解 因子 中 抽取 出 已 去 掉 的 列 元 
素 ; ugiag 为 1 表示 用 droptol 值 代 替 上 三 角 因 子 中 对 角 线 上 的 零 元 素 ， 其 默认 值 为 0; thresh 为 中 
心 临 界 值 。 


7.1.8 和 抵 阵 范 数 的 计算 
函数 norm 可 以 计算 和 矩阵 或 矢量 的 范 数 ， 其 调用 格式 为 ， 


= Dorm( 有 A) ; 
n = norm(R,DP):; 


参数 说 明 : n 表示 返回 的 范 数 。A 是 待 求 矩 阵 或 者 向 量 。p 用 来 控制 计算 不 同 的 范 数 : p=1 时 
计算 1- 范 数 ， 返 回 和 矩阵 A 各 列 绝对 值 之 和 的 最 大 值 ， 即 等 价 于 max(sum(abs(A)); p=2 时 计算 2- 
范 数 ， 也 称 为 最 大 奇异 值 ; p=inf 时 计算 “ - 范 数 ， 等 于 A 的 行 向 量 的 1- 范 数 的 最 大 值 ， 即 
max(sum(abs(A))); p=fro 时 求 矩 阵 A 的 Frobenius 范 数 ， 即 sqrtt(sum(diag(A*A)))。 

函数 normest 可 以 用 来 求 矩阵 的 最 大 范 数 矢量 ， 其 调用 格式 为 ， 


妆 


Drm = Dormest(S); 
nrm = norrmest(S，tol) 
[nzrm，count] = normest(S，tol) 
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参数 说 明 : nrm 表示 返回 的 范 数 失 量 。S 是 输入 和 矩阵 。tol 为 指定 的 相对 误差 , 其 默认 值 为 1e-6。 
count 是 计算 范 数 迭 代 的 次 数 。 


7.1.9 计算 伪 逆 和 矩阵 


函数 pinv 可 以 用 来 计算 伪 逆 矩阵 ， 当 一 个 矩阵 是 非 方 矩阵 的 时 候 ， 只 能 计算 其 伪 逆 矩阵 。 其 
调用 格式 为 ， 


B = pinv(RA); 
B = pinv(A,tol); 


司 和。 B 为 返回 的 擅 逆 矩阵 。to1 是 误差 ， 黑 认 值 为 max(size(A))*norm(A)*eps。 当 A 为 方 
让 阵 的 时 候 ，inv(A) 和 pinv(A) 返 回 的 结果 相同 。 


7.1.10 和 天 阵 的 QR 分 解 


函数 qr 实现 矩阵 的 QR 分 解 ， 即 将 矩阵 分 解 成 一 个 正 交 和 矩阵 与 一 个 上 三 角 矩 阵 的 乘积 。 该 函 
数 的 调用 格式 为 : 


[Q,R] = ar(R); 4A 为 double 型 矩阵 或 者 稀疏 和 矩阵 

[Q,R] = ar(a,0); %&A 为 double 型 矩阵 或 者 稀疏 和 矩阵 

[Q,R,E] = qr(R); 4R& 为 double 型 矩阵 ， 不 能 是 稀疏 矩 阵 

{Q,R,E] = qr(a,0); %A& 为 double 型 矩阵 ， 不 能 是 稀疏 和 矩阵 

X = aqr(R)， %RA 为 double 型 矩阵 ， 不 能 是 稀疏 和 矩 阵 

R = GFr(RA)， %A 为 稀疏 矩阵 ，R'*R = R'xRA 

[C,R] = Gqr(RA,B)， #A& 为 稀疏 矩阵， 其 中 C = Q'*B 

R = qr(R,0); %& 为 稀疏 和 矩阵， 针对 稀疏 矩阵 A 的 经 济 型 分 解 

[C,R] = qr(aA,B,0); #R& 为 稀 玻 和 矩阵 ， 针 对 稀 朴 最 小 二 乘 问题 的 经 济 型 分 解 


参数 说 明 : A 为 输入 和 矩阵， 其 可 以 选择 double 型 矩阵 和 稀疏 和 矩阵。Q 是 正 交 和 矩阵 ，R 是 上 三 
角 和 矩阵 。X 是 利用 LAPACK 库 函 数 得 到 的 矩阵， 其 中 triu(X)=Ro。 
7.1.11 计算 和 矩阵 的 秩 与 迹 
函数 rank 可 以 用 来 求 矩 阵 的 秩 ， 其 调用 格式 为 : 


rank (RA) 
Frank (ARA,col) :; 


参数 说 明 : 参数 A 是 输入 的 待 求 矩阵 ， 其 不 能 是 稀疏 矩阵 形式 。k 是 计算 得 到 和 阵 的 秩 。tol 
是 指定 的 误差 ， 其 默认 值 是 max(size(A))*norm(A)*eps。 
利用 函数 trace 可 以 得 到 矩阵 对 角 元 素 的 和 ( 迹 )， 其 调用 格式 为 : 


b = tracef{RA) 


参数 说 明 : trace 函数 等 价 于 sum(diag(A)) 和 sum(sum(A.*eye(size(A))))。 


天 瑟 
IE 
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7.2 和 矩阵 求 逆 法 


为 了 理解 德 阵 求 疼 的 方法 ， 首 先 介绍 线性 方程 组 AX=B 的 基本 理论 。 
人 @ 由 阶 行列 式 A;， |Al| 等 于 所 有 取 自 不 同行 不 同 列 的 mn 个 元 素 的 积 的 代数 和 。 
争 算 阵 下: 是 一 个 列 向 量 。 
人 @ 线性 无 关 : 一 列 向 量 组 (%,4，…au) 不 与 线性 相关 ， 即 没有 不 全 为 零 的 系数 Cu cz，…Cr 使 
得 ciai 二 czaz 十 …Cca, =0 成 立 。 
镶 秩 : 向 量 组 的 极 大 线性 无 关 组 所 含 向 量 的 个 数 称 为 这 个 向 量 组 的 秩 ， 记 为 RIA)。 
争 “ 一 般 线性 方程 组 AX=B 是 指 如 下 形式 : 
本 1 齐 厂 十 Ga 站 22 十 十 本 无 一 丙 
CD21 灶 辐 十 Goz 灶 X 十 十 GD 半生 一 包 


CN 于 惊 十 GD 站 和 十 十 G 二 坟 


其 中 ， 国 ， 如 ，…， 加 为 个 未 知 数 ，m 为 方程 个 数 。 记 : A*X=b。 
争 方程 组 AX=B 的 增 广 矩 阵 为 : 
al aa … QQn 乌 
洒 Ga 包 
全 


急 A*X=0 是 方程 组 AX=B 对 应 的 齐 次 线性 方程 组 。 
对 于 线性 方程 组 有 3 种 基本 变换 ， 即 : 
。 用 非 零 数 两 边 同 乘 其 中 某 一 个 方程 。 
。 将 一 个 方程 倍数 后 加 到 另 一 个 方程 。 
。 互 换 两 个 方程 的 位 置 。 


以 上 的 操作 称 初等 变换 。 利 用 这 3 种 初等 变换 可 以 把 方程 转化 为 比较 简单 的 等 价 形式 。 
线性 方程 组 有 解 的 必要 条 件 为 R(A)=R(4) 。 

接 下 来 介绍 不 同类 型 线性 方程 组 解 的 结构 。 

争 ， 齐 次 线性 方程 组 
e ”两 个 解 之 和 还 是 方程 组 的 解 。 
。 一 个 解 的 倍数 还 是 方程 组 的 解 。 
定义 ; 齐 次 线性 方程 组 的 一 组 解 ，?9 ，…，&x 称 为 齐 次 线性 方程 组 的 一 个 基础 解 系 ， 
如 果 齐 次 线性 方程 组 的 任 一 解 都 能 表示 成 % ，5 ，…，&x 的 线性 组 合 ， 则 5 ，S2 ，.…，sx 
线性 无 关 。 

争 ， 非 齐 次 线性 方程 组 
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e 方程 组 AX=B 的 两 个 解 的 差 是 AX=0 的 解 。 
e 方程 组 AX=B 的 一 个 解 与 AX=0 的 一 个 解 之 和 还 是 AX=B 的 解 。 
定理 : 如 果 姑 是 方程 组 AX=B 的 一 个 特 解 ， 那 么 方程 组 AX=B 的 任意 一 个 解 二 都 可 以 表 
示 成 二 xo+cve 其 中 v 是 AX=0 的 一 个 解 ，c 是 系数 ， 因 此 对 方程 AX=B 的 任 一 特 解 为 Ao， 
当 v 取 遍 方程 组 AX=0 的 全 部 线性 无 关 解 后 ，x=xo+cy 就 给 出 了 方程 组 AX=B 的 全 部 解 。 
线性 方程 的 求解 分 为 3 类 : 一 类 是 方程 组 求 唯一 解 ; 一 类 是 求 特 解 ; 一 类 是 在 特 解 基础 上 求 
无 穷 解 ， 即 通 解 。 具 体 求解 步骤 如 下 。 


IE 判断 方程 组 解 的 情况 。 


@ 当 R(4)=R(4) 时 , 若 R(4)=R(A) = 普 ， 则 有 唯一 解 , 若 RUA)=R(A)<n 则 有 无 穷 多 解 。 
@ 当 R(4)<R(4) 时 无 解 。 


求 特 解 。 特 解 的 计算 可 以 用 X=ANB ( 或 者 用 函数 pinv 求 伪 逆 矩 阵 来 计算 特 解 
X=pinv(A)*B ) 计算 。 
求 通 解 ( 无 穷 多 解 ) AX=B 的 无 穷 多 解 为 AX=0 的 通 解 加 AX=B 的 一 个 特 解 。 


RSSSN 。。 以 上 针对 非 齐 次 线性 方程 组 AX=B。 齐 次 线性 方程 组 AK-0， 则 主要 是 用 到 步 聂 1 和 
EN 霄 李 2。 


E 


对 于 线性 方程 组 AX=B 或 XA=B, 在 MATLAB 中 求解 时 ,可 以 直接 采用 矩阵 的 除法 运算 符 “人 
和 人 ”来 实现 。 如 ， 

争 X=A\B 表示 求 线性 方程 组 AX=B 的 解 。 

争 X=BI/A 表示 求 线性 方程 组 XA=B 的 解 。 

这 里 ， 对 于 方程 组 X=A\B， 要 求 A 和 B 有 相同 的 行 数 ，X 和 B 有 相同 的 列 数 ， 它 的 行 数 等 于 
和 矩阵 A 的 列 数 ,方程 X= B/A 同 理 。 事 实 上 ， 可 以 通过 计算 inv(A)*B 和 B*inv(A) 来 分 别 计算 线性 方 
程 组 AX=B 和 XA=B 的 解 。 

例 7-1: 求 下 面 的 线性 方程 组 的 解 。 

为 二 22 +32 =] 


6x 十 总 十 22 一 2 
4X8 +3m +25 =3 
求解 程序 如 下 : 
RA = [1,2,3;6,1,2;14,3,2]; $ 输入 方程 系数 矩 阵 
B = [1;2;3]; g% 向 量 B 
X = RNVB g% 直接 求解 方程 的 解 
X = X' # 求 转 置 矩 阵 
输出 结果 如 下 : 


X = 0.3000 0.8000 -0.3000 
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伐 可 以 通过 AX-B 来 验证 解 的 正确 性 。 


要 指出 的 一 点 是 ， 在 使 用 “X=AWB， 求 方程 组 的 解 之 前 ， 最 好 利用 det 或 者 rank 函数 查看 一 
下 方程 是 否 有 唯一 解 。 
例 7-2: 求解 下 面 的 方程 组 ， 其 中 A=magic(4)，B=[1,1,1,1]。 


AX= 了 B 

在 MATLAB 中 可 以 用 下 面 的 语句 先 得 到 方程 组 的 解 : 
有 = magic(4); # 输入 系数 矩阵 
站 # 输入 向 量 B 
X0 = [RN\B]' sg 求解 方程 

输出 结果 如 下 : 


Warning: Matrix is close to singular or badqly scaled. 
Results may be inaccurate。、RCOND = 1.306145e-017 . 
(Type "warning off MATLAB:nearlySingularMatrix" to suppress this warning.) 
> In 忆 :\Program\vbookl\vch07\example_7_1.m at line 11 
X0 =0.0588 0.1176 -0.0588 0 


这 说 明 系 数 矩 阵 4 是 奇异 的 ， 方 程 组 解 的 情况 需要 进一步 计算 才能 确定 ， 下 面 计算 矩 阵 4 和 
[A, B] 的 秩 。 


= Iank(A); 
r2 = rank([A，B]) 


如 果 r1=r2 说 明 方 程 有 无 穷 多 解 ， 否 则 方程 无 解 。 在 这 个 例子 中 ,，r1 = r2 = 3<4， 说 明 方 程 
有 无 穷 多 解 ， 而 前 面 得 到 的 X0 只 是 一 个 特 解 ， 通 过 [A*XO-B] 验 证 有 : 


ans = 1.0e-015 * 
0 0 0 -0.2220 


表明 X0 是 方程 组 的 解 ， 它 可 以 作为 一 个 特 解 。 通 解 的 计算 步骤 如 下 : 


IE 求 AX=0 的 通 解 。 
ER 到 AXx=b 的 通 解 为 AX=0 的 通 解 加 上 AX=b 的 一 个 特 解 。 


方程 组 AX=0 的 通 解 可 以 使 用 MATLAB 提供 的 函数 null 来 计算 ， 其 调用 格式 为 : 


X = nullI(R); 
X = null(RA，'r) 7 

参数 说 明 : X 是 返回 的 通 解 。A 是 输入 的 矩阵。 参数 r 表示 如 果 A 的 系数 是 整数 ，X 将 是 由 整 
数组 成 的 矩阵 。 


使 用 下 面 的 命令 可 以 得 到 方程 组 AX=0 的 通 解 。 
xnl = null(a) sg 求 出 解 空间 的 一 组 基 ( 基础 解 系 ) 
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xn2 = null(a,'r') s# 求 出 解 空间 的 一 组 基 ( 基础 解 系 ) 
根据 上 面 命令 得 出 的 结果 是 : 


可 以 发 现 利用 参数 r 得 到 整数 通 解 。 通 解 的 构造 公式 为 : 压 。 = 0 二 CI 十 … 二 C 芒 ,其 中 0 
是 特 解 ，CI ，… ，(C, 是 任意 实数 ， 为 ，…， 态 是 利用 null 函数 得 到 矩阵 ( 了 是 矩阵 的 列 数 ) 
的 列 向 量 。 

如 果 把 例 7-2 中 的 算 阵 B 换 为 B=[1: 4]， 计 算 X=A\B 有 : 
Warning: Matrix is close to singular or badly scaled. 

Results may be inaccurate。RCOND = 1.306145e-017. 

(Type "warning off MATLRAB:nearlySingularMatrix”to suppress this warning.) 
> In BE:\Programvbookl\ch07\example_7_1.m at line 10 


又 = 1.0e+015 * 
-0.5629 -1.6888 1.6888 0.5629 


可 以 检查 所 得 解 X 是 否 满足 方程 ， 即 计算 A*X-B， 输 出 如 下 : 


ans = -1.0000 
4.5000 
1.0000 
3.8125 


可 见得 到 的 解 其 实 不 是 方程 组 的 解 ， 也 不 必 再 求解 下 去 ， 即 可 以 判定 方程 组 无 解 。 
例 7-3: 利用 函数 rref 求 下 面 方程 组 的 解 。 
为 一 六 十 为 一 始 =1 
一 悚 十 妈 十 为 一 双 三 1 
22 一 22 一 为 十 双 = 一 | 
分 析 : 直接 观察 方程 可 知 ， 方 程 个 数 少 于 未 知 数 个 数 ， 因 此 方程 可 能 是 无 解 或 者 有 无 穷 多 解 。 


R = [1,-1,1,-1;-1,1,1,-1;72,-2,-1,1]; # 输入 系数 矩阵 及 

B = [1;17-1]; % 输入 向 量 B 

rr = [rank(RA)，rank([aA,B])] g% 求 系数 矩阵 A 和 增 广 和 矩阵 的 秩 
输出 如 下 : 

rr =2 


因为 系数 矩阵 和 增 广 和 矩阵 的 秩 相 等 且 小 于 未 知 数 的 个 数 , 所 以 方程 有 无 穷 多 解 。 进 一 步调 用 函 
数 rref。 
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C = rref([RA,B]) % 求 增 广 矩阵 行 的 最 简 阶 梯形 矩阵 形式 
得 到 的 输出 结果 为 : 
c= 1 -1 0 0 0 
0 0 1 -1 1 


外 
上 二 浊 应 于 人 因此 通 解 可 以 写 为 ,为 = 为, 为 = 加 +， 其 中 总和 为 可 以 在 定义 
范围 内 任意 取 值 。 


7.3 ” 消 元 法 


消 元 法 首先 用 初等 变换 转化 线性 方程 组 为 阶梯 形 方程 组 ， 把 最 后 的 一 些 恒等式 “0=0”{ 如 果 
出 现 的 话 ) 去 掉 。 如 果 剩 下 的 方程 当中 最 后 的 一 个 等 式 是 零 等 于 一 个 非 零 数 ， 那 么 方程 组 无 解 ; 否 
则 有 解 。 在 有 解 的 情况 下 ， 可 以 分 为 如 下 两 个 情况 : 


争 如 果 阶 梯形 方程 组 中 方程 的 个 数 7 等 于 未 知 量 的 个 数 ， 那 么 方程 组 有 唯一 的 解 。 
镶 如 果 阶 梯形 方程 组 中 方程 的 个 数 7 小 于 未 知 量 的 个 数 ， 那 么 方程 组 就 有 无 穷 多 个 解 。 


用 初等 变换 转化 线性 方程 组 为 阶梯 形 方程 组 ， 相 当 于 用 初等 行 变 换 转 化 增 广 矩阵 成 阶梯 
形 和 矩阵。 根据 阶 梯形 矩阵 就 可 以 判别 方程 组 有 解 还 是 无 解 ， 在 有 解 的 情形 下 ， 回 到 阶梯 形 方 


程 组 去 求解 。 
利用 MATLAB 提供 的 函数 rref 可 以 得 到 求 矩 阵 行 的 最 简 阶 梯形 矩阵 形式 ， 该 函数 调用 格式 为 


R = ref(RA) ; 
[R,jb]j = rref(A); 
[R,jb] = rref(RA,tol); 


参数 说 明 :; R 是 返回 的 最 简 阶 梯形 矩阵 形式 。jb 中 元 素 表 示 基 向 量 所 在 的 列 。A 是 输入 的 和 矩 阵 ， 
它 可 以 是 系数 矩阵 4 或 增 广 和 矩阵 4。 tol 为 指定 的 精度 , 其 默认 值 为 (max(size(A))*eps*norm{(A,inf)， 
相应 地 有 函数 rrefmovie 来 给 出 每 一 步 化 简 的 过 程 。 

用 下 面 的 语句 求 矩 阵 行 的 最 简 阶 梯形 矩阵 形式 ; 


R=magic(3) ; % 系数 矩阵 
B=[1:3]'; gs 向 量 B 
ApP=[R' vB]; gs 增 广 和 矩阵 


rrefmovie(ap)  $% 逐步 显示 简化 结果 
C=rref (Ap) # 求 和 矩阵 行 的 最 简 阶梯 形 和 矩阵 形式 


输出 如 下 : 
有 三 
8 3 4 1 
1 5 9 2 
6 7 2 3 
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使 用 者 按 任意 键 就 可 以 查看 每 一 步 的 简化 结果 ， 其 中 为 了 显示 方便 ，rrefmovie 执行 的 时 候 人 
命令 窗 清 屏 ( 即 函数 clc ) 操作 ， 可 以 在 学 习 线性 代数 课程 时 用 这 个 函数 做 演示 示例 。 
矩阵 Ap 行 的 最 简 阶梯 形 短 阵 形式 为 ， 


C = 1.0000 0 0 -0.0333 
0 1.0000 0 0.46567 
0 0 1.0000 -0.0333 


由 于 和 阵 C 前 面 3 列 对 应 的 和 矩阵 是 单位 矩阵， 可 知 上 面 结 果 最 右 侧 一 列 就 是 方程 
magic(3)*X=[1;2;3] 的 解 。 

首先 需要 考虑 三 角 方 程 组 的 解法 。 对 于 上 三 角形 方程 组 ,其 答 阵 形式 表示 为 Ux = 忍 ， 这 里 过 
是 上 三 角 答 阵 ， 即 : 


引 0 tn 
1 ln ton 
已 = 有 
on- Lp -ln 
“ (7-1) 


表示 未 知 数 向 量 。 甩 表示 列 向 量 。 若 矩阵 U 的 行列 式 不 等 于 0， 即 狠 去 04G = 2……7) ， 
矩阵 是 非 奇异 的 , 则 上 三 角 方 程 组 ( 7-1 ) 有 唯一 解 , 且 可 从 最 后 一 个 方程 解 出 , 即 : 如 = yn/ulw 。 
套 入 便 数 第 二 个 方程 得 到 : 


Jr-l 一 (ya 一 邮 Mn 汪汪 


一 般 情 况 ， 假 设 已 求 得 为 ,和 -0 … 克 +1， 则 由 方程 的 第 守 个 方程 可 得 ; 


罗 三 | 包 一 1 4 
| 包 小 1 一 一 17 一 2 (7-2 ) 


依次 计算 下 去 即 可 得 到 方程 组 的 所 有 未 知 数 。 上 述 求 解 过 程 被 称 为 回 代 过 程 。 回 代 过 程 所 用 乘 
除法 运算 次 数 为 M, =(m 二 1)/2 ， 加 减法 运算 次 数 为 8 = 站 (一 ])/2 。 根 据 公 式 ( 7-2 )， 编 写 
了 函数 文件 uelim.m ( 保存 在 光盘 中 ) 来 实现 消 元 法 解 上 三 角 方 程 组 。 

例 7-4: 利用 消 元 法 求解 下 面 的 方程 组 。 

3 为 十 22 十 为 十 4x4 =] 
Sz2 + 为 +22 =9 


2 +Sx4 = 了 7 
2x4 =9 
求解 的 MATLAB 程序 如 下 : 
RAR = [3,2,1,4;0,5,1,2;0,0,2,5;0,0,0,2]; # 输入 系数 和 矩阵 
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B = [1;9;7;9]， # 输入 向 量 B 

X = uelim{(U,B) #% 用 消 元 法 解 上 三 角 方 程 组 
输出 结果 如 下 ， 

时 ,到 -4.1167 1.5500 -7.7500 4.5000 


可 见 上 三 角 方 程 组 的 求解 方法 比较 简单 ， 但 对 于 一 般 的 线性 方程 组 AX=B 而 言 ， 若 能 通过 变 
换 将 其 化 解 为 上 三 角 方程 组 这 种 特殊 形式 ， 则 求解 方程 组 的 问题 也 就 自然 解决 了 。Gauss 消 元 法 
正 是 实现 这 一 想法 的 求解 方法 。 

将 原 线性 方程 组 写成 增 广 矩阵 的 形式 ， 其 中 gj = dj ，bisu = 包 ，1< 六 JSm。 


(D) (D (D (0 
al ap 和 an 和 
() (D) () () 
Ci 0a2 … an 包 
0 = 
() (D (D) 0) 
Ga- 0 Or-in Da 
(0 CD) (0 (D 
Gml Ca2 人 Qm 包 ( 7-3 ) 


第 1 步 消 元 : 假设 dd 关 0 , 将 X0 中 的 第 1 行 乘 以 旋 = 一 Ga 人 /af ,加 到 第 ii= 2.3,…, ) 
行 上 去 ， 可 得 到 同 解 方程 组 的 增 广 矩 阵 。 


(人 2) .2) 0D 
al 2 an 入 
HP) (2 .QZOD 
宇 人 | 0 an 忆 | - ， 
0) (2) (2) (2) |= 4G) 
4 歼 |0 om ar 包 |=4 
ni 2 


0 aa 1 ae 隐 

其 中 q 岂 =G 岂 一 和 ia ，1<i<7m2< <7+1。 这 里 符号 +(- 心 ) 天 表示 对 由) 的 第 ;行进 
行 变 换 ， 将 第 1 行 的 (- 书 ) 倍加 到 第 ; 行 上 。 

第 大 步 消 元 : 设 4 各 关 0 , 将 亏 (o 中 的 第 大 行 对 角 线 以 下 的 元 素 消 为 零 , 即将 万 中 的 第 大 行 
乘 以 几 = 一 at /ja ， 加 到 第 ; ( 守 = 大 十 1 大 十 2,……,m_ ) 行 上 去 可 得 到 同 解 方程 组 的 增 广 矩阵 。 


OOD) (D) D .0 (0 
0 0 … QU Qt+l Gin 包 
(2) (2) C2)”  .， (2) (2) 
0 4 … Gokl Gil Cn 忆 
大 HI 十 (一 熙 FL) 次 ， 。 


放 +2 十 (一 个 +2) 站 


专 () (6 (有 (bb) (| _ (krD 
4 一 > 0 0 … Cu 下 寻 an 有 | =4 
(k+D (k+1) (k+1) 
n+ | 0 0 … 0 ak … Gkrlm 以 4 
K+1 
0 0 二 0 CCk+D 了 CCk+1) 中 +]) 


用 类 十 ] TD 
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其 中 qy 和 = Q 交 一 庆 Q0) ， 大 +1<i<1 大 二 1< SP 十 1。 称 参数 及 为 消 元 因子 ，Qf 为 大 
步 矩 阵 0 主 元 。 
上 述 做 法 直至 第 m1 步 完 成 ， 得 到 同 解 的 方程 组 ， 如 下 : 


(D) (1) () () DO 
1 


和 Qi2 ve Qi-l Qin 


(2)  。,。 (2) (2) (2) 
0 022 Cn-l Cn 狐 
4 =| 0 。 oae 5 
3; 站 (Cn-J) (2 (2-D 
0 Cn-ln Cr=in 忆 -1 


人 ”2 克 已 本 


4 为 上 三 角 和 矩阵 ， 这 时 用 回 代 过 程 便 可 求 得 解 向 量 x。 


ES 
注意 如 果 出 现 Q&) 关 0 的 情况 ， 可 以 把 第 大 行 与 下 面 的 某 一 行 互 换 ， 以 保证 QU 关 0 。 
上 述 的 Gauss 消 元 过 程 中 ， 乘 除法 次 数 为 ，Ms = 了 + 1m-3n，HM = MI+ Mi 本 + 下 一 本 
加 减法 次 数 为 ， 8 = 了 -3 S=Si+3S， = 了 + 一 3。 
Gauss 消 元 法 可 分 为 消 元 和 回 代 两 个 过 程 ， 于 是 Gauss 消 元 法 总 的 运算 量 为 ， 乘除 法 次 数 
M = Mi + M， 加 加 减法 次 数 8 = Si + S。 ， 由 于 在 计算 机 运算 中 ， 做 一 次 乘除 所 花费 的 时 间 大 大 
超过 做 一 次 加 减法 所 需 的 时 间 , 因 此 估计 某 个 方法 所 需 运算 量 时 ,往往 只 需 估 计 乘除 次 数 , 即 Gauss 
消 元 法 的 运算 量 为 My 。 当 半 很 大 时 ， 可 以 略 去 刀 的 低 次 早 项 ( 12 和 尹 )， 这 样 Gauss 消 元 法 的 计 
算 量 为 /9/3 数量 级 。 例 如 当 尹 = 30 时 ，Gauss 消 元 法 需 做 9890 次 乘除 法 。 
利用 MATLAB 提供 的 函数 qr 可 以 把 矩阵 A 分 解 为 正 交 矩 阵 Q 和 上 三 角 矩 阵 Uo 利 用 正 交 矩阵 
的 性 质 ， 可 以 用 和 矩阵 Q 的 转 置 矩阵 Q 同 乘 方程 AX=B 的 两 侧 而 得 到 一 个 上 三 角 方 程 。 这 样 就 免 去 
了 按 上 述 过 程 编写 Ganss 消 元 程序 。 
在 实际 应 用 中 存在 着 一 类 三 对 角形 方程 组 ， 如 样 条 函数 的 计算 、 微 分 方程 数值 求解 等 。 这 种 方 
程 可 以 写 为 如 下 形式 ， 


已 Gi d 
0 及 cc 加 d 
Qn-l 已， Cn-l -1 Qi 

Ga， D | 思 dd， (7.5) 


系数 矩阵 中 非 零 元 素 分 布 在 主 对 角 线 及 相 邻 的 两 条 斜 线 上 ， 同 时 需 元 素 满足 : 


IDnp>cl>0 
多 上 局 ai1l+lcl，aci 关 00G=23… 一 JD 
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利用 方程 组 ( 7-5 ) 的 特点 ， 应 用 Gauss 消 元 法 求解 时 ， 在 每 一 步 消 元 中 只 需 消去 一 个 元 素 。 
消 元 过 程 为 : 


局 = 记 ， =d 
1= 寺 ， 其 = 看 一 17 23… 
AD ( 7-6 ) 
得 到 同 解 方程 组 为 ， 
有 cc 光 
凤 匠 力 
有 ，c- yi 
辣 交 和 忆 ( 7-7 ) 
回 代 过 程 为 : 
六 = 思 /10 
厂 =(y =-cx)1C， 1 一 用 一 ] 7 一 2…,1 ( 7-8) 


这 种 把 三 对 角 方 程 组 ( 7-5 ) 的 解 用 递 推 公式 ( 7-7 ) 和 { 7-8 ) 表示 出 来 的 方法 被 形象 地 叫做 追赶 法 。 
公式 (7.6 ) 是 下 标 ; 站 由 小 到 大 的 递 推 公式 ， 故 被 称 为 追 的 过 程 。 公 式 ( 7-8 ) 是 关于 下 标 ; 从 大 到 小 的 弟 
推 过 程 ， 故 被 称 为 赶 的 过 程 。 用 追赶 法 解 方程 组 ({ 7-5 ) 仅 需要 (5n_4) 次 乘除 过 程 和 (3m-3) 次 加 减 过 程 。 

在 前 面 介绍 的 Gauss 消 元 法 中 ， 只 有 在 4 他) 关 0 (大 = 12,…, 半 一 ]) 下 才能 进行 ， 而 且 需 指出 


(类 ) 


即使 @ 多 关 0 ， 当 |o 如 | 和 |@ 品 | (+ 1<is 站 相 比 很 小 时 ， 也 是 不 适用 的 。 因 为 在 第 上 步 消 元 时 ， 
需 将 Xe 的 第 上 行 科 以 人 及 ) 加 到 第 i 行 。 如 果 第 人 行 的 元 素 at，，,a 人 9,>，…,Q 人 On) 有 误差 


(E ,Eu ，E,，) ， 则 该 误差 将 放大 (有 ) 倍 传 到 Xob 的 第 计 行 。 这 样 友 (= qi /age ) 的 绝对 
值 很 大 ， 由 此 将 带 来 舍 入 误差 的 严重 增长。 

解决 这 一 问题 的 方法 之 一 是 选 列 主 元 。 假 设 已 完成 第 (e_1) 步 消 元 ， 在 进行 第 上 步 消 元 之 前 ， 
选 出 第 大 列 中 位 于 对 角 线 及 其 以 下 元 素 绝对 值 中 的 最 大 者 ， 即 确定 !， 使 得 ; 


( (D 
Qik | 


| 








三 InaX 


SFSm ( 7-9) 


将 艺 6 的 第 + 行 和 第 大 行 互相 交换 , 则 元 素 q& 为 新 的 主 元 素 QK ,其余 元 素 也 均 以 交换 后 的 
位 置 表示 ， 然 后 再 按 Gauss 消 元 法 进行 第 上 步 消 元 。 这 种 方法 称 为 列 主 元 Gauss 消 元 法 。 此 时 消 
元 因子 满足 ，; 


上 |= <1 1= 大 二 1 十 2 





(bb 
Ca 

(6 
Qkk 





{ 7-10 ) 
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在 一 般 情 况 下 ， 该 法 能 保证 舍 入 误差 不 扩散 ， 即 这 个 方法 基本 是 稳定 的 。 列 主 元 Gauss 消 元 
法 的 运算 量 除 选 主 元 及 行 交换 外 和 Gauss 消 元 法 是 相同 的 。 根 据 列 主 元 消 元 法 的 思想 ， 作 者 编写 
了 函数 文件 CMGelim.m 来 实现 列 主 元 消 元 法 解 线性 方程 组 ,其 中 调用 了 前 面 提 到 的 uelim.m 程序 。 
例 7-5: 用 列 主 元 消 元 法 求 下 面 的 方程 。 
4 司 十 2 一 62 二 454 三 2 
3 为 十 如 十 53+22 =0 
2 为 二 3 如 二 2 一 妈 =0 
2 司 十 4 总 十 二 22 一 8 


程序 如 下 : 
&a_ = [4,2,-6,4;3,1,5,272,3,2,-172,4,1,2]; s* 输入 系数 矩阵 U 
b = [2;0;0;8]; # 输入 向 量 B 
X = CMGelim(a,b) g% 列 主 元 Gauss 消 元 法 解 方程 组 
输出 结果 为 : 
X= -2.3254 2.1124 0.1657 “ 2.0178 


如 果 在 列 主 元 消 元 法 的 程序 CMGelimm 中 注 释 掉 关 于 挑选 主 元 的 程序 段 ( 第 12~15 
0 行 )， 风 可 得 到 Gauss 消 元 法 的 程序 。 


7.4 矩阵 分 解 算 法 


利用 矩阵 的 LU，QR 和 cholesky 分 解 求 线性 方程 组 的 解 ， 在 求解 大 型 方程 组 的 时 候 很 有 用 。 
其 优点 是 运算 速度 快 、 节 省 磁盘 空间 、 节 省 内 存 。 

从 前 一 节 的 消 元 过 程 可 以 看 出 ，Gauss 消 元 过 程 实际 就 是 对 方程 组 AX=B 的 增 广 矩阵 [A,B] 连 
续 左 乘 以 九 , 韦 ,…., 忆 ,得 到 上 三 角 方 程 组 UX = 》( y 为 转化 的 增 广 矩 阵 让 w) 最 右 侧 一 列 )， 即 : 


到- DAX =UX = 了 = 症 -2 (7-11 ) 
其 中 ， 
1 
0 1 
DO 1 
一 0 0 一 AN 1 
00… ax0 
0 0 … 一 0 … 1 (7-121) 


令 工 = 厅 刻 …7 ， 用 也 左 乘 公式 (7-11 )， 有 : 
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DPID 0DA4AX 三 LE (7-13 ) 
于 是 得 到 
4=LU (7-14) 


称 为 单位 下 三 角 和 矩阵 ，V 为 上 三 角 和 矩阵。 我 们 把 这 种 矩阵 4 分 解 为 两 个 或 者 多 个 简单 矩阵 
的 乘积 称 为 矩阵 分 解 。 这 里 分 解 式 ( 7-14 ) 称 为 矩阵 的 LU 分 解 。 
例 7-6: 用 LU 分 解法 解 下 面 的 方程 。 
3X 十 22 十 2 十 Sx4 三 2 
2X0 +2z +3z 二 Sx =0 
220 +3z 十 4 为 二 224 =0 
2 一 3z +32 十 22 =9 


求解 程序 如 下 ， 
aA = [3,2,2,5;2,2,3,5;2,3,4,2;2,-3,3,2]; sg% 输入 系数 和 矩阵 和 
B = [2;0;0;9]， #% 输入 向 量 B 
[L,U] = lu(R)， s 计算 LU 分 解 
B1 = LNB; g 更 新 向 量 B 
X = uelim(U,B1l) #% 用 消 元 法 解 上 三 角 方 程 组 
Delta = [Re*X'-B]， % 检验 结果 
输出 结果 为 : 
X=- 2.2477 -1.5413 ”0.2477 -0.4312 
Delta = 1.0e-015 * 
-0.4441 “0.4441 -0.4441 0 


可 见 误 差 很 小 ， 在 10“ 量 级 。 

对 和 矩阵 X 进行 QR 分 解 ， 就 是 把 X 分 解 为 一 个 正 交 矩阵 Q 和 一 个 上 三 角 和 矩阵 R 的 乘积 形式 。 
MATLAB 提供 的 函数 qr 可 用 于 对 和 矩阵 进行 QR 分 解 ， 进 行 QR 分 解 后 ， 线 性 方程 组 AX=B 的 解 可 
以 通过 下 面 的 表达 式 语 名 计算: 

X = uelimtU,Q\B) $% 用 消 元 法 解 上 三 角 方程 组 

例 7-7: 用 QR 分 解 求解 下 面 的 线性 方程 组 。 

2X 二 22 一 92 +3x4 =8 
30 一 5zPD+22+72 =0 
4 二 22 十 223 一 5X4 = 人 
3X% +3z 一 32 一 5S24 =2 


求解 程序 如 下 : 
有 RA = [2,2,-5,3;3,-5,2,7;4,2,2,-513,3,-3,-5]); % 输入 系数 矩阵 
B = [8;0)4;2]， g% 输入 向 量 B 
[O,R] = qr(aA); # 计算 LU 分 解 
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X = uelim(R,QN\B) # 用 消 元 法 解 上 三 角 方 程 组 
计算 结果 如 下 : 
X= 0.9489 2.8786 0.7859 1.4249 


采用 QR 分 解 求解 方程 组 还 存在 第 2 种 格式 ， 具 体 过 程 如 下 : 


[Q,R,E] = qz(RA); 
X = EB*(RN(QNB)) 


当 方 程 组 的 系数 矩阵 是 对 称 正定 时 ， 可 以 直接 做 Gauss 消 元 法 ， 即 对 称 正 定 矩 阵 保证 能 直接 
做 LU 分 解 。 现 在 来 研究 此 时 工 和 忆 间 的 关系 。 因 为 矩阵 4 是 对 称 的 ， 故 有 : 


1 三 Qj 站 =| 2 1715j 
由 LU 分 解 分 式 : 
三 三 配 汪 三 1 2……7 好 二，( 双 ; 表示 增 广 矩阵 的 元 素 ) (7-16 ) 
阁 = 生 ， 1 一 2,3,……, 六 

4 : ( 7-17) 
由 上 述 公 式 ( 7-16 ) 和 ( 7-17 ) 可 得 : 
1 = 到 = 和 ， 1 一 2.3……,7 

QI gl { 7-18 ) 


若 已 求 得 第 1 步 到 第 -1D) 步 ， 则 甜 阵 荆 和 也 的 元 素 有 如 下 关系 : 
帮 三 -2 
多 ( 7-19 ) 
由 此 可 知 ， 对 一 切 大 均 有 : 
及 = 爸 , 类 =12 一 1 天 二 1 天 十 2 
人 ( 7-20 ) 
对 于 对 称 短 阵 ， 按 公式 ( 7-20 ) 求解 ， 而 不 直接 采用 上 面 的 矩阵 分 解法 ， 计 算 量 将 会 减少 近 一 
半 。 而 且 上 述 分 解 也 是 唯一 的 ， 其 中 工 '= U 。 这 种 方法 通常 也 称 为 改进 平方 根 法 或 cholesky 分 解 
法 。 徐 阵 上 元 素 的 表达 式 可 以 写 为 下 面 的 递 推 形式 ， 


四 三 VGN 1 二 GAO 一 23 天 


Fr 一 ! 


有 = 一 人 3 


1 1 
K=1 


Fr- 
才 -(。。 一 及 必 好 j/. 这 一 十] 了 
大 =1 


作者 根据 公式 ( 7-21 ) 编写 了 Cholesky.m 文件 ( 该 文件 保存 在 光 盘 中 ) 实现 cholesky 分 解 ， 
该 函数 在 进行 cholesky 分 解 前 ， 先 检查 矩阵 4 是 否 为 对 称 正 定 ， 如 果 不 是 ， 则 程序 将 不 再 对 和 阵 


( 7-21 ) 


154 = > j> je 
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4 进行 cholesky 分 解 。 
例 7-8: 利用 cholesky 分 解 求 下 面 的 方程 。 


824 1 4 为 5 
298 2 3||z 二 
4893 2| 国 |=|3 
1 2 2 
4 工 :2.3. 3 外 向 1 
求解 程序 如 下 : 
= [8,2,4,1,4;2,9,8,2,3;14,8,9,3,2;1,2,3,7,174,3,2,1v7]7 #% 输入 系数 憩 阵 
B = [5;473?7271]7 gs 输入 向 量 B 
LDL = Cholesky(RA) ; g& cholesky 分 解 
X = uelim(L' ,LVB) g 用 消 元 法 解 上 三 角 方程 组 
Delta = [ArX'-B]， # 计算 误差 
输出 为 : 
又 = 323736 5.5956 -5.9253 1 工 .1231 -2.6505 


Delta = 1.0e-014 * 
0.1776 -0.5329 0.6217 0.2220 0.7105 


下 三 角 矩 阵 上 等于: 

L = 
2.8284 0 0 0 0 
0.7071 2.9155 0 0 0 
1.4142 2.4010 1.1114 0 0 
0.3536 0.6002 0.9527 2.3679 0 
1.4142 0.6860 -1.4819 0.6335 1.3900 


计算 L*L， 则 有 : 


ans = 8.0000 2.0000 4.0000 1.0000 4.0000 
2.0000 9.0000 8.0000 2.0000 3.0000 
4.0000 8.0000 9.0000 3.0000 2.0000 
1.0000 2.0000 3.0000 7.0000 1.0000 
4.0000 3.0000 2.0000 1.0000 7.0000 


可 见 关 系 4 = 了 已 是 成 立 的 。 
作为 比较 ， 可 以 对 本 例 中 的 矩阵 4 进行 LU 分 解 ， 结 果 如 下 ; 


[L,U] = lu(a) 


DL = 1.0000 0 0 0 0 
0.2500 1.0000 0 0 0 
0.5000 0.8235 -0.7500 0.1712 1.0000 
0.1250 0.2059 -0.6429 1.0000 0 
0.5000 0.2353 1.0000 0 0 
U = 8.0000 2.0000 4.0000 1.0000 4.0000 
0 8.5000 7.0000 1.7500 2.0000 
0 0 -1..6471 0.0882 和 .5294 
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0 0 0 65.5714 3.0000 
0 0 0 0 1.2364 
对 比 上 面 的 程序 可 以 看 出 ， 上 面 的 结果 与 我 们 自行 编写 的 cholesky 程序 计算 得 到 的 下 三 角 矩 
阵 也 是 不 同 的 。 


如 果 和 矩阵 4 或 者 常数 项 B 的 微小 变化 可 以 引起 方程 组 AX=B 解 的 巨大 变化 ， 则 称 此 方程 组 为 
“病态 ”方程 组 ， 同 时 称 和 矩阵 4 为 “病态 ”矩阵 ( 这 里 是 相对 于 方程 组 而 言 )。 反 之 则 称 方程 组 为 
“ 良 态 ”方程 组 ， 相 应 地 4 为 “ 良 态 ” 和 矩阵 。 和 珑 阵 的 “病态 ”性 质 是 矩阵 本 身 的 特性 。 为 了 定量 

地 描述 方程 组 的 “病态 ”程度 ， 下 面 对 方 程 组 AX=B 的 系数 矩阵 和 右 端 常数 项 分 别 进 行 两 种 情形 


的 分 析 。 
首先 考虑 线性 方程 组 AX=B 的 系数 矩阵 4 的 扰动 。 假 设 此 时 常数 项 B 不 发 生 扰动 ， 记 系数 矩 


阵 4 的 扰动 为 54 ， 相 应 解 的 扰动 记 为 Sr ， 那 么 (4+ 564)(x+Ox)= 书 ， 即 ; 
4b6xr+O4(x+Or)=0 [5 
对 公式 ( 7-22 ) 两 边 同时 取 范 数 : 
15 台 =|4754(z+ 5z 中 < 人 + 


公式 ( 7-23 ) 中 小 -省 表 示 求 范 数 。 如 果 5A 足够 小 ， 使 得 |4- 几 54| < 1 成 立 ， 则 由 上 式 可 以 
得 到 ， 


54 
ee IT 


< 四 
所 1|42 中 4 1-14 响 42 1e4j 


( 7-24 ) 


上 式 表明 当 系数 矩阵 4 有 扰动 时 ， 解 的 扰动 和 |4 人 4 有关。 一 般 地 ，| 4 人 4 中 越 大 ， 角 的 


扰动 也 越 大 。 
接 下 来 考虑 常数 项 B 的 扰动 ， 记 为 6B ， 桐 应 解 x 的 扰动 仍 记 为 gx ， 那 么 


4(x+Or)=B+OB,， 即 46x=0B ,或 者 Or=40B 。 


4x| | 
两 天 和 有 5-=|4-58|<| 4 用 la， 本 > =， 


lexl _ 二 lesl lesl_ =|4 川 4 4 
同 ”本 |2l 


哆 (725) 


式 (7.25 ) 表明 当 右 侧 常 数 项 B 有 扰动 时 ， 解 的 误差 不 超过 B 的 相对 误差 的 |4 作 4 信 数 。 


156 = jw j> 


可 本 本 本 第 站 间 线性 方程 组 


综合 上 面 两 种 情况 可 知 ，|4|4 实际 上 决定 了 解 对 原始 数据 变化 的 录 敏 程度 ， 也 就 是 说 描 
述 了 方程 组 的 “病态 "程度 ， 因 此 把 |4 作 4 定义 为 矩阵 4 的 条 件数 ， 即 ， 

cond(4), =|4|,|4| ,其 中 =12, (7-26) 

在 条 件数 表达 式 中 ， 可 以 选择 1, 2 和 m 范 数 。 其 中 取 2 和 范 数 对 应 的 条 件数 比较 常用 ， 特 
别 情况 下 ， 当 取 2 范 数 时 ， 条 件数 也 称 为 “ 谱 条 件数 "， 即 ; 
和 (AM 
Xun(44) 














cond(4), =|4||41. = 。 当 4 为 对 称 和 矩 阵 时 ，cond(4),， = os/ as ， 其 中 
入 和 入 win 分 别 是 矩阵 4 的 绝对 值 最 大 和 最 小 本 征 值 。 

对 于 非 奇异 矩阵 4， 条 件数 具有 如 下 4 条 性 质 : 

争 cond(4), >1。 

多 cond(c4), =cond(4)，。 

铭 若 4 是 正 交 和 矩阵 ， cond(4)， =1 D 

争 若 尺 为 正 交 矩阵 ，cond(R4), = cond(4R), =cond(4)， 。 


在 MATLAB 中 提供 了 函数 cond 来 计算 条 件数 ， 其 调用 格式 为 : 
C = cond(X，P); 

参数 说 明 : C 是 输出 的 条 件数 。X 是 输入 的 和 矩阵。p 用 来 指定 哪 一 种 范 数 ， 取 值 可 以 是 1，2， 
inf 和 fro，p 的 默认 值 是 2。 

希 尔 伯 特 { Hilbert ) 矩阵 定义 为 再, =1/(i+ 7 一 1) 。 在 MATLAB 中 函数 hilb 可 以 给 出 六 阶 希 
尔 伯 特 矩阵 。 调 用 函数 cond 计算 相应 的 3，5 和 6 阶 希 尔 伯 特 和 矩阵 的 条 件数 有 : 
condQ(hilb(3) ,inf) 


cond(hilb(5) ,inf) 
cond(hilb(6),inf) 


输出 如 下 : 


SS 
C5 
c6 


c3 = 748.0000 
c5 = 9.4366e+005 
c6 = 2.9070e+007 


可 见 随 着 m 的 增 大 ， 希 尔 伯 特 矩阵 的 条 件数 增 大 ， 也 就 是 说 “病态 ” 越 严 重 。 
设计 X=[1;1;1] 为 方程 组 Hilb(3)*X=B 的 解 ， 因 此 可 知 B=[11/6;13/12;47/60]。 这 里 考虑 3 阶 











1.00 ”0.500 0.333][ 和 +60 ] [1.83 
希 尔 伯 特 矩阵 以 及 常数 项 B 发 生 微小 的 扰动 ， 即 | 0.500 0.333 0.250 || 六 +6r |=| 1.08 |， 简 记 为 
0.333 0.250 0.200|| 号 +6m | |0.784 
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1 
(局 +OD)(z+Oxr)=B+OB， xs 
1 


利用 下 面 的 语句 可 以 求解 上 面 的 方程 组 ， 


RaA = [1,0.5,0.333;10.5,0.333,0.25;0.333,0.25,0.2]; 
B = [1.83;1.08;0.784]; 
X = [A\B]， 

输出 结果 如 下 : 


X =1.1228 0.2910 1.6868 





65 有 
对 比 可 以 得 到 6x=[-0.0562, 0.3151, -0.2952] ， 计算 相对 误差 有 | 上 =1.82x104<0.02% ， 
3 


|58|- 


|al- 


刀 
=1.8x10” <0.2% 此 |- = 0.709 =70.9% S 





| |- 


可 见 束 和 有 她 的 相对 误差 不 超过 0.2%， 而 解 X 变化 的 相对 误差 达到 70%。 
计算 条 件数 需要 得 出 矩阵 的 疼 ， 因 此 有 的 时 候 可 能 比较 困难 。 根 据 数值 经 验 ， 在 下 面 的 4 种 
情况 下 ， 方 程 组 一 般 是 “病态 ”的 。 


全 
令 
钙 


在 用 列 主 元 消 元 法 时 出 现 小 主 元 。 

如 果 矩 阵 4 的 最 大 本 征 值 和 最 小 本 征 值 之 比 ( 取 绝对 值 ) 是 大 的 , 则 和 阵 4 是 “病态 " 的 。 
系数 矩阵 中 有 行 ( 或 列 ) 近似 线形 相关 ， 或 者 系数 行列 式 的 值 接近 于 0。 这 种 情况 只 是 经 
验 判断 ,并 不 是 绝对 的 。 如 当 4=E7 时 ，& 是 很 小 的 数 , 矩阵 4 的 行列 式 det(A) 会 以 E 趋 
近 于 0， 但 是 矩阵 4 的 条 件数 是 等 于 1， 方程 组 的 状态 良好 。 

系数 矩阵 4 的 元 素 间 数 量 级 相差 很 大 ， 并 且 无 一 定 规则 ， 那 么 矩阵 4 可 能 是 “病态 ”的 。 
用 列 主 元 消 元 法 不 能 解决 病态 方程 求解 问题 。 对 病态 方程 组 求解 可 采用 以 下 方法 : 


采用 高 精度 运算 ， 减 轻 病态 影响 ， 例 如 用 双 倍 字 长 运算 。 
用 预 处 理 方法 改善 4 的 条 件数 ， 即 选择 非 奇 矩阵 已 ，@ , 使 P4C(CO = PB 与 AX=B 
等 价 , 而 A = PAO 的 条 件数 较 和 矩阵 4 有 所 改善 , 则 求 人 %= 巨 = PB 的 解 , 即 半 = Q zx 为 
原 方程 的 解 。 

平衡 方法 , 当 4 中 元 素 的 数量 级 相差 很 大 ,可 以 采用 行 均衡 或 列 均衡 的 方法 改善 4 的 条 件 
数 。 设 4 为 非 奇 异 ,计算 瑟 二 mM oj 人 =12…,m) , 令 忆 =diag(1s,1s,115)， 
于 是 求 AX=B 等 价 于 求 D4x= DB , 或 4xr= 万 , 这 时 4= DA 的 条 件数 可 得 到 改善 ， 这 
就 是 行 均衡 法 。 


奇异 值 分 解 ( sigular value decomposition ) 是 另 一 种 正 交 和 矩阵 分 解法 ， 它 是 最 可 靠 的 分 解法 ， 
但 是 它 比 QR 分 解法 要 花 上 近 十 倍 的 计算 时 间 。MATLAB 中 提供 了 函数 svd 来 计算 奇异 值 分 解 。 其 
调用 格式 如 下 : 


[U，S， 


V] = svd(A) ; 
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其 中 U 和 V 代表 两 个 相互 正 交 和 矩阵 ， 而 S 代表 一 对 角 和 矩阵 。 和 QR 分 解法 相同 ，A 可 以 不 是 
方 矩 阵 。 使 用 奇异 值 分 解法 的 用 途 是 解 最 小 平方 误差 法 和 数据 压缩 。 用 这 个 分 解 来 计算 图 形 信息 ， 
性 能 相当 好 。 奇异 值 分 解法 可 用 于 求解 线性 方程 组 。 在 计算 线性 方程 组 时 ， 一 些 不 能 分 解 的 矩阵 或 
者 严重 病态 矩阵 的 线性 方程 都 能 得 到 解 。 


7.5 和 迭代 法 一 


解 线性 方程 组 AX=B 的 迭代 法 是 从 初始 解 出 发 ， 根 据 设计 好 的 步骤 用 逐次 求 出 的 近似 解 通 近 
精确 解 。 前 面 介 绍 的 解 线性 方程 组 的 直接 方法 一 般 适 合 于 4 为 低 阶 稠密 矩 阵 ( 指 mn 不 大 且 元 多 为 
非 零 ) 的 情况 ， 而 在 工程 技术 和 科学 计算 中 常会 遇 到 大 型 稀疏 和 矩阵 { 指 m 很 大 且 零 元 较 多 ) 的 方 
程 组 , 迭代 法 在 计算 和 存储 两 方面 都 适合 后 一 种 情况 。 由 于 和 迭代 法 是 通过 逐次 迭代 来 通 近 方程 组 的 
解 的 , 所 以 收敛 性 和 收敛 速度 是 构造 迭代 法 时 应 该 考虑 的 问题 。 因 为 不 同 的 系数 和 矩阵 具有 不 同 的 性 
态 , 所 以 大 多 数 迭 代 方 法 都 具有 一 定 的 适用 范围 。 有 时 某 种 方法 对 于 一 类 方程 组 迭代 收 仇 ， 而 对 另 
一 类 方程 组 迭代 时 就 发 散 。 

首先 介绍 雅 可 比 { Jacobi ) 迭代 法 解 线性 方程 组 AX=B。 对 于 线性 方程 组 AX=B， 矩阵 4 非 奇 
异 ， 把 矩阵 4 分 解 为 4 = 万- 区 -了 U 。 其 中 和 阵 忆 = diag(4) , 工 和 忆 分 别 是 矩阵 4 的 严格 下 三 
角 部 分 和 上 三 角 部 分 ， 即 : 


0 0 aa … da 


({ 7-27 ) 


和 迭代 公式 为 Xi = 三 (了 +D7D) 克 十 万 -下 ， 当 我 们 记 和 = D-I(L+U) ， 巨 = D-1B ， 那 么 具 
体 的 趟 和 房 可 以 表示 为 ， 


0 -aa/1a ”一 Qnyal 请/an 
证 号 0 on /az 记 =- 久 /ao 
一 CCG， 一 Goa/G，… 0 忆 1/a， (7.28) 


雅 可 比 和 代 法 的 收敛 充 要 条 件 是 矩阵 和 的 谱 半径 小 于 1, 即 p(A) <1 ( P(4) = lim|x|， 其 


中 侯 是 矩阵 的 本 征 值 )， 谱 半径 在 MATLAB 中 可 以 使 用 语句 max(abs(eig( X ))) 来 计算 。 


根据 公式 ( 7-28 )， 编 写 Jacobi_iteration.m 实现 其 描述 的 雅 可 比 迭 代 法 求解 线性 方程 组 。 其 调 
用 格式 为 : 


X = Jacobi_iteration(RA,B,X0,kmax,tol): 
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参数 说 明 : X 是 返回 的 解 。A 是 系数 矩阵 。B 是 常数 列 向 量 。X0 是 和 迭代 初始 值 ， 默 认 值 为 
zeros(size(B))。Kmax 指定 最 大 迭代 次 数 ， 默 认 值 为 500。tol 是 预先 指定 的 精度 ， 默 认 值 是 1e-6。 
例 7-9: 利用 雅 可 比 和 迭代 法 求解 下 面 的 线性 方程 组 。 
9 4 2|| 国 1 
3 8 2 二 |=|: 
2 3 7|| 3 


求解 程序 如 下 : 

R = [9,4,273,8,2;2,3,7]; % 输入 系数 矩阵 六 

B = [1;2;3]; % 输入 常数 项 列 向 量 B 

XxX0 = [0,0,0]; g% 初始 值 

X = Jacobi_iteration(R,B,X0) #$ 用 雅 可 比 迭 代 法 解 线性 方程 组 
输出 如 下 : 

X= -0.0489 0.1766 0.3668 


雅 可 比 和 迭代 法 还 存在 一 种 扩展 形式 ， 即 : 


xm =x-OD [4xw-B] 
=x0 一 ODT 4x +OD 及 


=( 帮 -OODT4)Jxo+OD-B 
(7-29 ) 


其 中 矩阵 刀 = diag(4) 。 这 种 迭代 法 被 称 为 雅 可 比 超 松弛 法 ( Jacobi over relaxation )， 简 称 
JOR 法 。 当 了 雅 可 比 迭 代 收 敛 时 ，JOR 法 对 于 0 < wO<1 收 敛 。 


在 公式 ( 7-29 ) 中 去 掉 D-! 可 以 得 到 RF 法 ( Richardson method ) 的 迭代 公式 : 
(K+l) (K) 
区 =( 了 一 OA4)x 十 O0B (7-30 


其 中 了 -OA 被 称 为 RF 法 的 迭代 矩阵。 进一步 可 以 使 用 一 个 对 角 和 矩阵 @2 代替 公式 ( 7-30 ) 中 
的 参数 外 而 得 到 广义 理 查 森 法 ,简称 为 GRF 法 。 在 雅 可 比 迭 代 法 程序 的 基础 上 可 以 根据 公式 { 7-29 ) 
和 ( 7-30 ) 分 别 得 到 RF 法 和 GRF 法 的 计算 程序 。 

在 雅 可 比 迭 代 法 中 ， 和 矩阵 六 = 4xk 十 巨 控制 的 迭代 过 程 使 第 上 十 1 步 的 迭代 需要 用 到 前 面 第 
大 步 中 计算 得 到 的 { 刀 }， 这 样 各 点 的 收敛 情况 完全 取决 于 迭代 方程 瓜 +: = 4xk + 召 ， 各 点 之 间 的 
影响 没有 考虑 进去 。 下 面 来 介绍 高 斯 - 赛 德尔 ( Gauss-Seidel ) 迭代 法 。 

把 矩阵 4 分 解 为 4=+E+U， 其 中 也 , 荆 和 的 意义 相同 于 雅 可 比 迭 代 法 中 的 意义 。 高 斯 - 
赛 德 尔 迭 代 法 的 矩阵 形式 如 下 ， 


(kr 1 门 _7 了 NIT7vOt) _yTml 
xue =(D-LJUxo+(D-Z)B 本 
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其 中 (万 一 上 人 ) ”U7 被 称 为 高 斯- 赛 德尔 迭代 法 的 迭代 矩阵 ， 记 为 Mes 。 在 这 个 方法 中 ， 考 虑 了 
二 各 分 量 的 互相 影响 ， 把 公式 { 7-31 ) 写 为 如 下 分 量 形式 : 
放 一 | 天 
有 
XUtD 二 P=1 P=mtl 
Com ( 7-32 ) 
从 高 斯 - 赛 德尔 迭代 法 中 我 们 可 以 看 出 , 迭代 式 的 构造 和 雅 可 比 迭 代 式 的 构造 整体 上 是 类 似 的 ， 
只 不 过 在 计算 奴 的 第 上 +1 步 时 ， 用 到 了 第 大 十 1 步 前 已 经 得 到 的 { 刀 和 ， 克 )，,xc} ， 而 后 面 
未 计算 的 分 量 {2osl xnrtay… 和 用 第 大 步 结 果 fx 2] 代替。 高 斯 - 赛 德尔 迭代 法 收 全 
的 充 要 条 件 是 迭代 和 矩阵 Mes 的 谱 半径 小 于 1， 即 D(Mcs ) <1。 此 外 ， 当 和 矩阵 4 对 称 正定 时 ， 用 
高 斯 - 赛 德 尔 迭 代 法 解 方程 组 AX=B 时 和 迭代 过 程 收敛 。 在 保证 雅 可 比 迭 代 法 和 高 斯 - 赛 德尔 迭代 法 都 
收敛 的 前 提 下 ， 高 斯 - 赛 德尔 迭代 法 的 收敛 速度 要 比 雅 可 比 迭 代 法 快 。 
作者 根据 高 斯 - 赛 德尔 迭代 公式 编写 了 相应 的 程序 gauseid.mt 完整 的 函数 文件 保存 在 光盘 中 
该 函数 调用 格式 如 下 ; 
X = gauseid(A,B,X0,kmax, 上 ol); 
参数 说 明 : X 是 返回 的 解 。A 是 系数 短 阵 。B 是 常数 列 向 量 。X0 是 迭代 初始 值 ， 默 认 值 为 
zeros(size(B))。Kmax 用 于 设 定 最 大 迭代 次 数 ， 默 认 值 为 500。tol 是 预先 指定 的 精度 ， 默 认 值 是 
1e-6。 该 函数 在 没有 输出 的 时 候 将 显示 每 一 步 迭 代 的 结果 
例 7-10: 利用 高 斯 - 赛 德尔 迭代 法 求 下 面 方程 组 的 解 。 
9 2 2 -4Tx1 0 
2 8 2 -zz 1-l 
227 2|zl 12 
32-2 9|lzll 


计算 程序 如 下 
R = [9,2,2,-4;2,8,2,-3;12,2,7,2;3,2,-2,9];  * 输入 系数 矩阵 和 
B = [1;-172;1]; 多 机 
X0 = [0,0,0,1]; % 输入 迭代 
X = gauseid{(R,B,X0) 甸 癌 二 本 和 和 汉代 计算 方 和 组 的 机 
D = [Ar*X'-B]， % 计算 误 
结果 如 下 : 
X= 0.1610 -0.1704 0.2456 0.1499 
D = 1.0e-006 * 
-0.8279 -0.4502 “0.0925 0 
可 见 达 到 了 默认 精度 时 程序 停止 。 
此 外 雅 可 比 迭 代 法 和 高 斯 - 赛 德尔 迭代 法 的 思想 还 可 以 用 来 计算 非 线性 方程 的 解 ， 下 面 考虑 一 
个 非 线性 方程 求解 的 例子 。 


例 7-11: 计算 下 面 非 线性 方程 的 根 。 
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所 +9x+3 -12=0 
22+6y- 六 -6=0 
首先 把 方程 组 转化 为 下 面 的 形式 便于 和 迭代。 
x=(12-2-372)/9 
>=(6-22+ 呈 )/6 
进一步 得 到 下 面 的 迭代 形式 。 
At =(12- 冯 -322)/9 
雅 可 比 迭 代 ， 
了 + =(6-2 冯 + 只 )/6 
Xk+1 =(12- 六 -3 史 )/9 


高 斯 - 赛 德尔 迭代 ， 
四 本 人 


根据 上 面 的 迭代 式 进行 计算 。 
下 面 的 程序 是 根据 公式 ( 7-28 ) 编写 的 雅 可 比 和 迭代 程序 。 

kmax = 500; sg 预定 的 帮 代 次 数 

tol = le-6; # 预定 的 精度 

x = [0,0]; g 和 迭代 初 值 

for k = 1:jkmaxXx 
xp = xf; g% 记录 上 一 次 迭代 结果 
x(1) = (12-xp(1)^2-2*xp(2)^2)/19; #% 对 x 进 行 迭 代 
x(2) = (6-2*xp{(1)^3+Xxp(2)^2)16; % 对 y 进行 迭代 
if norm(x-xp)/ (norm(xp)+eps)<tol; % 检查 精度 

break; % 满足 条 件 结束 循环 

enaQ 

endQ 

kKk，X # 输出 迭代 次 数 和 求解 结果 
输出 如 下 : 

k = 32 

X =1.1161 0.5958 


下 面 的 程序 是 根据 公式 ( 7-32 ) 编写 的 高 斯 - 赛 德 尔 迭 代 程 序 。 
% 利用 高 斯 - 赛 德尔 迭代 求解 非 线性 方程 


kmax = 500; # 预定 的 兴 代 次 数 

tol = le-6; # 预定 的 精度 

x = [0,0]:， g% 迭代 初 值 

for k = 1:kmax 
xp = xi g# 记录 上 一 次 迭代 结果 
x(1) = (12-x(1)^2-2x*x(2)^2)79; # 对 x 进 行 迭 代 
x(2) = (6-2*X(1)^3+x(2)^2)76; % 对 yy 进行 迭代 
if norm(x-xp)/ (norm(xp)+eps)<tol; 贡 检查 精度 
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break; 满足 条 件 结束 循环 
end 
end 
K，X s# 输出 迭代 次 数 和 求解 结果 
输出 结果 如 下 : 


15 
1.1161 0.5958 


可 匈 高 斯 - 赛 德尔 迭代 的 速度 比 雅 可 比 和 迭代 快 很 多 。 逐 次 超 松弛 法 ( Successive over relaxation 
method ) 是 求解 大 型 稀疏 和 矩阵 方程 组 的 有 效 方法 ， 简 称 为 SOR 法 。 其 分 量 迭 代 公 式 如 下 : 


了 
站 j=HH1GQU 


过 @W 2 
浊 "sad 生 -号 和 沁 "一 2 和 oj] ( 工 = 二 2,...,7 ) ( 7-33 ) 


与 高 斯 - 赛 德 尔 迭 代 法 的 分 量 公式 相 比 ， 逐 次 超 松弛 法 的 迭代 公式 中 增加 了 参数 包 ( 其 被 称 为 
松弛 参数 或 者 松弛 因子 ，relaxation factor )。 当 0< w<1 时 ， 公 式 ( 7-33 ) 描述 的 是 低 松弛 方法 
{ underrelaxation method )， 对 于 一 些 方程 组 ， 使 用 高 斯 - 赛 德 尔 迭 代 法 得 不 到 收敛 解 或 者 不 收敛 ， 
使 用 低 松弛 方法 却 可 能 得 到 收敛 解 。 当 包 >1 时 , 公式 ( 7-33 ) 描 述 的 是 超 松弛 方法 ( over relaxation 
method )， 此 时 可 以 加 速 高 斯 - 赛 德尔 迭代 方法 的 收敛。 在 外 = 1 的 时 候 ， 公 式 ( 7-33 ) 等 同 于 公式 
( 7-32 )。 公式 ( 7-33 ) 的 和 矩阵 形式 如 下 : 
xe0=(D-oF [0(-o)D+ou]rzo+wo(D-oL) 
Mson=(D-oL) [(I-o)D+owr] 总 昌 1 
其 中 Mson 被 称 为 逐次 超 松弛 法 的 迭代 矩阵， 和 珑 阵 D, 志和 的 意义 同 雅 可 比 欠 代 法 。 对 珑 阵 
4 的 对 角 元 素 都 是 非 零 实 数 时 ， 对 于 和 迭代 矩阵 Mson 的 谱 半 径 存在 关系 P(Mson ) > |@ 一 直 。 逐 次 
超 松弛 法 收敛 的 充 要 条 件 是 迁 代 和 矩阵 M von 的 谱 半径 小 于 1,， 即 P(Mson)<1。 


7.6 ” 共 斩 梯度 法 解 方程 组 


共 斩 梯 度 法 ( Conjugate gradient method ) 简称 CG 法 ， 它 是 求解 系数 和 矩阵 为 对 称 正定 大 型 稀 
朴 方 程 组 的 一 种 有 效 方法 之 一 。 该 方法 的 理论 基础 是 变 分 原理 ， 即 通过 计算 尹 元 二 次 函数 (zx) 的 
极 小 值 点 起 得 到 方程 组 AX=B 的 近似 解 。 这 里 函数 匈 (X) 可 以 表示 为 ， 


p( 吕 = 了 (x40-(xB) ( 7-35 ) 


其 中 (PP,O) 表示 向 量 的 内 积 , 妈 ，(P,O)= 志 BO 。 


从 而 求解 方程 组 AX=B 的 解 转 化 为 求解 函数 多 (x) 的 极 小 值 问题 MATLAB 提供 与 共 示 梯 度 法 
相关 的 函数 如 表 7.2 所 示 。 
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表 7.2 ”与 苍 梯度 法 相关 的 函数 


函数 名 说 明 函数 名 说 明 

bicg 双 共 斩 梯 度 法 minres 最 小 残 差 法 
bicgstab 稳定 双 共 罗 梯 度 法 pcg 预 处 理 共 斩 梯 度 法 
cgs 复 共 瑟 梯度 平方 法 qmr 准 最 小 残 差 法 
gmres 广义 极 小 残 差 法 symmlq 对 称 LQ 法 

lsqr 共 斩 梯 度 的 LSQR 方法 





ESN 
这 些 函 数 的 用 法 类 似 ， 下 面 以 函数 bicg，bicgstab，cgs 和 1sqr 为 例 进 行 说 明 。 


MATLAB 提供 的 函数 bicg 可 以 实现 双 共 斩 梯 度 法 求解 方程 组 ， 其 调用 格式 为 : 


bicg(RA，B) 

bicg(RA，B，tol):; 

bicg(RA，B，tLtol，maxit) : 
bicg(RA，B，tol，maxit，M) 
bicg(R，B，tol，maxit，M1，M2) 7 
bicg(A，B，tol，maxit，M1，M2，Xx0) 7 
[x，flag] = bicg(A，B); 

[x，flag，relres]l = bicg(aA，B)， 
[x，flag，relres，iter] = bicg(RA，B) 
[x，flag，relres，iter，resVvec] = bicg(RA，B); 


参数 说 明 : x 是 线性 方程 组 AX=b 的 解 。flag 的 取 值 有 5 种 可 能 : 0 表示 在 指定 迭代 次 数 之 内 
按 要 求 精度 收 公 ; 1 表示 在 指定 迭代 次 数 内 不 收敛 ; 2 表示 M 为 坏 条 件 的 预 处 理 因 子 ; 3 表示 两 次 
连续 迭代 完全 相同 ;4 表示 标量 参数 太 小 或 太 大 。relres 表示 相对 误差 norm(b-A*x)/norm(b)。iter 
表示 计算 的 迭代 次 数 。resvec 表示 每 次 迭代 的 残 差 ， 即 norm(b-A*x0)。 和 珑 阵 A 必须 为 nm 阶 方 阵 ，B 
为 常数 项 列 向 量 。A 也 可 以 是 由 函数 文件 定义 并 返回 A*X 的 函数 。tol 是 指定 的 误差 ， 其 默认 值 是 
1e-6。maxit 是 最 大 迭代 次 数 。M 为 用 于 对 称 正 定 矩 阵 的 预 处 理 因子 。 参 数 M，M1，M2 之 间 的 关 
系 是 M=M1x M2。x0 为 初始 估计 值 ， 默 认 值 为 全 0 列 向 量 。 函 数 bicg 在 运行 后 ， 如 果 收 敛 ， 将 
显示 结果 信息 ; 如 果 收 剑 失 败 ， 将 给 出 警告 信息 并 显示 相对 残 差 norm(b-A*x)/norm(b) 和 计算 终止 
的 迭代 次 数 。 

例 7-12: 利用 双 共 斩 梯 度 法 求 AX=B 线性 方程 组 , 其 中 A=gallery(dorr,120), B=[ones(60,1); 
3*ones(60,1)]。 

相应 的 计算 程序 如 下 : 
R = gallery('dorr',120) ; 生成 系数 矩阵 和 


B = [ones(60,1);3*ones{(60,1) ] ; % 将 矩阵 的 各 行 求 和 ， 构 成 一 列 向 量 
maxit = 300; $% 指定 最 大 迭代 次 数 


其 其 基 尖 基 
和 和 让 让 


[x，flag，relres，iter，resvec] = bicg(A，B,[] ，maxit)， 
% 用 函数 bicg 求解 
flag，relres，iter， $% 显示 部 分 输出 结果 
输出 为 : 
flag = 0 
relres = 5.8311e-008 
iter = 121 
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为 了 进一步 显示 收敛 过 程 ， 在 图 7.1 中 画 出 了 相对 残 差 和 迭代 次 数 之 间 的 曲线 。 可 见 迭 代 105 
次 之 前 收敛 较 慢 ， 在 后 面 的 几 次 迭代 速度 突然 加 快 。 相 应 绘图 程序 在 光 姐 中 的 bicg_test,m 程序 中 
有 详细 说 明 。 


20 40 60 80 100 120 140 
选 代 次 数 


图 7.1 双 共 瑟 梯度 法 求解 方程 组 的 相对 残 差 
MATLAB 提供 函数 bicgstab 实现 稳定 双 共 垢 梯度 法 解 线性 方程 组 ， 其 调用 格式 为 : 


bicgstab{(RA，B) ; 

bicgstab(RA，B，FEol); 
bicgstab(A，B，tol，maxit): 

bicgstab (有 ， 了 B，tol，maxit，M) 

bicgstab(Aj B，tol，maxict，M1，M2); 
bicgstab (和 ，B，tol，maxit，ML，M2，xXx0); 
[x，flag]j = bicgstab(A，B) 

[x，flag，relres] = bicgstab(RA，B) 
[x，flag，relres，iter] = bicgstab{(A，B) ， 
[x，flag，Lrelres，iter，LesVec]l = bicgstab(RA，B) 


函数 bicgstab 的 参数 意义 与 函数 bicg 相同 ， 这 里 不 再 歼 述 。 

这 里 使 用 bicgstab 函数 来 求解 前 面 例 7-11 中 的 方程 ， 即 把 前 面 程序 中 的 bicg 换 为 bicgstab 
即 可 。 所 得 结果 的 相对 残 差 如 图 7.2 所 示 ， 可 见 稳定 双 共 罗 梯 度 方法 的 收敛 速度 较 慢 。 在 使 用 函数 
bicg 和 bicgstab 的 时 候 ， 如 果 用 函数 lu 或 者 qr 生成 矩阵 M1 和 M2， 可 以 极 大 地 增加 收敛 速度 。 


中 让 和 人 
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5 10 1 20 20 300 
和 迭代 次 数 


图 7.2 稳定 双 共 斩 梯 度 法 求解 方程 组 的 相对 残 差 
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MATLAB 提供 的 函数 cgs 和 lsqr 可 以 分 别 实现 复 共 斩 梯 度 平方 法 和 共 斩 梯 度 的 LSQR 方法 求 
解 线性 方程 组 。 它 们 的 调用 方法 和 函数 bicg 相同 ， 读 者 可 以 参考 前 面 的 说 明 。 比 较 使 用 函数 cgs 
和 Isqr 求解 例 7-12 的 方程 ， 所 得 残 差 结果 如 图 7.3 所 示 。 图 中 在 函数 cgs 迭代 求解 过 程 中 ， 起 伏 
现象 比较 明显 ;函数 lsqr 的 计算 中 一 直 是 收敛 的 ， 但 是 收敛 得 很 慢 。 


1070 





200 0 100 200 300 


100 
选 代 次 数 选 代 次 数 
图 7.3 复 共 斩 梯 度 平 方法 ( 左 图 ) 和 共 斩 梯 度 的 LSQR 方法 ( 右 图 ) 解 线性 方程 组 的 相对 残 差 图 


7.7 小结 


本 章 主要 介绍 了 线性 方程 组 的 解法 。 首 先 介绍 了 一 些 矩 阵 操作 的 函数 ， 包 括 矩 阵 的 分 解 、 矩 阵 
参数 的 计算 以 及 基本 的 矩阵 操作 , 这 些 是 后 面 求解 线性 方程 组 的 基础 。 对 于 一 般 的 线性 方程 组 可 以 
使 用 直接 计算 法 ， 即 通过 抢 阵 求 逆 的 操作 得 到 方程 组 的 解 ， 其 中 对 于 正定 方程 组 需要 计算 其 通 解 。 
消 元 法 可 以 逐一 地 得 到 方程 组 的 解 ， 本 章 给 出 了 Gauss 消 元 法 、 追 赶 法 以 及 列 主 元 消 元 法 的 介绍 。 
在 直接 法 当中 ， 还 介绍 了 通过 珑 阵 的 LU 分 解 、QR 分 解 以 及 cholesky 分 解 求解 线性 方程 组 的 解 。 
在 迭代 法 的 介绍 中 ， 主 要 给 出 了 雅 可 比 迭 代 法 、 高 斯 - 赛 德尔 迭代 法 以 及 逐次 松弛 和 迭代 法 的 详细 介 
绍 。 最 后 简要 介绍 了 共 斩 梯 度 法 ， 以 及 相关 的 MATLAB 函数 。 


久 令 久 
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@ 函数 解法 ”包括 利用 函数 solve，fzero，fsolve 和 roots 计算 方程 的 解 。 
人 间接 求解 ”转化 为 最 小 值 问题 ， 利 用 fminbnd 函数 求解 。 

旬 多 点 初 值 和 迭代 法 ”介绍 二 分 法 和 抛物 线 法 。 

人 牛顿 法 及 演化 版 本 ”介绍 牛顿 法 、 正 割 法 和 Steffenson 法 等 求解 方程 。 


在 很 多 研究 性 问题 中 ， 我 们 常常 遇 到 一 些 复杂 的 方程 ( 组 j。 它们 有 的 存在 解析 结果 ， 但 大 多 
数 的 方程 无 法 获得 解析 解 { 即 超越 方程 )。 通 过 计算 机 的 程序 计算 ， 可 以 得 到 这 些 超 越 方 程 的 足够 
高 精度 的 数值 解 ， 能 够 满足 我 们 的 需要 。 本 章 将 介绍 一 般 方程 和 超越 方程 的 解法 ， 以 及 MATLAB 
提供 的 函数 和 一 些 数值 方法 。 


8.1 函数 解法 


MATLAB 中 提供 了 函数 solve，fzero，roots 以 及 fminbnd 可 以 用 来 求解 方程 或 者 方程 组 。 使 
用 这 些 函 数 可 以 方便 地 求解 不 同形 式 的 方程 。 本 节 将 介绍 这 些 函 数 的 用 法 。 


8.1.1 求解 一 般 方程 
使 用 MATLAB 提供 的 函数 solve 可 以 方便 地 求解 一 般 的 方程 ， 它 的 使 用 方法 如 下 ; 


Xx = Solvel('eqnl'，,'eqn2',...， "eqnN ' ) 
xXx = solve('eqn1l'，'eqn2'，..-.， 'edqnN' ，'Varl,var2,，...， VarN') 
Xx = solvel'eqnl'，,'eqn2'，...，'eqnN'，'Vvarl'，'var2'，...'VarN') 


参数 说 明 : x 是 输出 的 计算 结果 ， 它 是 一 个 由 符号 型 数据 组 成 的 结构 体 。eqn1，eqn2，…'， 
eqnN 是 符号 表达 式 或 者 是 方程 对 应 的 字符 串 , 其 中 方程 表达 式 是 完整 的 , 即 三 ( 攻 ,2，….,xw)=0 
的 完整 内 容 。var1，var2，…，varN 是 符号 变量 或 者 是 未 知 数 的 字符 串 。 需 要 指出 的 是 函数 solve 
是 按照 英文 字母 表 顺 序 把 结果 赋值 给 待 求 量 的 。 

例 8-1: 利用 solve 函数 求 方程 ur +bx+c=0 的 解 。 

分 析 : 该 方程 中 未 知 数 是 Xx ， 其 他 变量 视 为 常数 。 程 序 如 下 : 


x = sym('x') 7; # 定义 符号 变量 

E = sym('axXx^2+bx*x+C=0') 1; sg 求 方程 的 解 

当下 = ,axXx^2+bxx+C=0'7 % 写 为 字符 串 形式 也 可 

x = solve(f) g 利用 solve 求 方程 的 根 

Pretty (x) 当 把 所 求 结果 转化 为 手写 形式 

xL = latex{x) s# 把 结果 转 为 Latex 命令 ， 复 制 这 些 内 容 到 CTeX 软件 可 显示 为 公式 
程序 输出 下 面 的 结果 : 


本 可 可 可 167 


MATLAB 科学 计算 与 可 视 化 仿真 宝典 > > > 基 


X= [1/2/ar(-b+(b^2-4*ax*c)^(1/2))] 
[ 1/2/ax(-b- (b^2-4*ax*rc)^(1/2))] 
[ 2 1/2] 

[ -b+(b-4acl ] 
[1/2 -------------------- ] 
[ 已 ] 
[ ] 
[ 2 1/V2] 
[ -b- (bb-4acl ] 
[1/2 -------------------- ] 
[ 忌 ] 

XL = 


\left [\begin {arrayjfc} 1/2\,f\frac {-b+NSGLL 
{fbl^{2}-4\,acjljfallv\vnoalignf\medskip}jl/2\， 
{\fracf-b-\sqrt {{fbl^f{2}-4\acllfalljvend {arrayj\right ] 


这 个 结果 与 用 如 下 二 次 方程 求 根 公式 得 到 的 结果 是 一 致 的 。 


_ b+-4ac 


思 
1.2 
2a 


SA 这 里 用 一 个 错误 的 语 名 x = SOlve(ax'2+bx+Cc=0) 将 会 返回 X = -ax2-bx，MATLAB 

给 N》。 把 “ax"、“bx” 和“c” 认为 是 变量 ， 因 为 按 字母 顺序 “c” 排 在 最 后 ，“c” 将 被 认 

记 为 是 未 知 数 ， 而 把 “ax” 和 “bx” 作 为 常数 。 因 此 读者 在 使 用 Solve 函数 时 ， 方 程 
表达 式 一 定 要 正确 地 输入 ， 否 则 会 引起 不 必要 的 麻烦 。 


例 8-2: 分 别 求解 方程 e- 详 +bsin&=0 和 3a+4cos(a+T)=0 ， 其 中 忆 为 未 知 数 。 
分 析 : 第 一 个 方程 中 将 已 ，X 和 了 久 作为 常数 看 待 ， 第 二 个 方程 中 含有 T ( 它 可 以 转换 为 数值 
程序 如 下 : 


E1='exp(-Ppx*x)+b*sin(a)' 定义 方程 

E2='3x*a+4xcos(a+pi)=0'; % 定义 方程 

al=solve(E1,'a') % 求解 方程 ， 并 指定 a 为 未 知 数 

a2=solve(E2,'a') % 求解 方程 ， 并 指定 a 为 未 知 数 

a2d = double(a2) g# 转化 为 双 精 度数 据 
求解 得 到 


al =-asin(exp(-p*Xx) /Pb) 
a2 =.86492728054203081492303563791032 
a2d =0.8649 


例 8-3: 求 下 面 的 非 线 性 4 元 方程 组 的 解 。 
QG+D+X=37 
ax 一 by =] 
abp+ 妇 三 2 
a+b=(x+y 
分 析 : 第 1 个 方程 是 线性 的 ， 而 其 他 3 个 是 非 线性 方程 。 计 算 程 序 如 下 : 
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E1 = 'a+b+x=Yx317 g 定义 方程 

E2 = 'axX-baYy=1'7; g 定义 方程 

E3 = 'ax*b+Xx*y=247 g% 定义 方程 

E4 = 'a+b=(xX+y)^25) g 定义 方程 

[ra，b，x，y] = solve(E1,E2,E3,E4);  # 解 方程 组 

an = numeric(a); s 把 a 转化 为 数据 型 

bn = numeric(b); # 把 b 转化 为 数据 型 

xn = numeric(x)， # 把 x 转 化 为 数据 型 

yn = numeric(y); s 把 Y 转化 为 数据 型 

Solution = [an，bn，xn，yn] g 合 为 一 个 矩阵 

计算 结果 如 下 : 

Solution = 
-0.6669 + 1.0755i -1.0980 - 1.8069i 0.6435 - 0.8339i -0.3738 - 0.5217i 
-0.6669 - 1.0755i -1.0980 + 1.8069i 0.6435 + 0.83391i1 -0.3738 + 0.5217i 
-0.2447 + 1.4823i -0.2765 ~- 1.3702i 0.0724 - 0.57261i -0.1496 - 0.1535i 
-0.2447 - 1.4823i -0.2765 + 1.3702i 0.0724 + 0.57261i -0.1496 + 0.1535i 
0.2183 + 0.2785i 0.7989 - 3.3011i -1.3420 + 1.53721i -0.1083 - 0.4951i 
0.2183 - 0.2785i 0.7989 + 3.30111 -1.3420 - 1.5372i -0.1083 + 0.4951i 
2.9578 0.4401 0.5330 1.3103 
6.9289 [了 0.2191 2.4530 


和 := 帮 和 程 组 有 8 组 解 ， 其 中 前 6 组 解 都 是 复数 ， 最 后 两 行 是 实数 解 。 此 外 其 倒 输 出 变量 
的 次 序 不 影响 结果 ， 即 [a b，x 员 = Solve(E1,E2,E3,E4) 与 [y，X b， a] = 
solve(E1,E2,E3,E4) 得 到 的 解 是 一 样 的 。 


省 和 矩 阵 Solution 各 列 依次 表示 未 知 数 Q@， 忆 ，X 和 》。Solution 中 有 8 行 ， 表 明 方 


例 8-4: 求解 下 面 的 非 线性 方程 组 。 


怒 =] 
如 =4 
程序 如 人 

syms X Y， s# 定义 符号 变量 
E1L = '!Xwy=1'， g 定义 方程 
E2 = :X^AY=4:Y % 定义 方程 
可 = Solve(E1,E2,Xx,Y) 
gs 求解 方程 ，J 是 结构 体 
X= 可 .X # 显示 x 
Y=J.yY gs 显示 Y 


上 述 程序 计算 得 到 下 面 的 结果 : 


-1/1og(4)*1ambertw(-1log(4) ) 
-log(4) /Lambertw(-1og(4) ) 

结果 中 的 lambertw 是 一 个 特殊 函数 ,MATLAB 中 w=lambertw(X) 得 到 的 是 方程 we” = X 的 解 。 
图 8.1 给 出 的 是 这 个 函数 的 解 。 在 x > -0.3678 时， 此 函数 返回 的 是 实数 。 对 本 问题 的 方程 ， 使 用 
double 函数 或 者 numeric 函数 可 以 得 到 数值 解 x=0.0640-1.0908i 和 y=0.0536+0.9136i。 
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lamnbertw) 








党 


8.1 lambertw 函数 曲线 


例 8-5: 求 方程 妇 +px2 +cx+d =0 的 解 。 
分 析 : 一 般 的 3 次 方程 az +bx2z +cx+d =0 可 以 转化 为 妇 二 px2z+cx+ 妈 =0， 这 里 我 们 
利用 函数 solve 来 得 出 相应 的 求 根 公式 。 程 序 如 下 : 


syms b c qd x; sg 定义 变量 

t = solve(x^3+bxXx^2+C*X+d=0); % 解 方程 

[r,s] = subexpr(t,'s') #% 简化 方程 
输出 下 面 的 结果 : 

工 = 

[ 1I/6w*s(1)^(1/3)-6*s(2)-173x*b] 


[ -1/12*xe(1)^(1/3)+3xs(2)-1V73*b+1V2*ix*3^(1/2)w*(1/6*s(1)^(17/3)+6ws(2) )] 

[ -1V/12*s(I)^(17/3)+3xsS(2)-1/3x*b-1/2*ix*3^(1/2)w(1/6w*s(1)^(17/3)+6*s(2))] 

S = 

[ 36*Cwb-108*d-8*Db^3+12* (12*C^3-3*C^2*b^2-54*Cc*bx*d+81x*d^2+12x*dGxb^3)^(172 
) ] 

[(173*c-17/9*b^2)/7/(36*Crb-108*d-8*b^3+12* (12x*Cc^3-3x*C^2xb^2-54x*Cybxrd+81*xd^2+12*dq 
*b^3)^(1/2))^(173)] 


这 里 使 用 函数 subexpr 进 行 变 量 替换 来 缩短 表达 式 ,实际 上 t 是 一 个 很 长 的 表达 式 。 
在 使 用 函数 solve 的 时 候 ， 方 程 表 达 式 中 等 于 0 的 部 分 可 以 不 写 ， 如 求解 下 面 的 方程 : 


X 二 + 办 =8 
X+y=0 


fe2+ 呈 -8=0 
sh 于 
X+y=(0 
程序 如 下 ， 
syms X Y7 gs 定义 符号 变量 
[x,y] = solve('y^2+x^2-8'，'y+x'，x，Y) 7 # 仅 写 求解 方程 组 中 的 三 ( xz, 》) 部 分 
solutions = [x,Y] gs 把 解 合并 为 一 个 和 矩阵 ， 每 一 个 表示 一 组 解 


得 到 下 面 的 解 : 
solutions = 


[ -2， 2] 
[ 2，<~23] 
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可 见 “=0" 在 编程 时 可 以 不 写 ， 函 数 solve 默认 这 部 分 存在 。 然 而 不 是 所 有 方程 都 能 用 solve 
得 到 结果 的 ， 下 面 是 几 个 例子 。 
输入 命令 : 
>> X = Goublel(solve('x*sinftX)')) 
输出 结果 是 : 
其 三 0 
由 于 知道 方程 xsin x = 0 的 通 解 是 坟 一 ML ， 其 中 用 是 整数 ， 即 soKve 函数 可 能 发 
有 生 “ 泥 解 ”现象 。 
输入 命令 
>> SOlLlVe('X^2-a=0') 
输出 结果 : 


ans =[ a^(1/2)] 
[ -a^{(1/V2)] 


输入 命令 : 
>> Solve('Xx^2-axsin(X)+b=0') 
输出 结果 : 


warning: Explicit solution could not be found. 
> In C:N\MathTools\MRATLAB65\tool1box\N\syrmbolic\solve.m at line 136 
ans =[ empty Sym ] 


输入 命令 : 
>> Solve('Xx^2-axrsin(X)+bx*x=0') 
输出 结果 : 


??? Error using ==> SOLVe 
Error，(in allvalues/rootseq) cannot evaluate with symbolic coefficients 


可 见 表达 式 复 杂 的 时 候 ，solve 函数 可 能 会 给 不 出 相应 的 结果 。 


8.1.2 求解 非 线 性 方程 


MATLAB 提供 的 fzero 函数 是 计算 非 线性 方程 的 根 ， 这 个 函数 将 返回 给 定 初 值 附 近 的 根 。 当 多 
个 根 的 时 候 ，fzero 函数 需要 多 次 指定 初 值 。 该 函数 调用 格式 为 : 


x = fzero(fun，x0) 
x = fzerol(fun，x0，options) 
[x，fval，exitflag，output] = fzero(fun，x0，ocptiocns) 


参数 说 明 : x 是 返回 的 根 。fval 是 x 处 目标 函数 的 值 。exitflag 表明 解 存 在 的 情况 ， 即 正 数 表 明 
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解 存在 , 负数 表示 解 不 存在 ( 遇 到 复数 、NaN 或 者 无 穷 大 等 )。 参数 output 包含 计算 过 程 中 的 信息 ， 
它 是 一 个 结构 体 ，output.algorithm 是 所 用 的 算法 ，outputfuncCount 是 函数 赋值 次 数 ， 
output,iterations 是 迭代 次 数 。fun 表示 函数 表达 式 。x0 是 初始 值 , 它 只 能 是 一 个 有 限 的 实数 options 
是 设置 过 程 参数 , 它 可 以 通过 函数 optimset 来 设 定 参数 , 即 options = optimset(fzero)。 函数 fzero 
在 搜索 区 间 内 发 现 inf、nan 或 复数 值 时 中 止 搜索 。 如 果 搜索 失败 ， 则 返回 Nan， 并 显示 ， 
Exiting fzero: aborting search for an interval containing a sign change 

because NaN or Inf function value encountered during search 
(Function value at -1.716199e+154 is Inf) 
Check function or try again with a _ different starting value， 

因此 ， 可 以 知道 使 用 fzero 函数 是 不 能 得 到 方程 的 复数 解 的 ， 而 solve 函数 可 以 得 到 复数 解 。 

如 果 初 值 x0 是 一 个 长 度 为 2 的 矢量 ， 则 fzero 函数 假设 x0 是 一 个 区 间 ， 其 中 fun(x0(1)) 的 符 
号 与 fun(x0(2)) 的 不 同 。 如 果 符 号 相同 ， 则 会 显示 出 错 。 给 出 符号 不 同 的 区 间 可 以 保证 fzero 函数 返 
回 一 个 fun 函数 改变 符号 的 位 置 附近 的 值 。 函 数 fun 的 定义 在 7.0 版 本 以 后 支持 匿名 函数 ， 即 下 式 
是 合法 的 。 
X = fzerof@(Xx)X.^3-2*X+6,，I) 
Xx = fzero(ehumps,1.2) 

其 中 函数 humps 是 MATLAB 自 带 函数 ， 表 达 式 为 ; 

1 


1 
PIPE 和 
(x-3) +0.01 (xz-9) +0.04 
例 8-6: 求 关 于 并 的 函数 的 零点 ， 其 中 4 =1，1= -2。 
分 析 : 上 一 小 节 中 已 经 说 明 solve 不 能 求解 这 个 函数 ， 这 里 用 函数 fzero 来 求解 这 个 方程 。 程 
序 如 下 : 


humps(x)= 


syms xx aa bi g 定义 符号 变量 
fx = x.^2-axsin(x)+by 有 % 定义 符号 函数 
fx = subs(fx,{a,bj,tl,-2}); ss 对 a 和 pb 赋 值 
fx = char(fx)， s 把 fx 转换 为 字符 串 
区 = 和 XeD( 人 ER 1 g% 把 乘 方 运算 转换 为 点 运算 
fx = inline(fx)， s 定义 内 联 函 数 
xl = fzero(fx,0) s% 求 函 数 第 1 的 零点 
x2 = fzeroffx,2) # 求 函 数 第 2 的 堆 点 
xt = -6:.02:6; g% 产生 [-6，6] 区 间 内 等 间距 采样 点 
plot (xt,Ex(xt)); # 绘制 fx 的 曲线 图 
hola on; 
plot{xlim, [0,0]，'k:7) # 绘制 0 刻度 线 
上 述 程序 输出 
xl = -1.0615 
x2 = 1.7285 


可 见 调用 函数 fzero 计算 ， 每 次 只 能 返回 一 个 零点 ( 根 或 者 解 ) 位 置 。 为 了 得 到 所 有 的 根 ， 需 
要 画 出 可 能 范围 内 (zx) 的 曲线 图 ( 如 图 8.2 所 示 )。 从 图 中 查看 曲线 与 零 线 的 交点 数目 和 大 概 位 置 
来 确定 初 值 的 选择 ， 否 则 会 漏 掉 一 些 根 。 
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3 -4 2 人 2 4 6 
图 8.2 函数 让 (xz)= 关 一 asinx+Db 
例 8-7: 不 同 初 值 对 求解 方程 (xz)=sinx = 0 的 影响 ， 其 中 初 值 选择 x0 = -0.1, 0, 0.1， 如 
图 8.3 所 示 。 


sin(x2) 





图 8.3 sin zx 曲 线 
分 析 : 从 这 个 例子 中 可 以 发 现 返回 的 结果 并 不 是 与 初 值 最 近 的 点 。 程 序 如 下 ; 


x01 = fzero('sin(x^2)' ,0) % 初 值 为 0 

x02 = fzero('sin(x^2)' ,0.1) 车 初 值 为 0.1 

x03 = fzerol('sin(x^2)' -0.1)  % 初 值 为 -0.1 

Set (gca，'Fontsize',12，'Fontname'，'Times new roman'); 

ezplot('sin(x^2)，，[-2,2]); % 绘制 sin (x^2) 曲线 

holda ony; 

plot (xlim, [0,0]，'k:'); # 画 0 刻度 线 
输出 如 下 : 

X01 = 0 

x02 = -1.7725 

x03 = 1.7725 


可 见 初 值 的 选择 有 时 会 影响 函数 的 结果 。 另 外 从 例 8-6 和 例 8-7 的 求解 过 程 中 ， 可 以 发 现 利用 
函数 fzero 求解 结合 目标 函数 绘图 的 方式 是 解 方程 较 好 的 方式 。 
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8.1.3 求解 多 元 非 线 性 方程 
在 MATLAB 的 最 优化 工具 箱 里 提供 了 函数 fsolve 求解 多 元 非 线性 方程 ， 其 调用 格式 为 : 


X = fsolve(fun，Xx0); 
Xx = fsolve(fun，x0，options); 
X = fsolve(fun，x0，options，Pp1L1，p2,...): 


[x，fval] = fsolve(fun，Xx0)?; 
[x，fval，existflag] = fsolve(fun，x0) 
[x，fval，existflag，output] = fsolve(fun，X0)， 
[x，fval，exiscflag，output，Jacob]l = fsolve(fun，Xx0): 

参数 说 明 : x 返回 方程 组 的 解 。fval 是 目标 函数 在 x 处 的 值 。existflag 反应 解 的 情况 ， 意 义 同 
函数 fzero 。output 返回 输出 信息 ， 有 具体 包含 迭代 数 output,iterations 、 函 数 计 算 次 数 
outputfuncCount、 使 用 算法 outputalgorithm、CG 和 迭代 数 output.cgiterations 以 及 第 一 阶 优化 
output.firstorderopt。Jacob 是 函数 在 x 处 的 雅 可 比 矩 阵 。fun 为 定义 好 的 非 线 性 方程 ( 组 ) 的 文件 
名 ( 或 函数 名 )。x0 为 求解 方程 的 初始 向 量 。options 设置 求解 过 程 的 各 种 参数 ， 一 般 采 用 默认 参 
数 options = optimset(fsolvye)。 参 数 p1，p2 等 是 函数 fun(x, p1, p2,…) 中 的 参数 。 

例 8-8: 求解 MATLAB 自 带 的 咽 吹 函数 chirp 的 零点 ， 其 中 参数 F0 = 0, TI1 = 5，F1 = 1。 变 
量 xs [0,5] ， 要 求 得 出 这 个 区 间 内 所 有 零点 。 

分 析 : 跨 欧 信号 是 频率 逐渐 变 大 的 一 类 时 间 信号 ,在 信号 处 理 中 经 常 使 用 。 这 个 函数 多 次 穿 过 
0 刻度 线 。 这 里 使 用 初 值 1，2.5，3.5，4，4.7。 程 序 如 下 : 


F0 = 0); % 定义 上 =0 处 的 频率 F0 

T1 = 5) $% 定义 时 间 T1 

F1 = 1; #% 上 =T1 处 的 频率 F1 . 

options = optimset('Display'，'iter') 7 #% 设置 参数 选项 


t = fsolve(echirp,[1,2.5,4,3.5，4.7]，options，F0,T1,F1) sg% 求解 方程 
chirp(t,T0,F1,T1)=0 


tt = linspace(0,5,400); sg 等 间距 采样 

YYy = chirp(tt,F0，T1，F1); g% 计算 各 点 函数 值 

figurey 

plot(tt,yy，'z5); sg 绘制 咽 哆 曲线 

holda on; 

plot (xlim, [0,0]，'k:); % 画 0 刻度 线 

plot (t,zeros(size(t))，'b+')， s% 用 符号 “+” 显 示 求 解 结果 
set (gca,'position',[0.13 0.51 0.775 0.315]); # 重 置 坐标 轴 ( axes ) 位 置 


上 述 程序 计算 得 到 下 面 的 信息 : 


Norm of First-order Trust-region 
IEeracion Func-count 于 (Xx) step Optimality radius 
工 6 1.8984 3239 1 
2 12 0.648322 1 工 .94 1 
3 18 0.0076798 0.393723 0.164 工 
4 24 2.08742e-006 0.0445106 0.00287 1 
5 30 工 .09496e-013 0.000726799 6,.57e-007 1 


Optimization terminated Successful1y: 

First-order optimality is 1ess than options .TolFun. 
七 = 1.5811 2.7386 4.1833 3.5355 在 .7434 
Maximum number of function evaluations reached: 
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increase options .MaxFunEvals 


上 从 踢 哆 函数 的 曲线 可 以 看 出 ， 在 区 间 [0,5] 内 存在 5 个 零点 。 利 用 预先 设 定 的 初始 
[ALE 症 。 值 ， 完 全 求 出 了 其 中 的 零点 。 这 里 进一步 考察 不 同 初 始 值 收敛 的 结果 ( 续 上 面 的 
程序 )， 如 图 8.4 所 示 。 


1 
05 
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图 8.4 咽 吕 函数 { chirp ) 曲线 


options = optimset('fsolve'); 当 设置 控制 参数 
trl = fsolve(echirp,tt,options,F0,T1,F1); g 利用 向 量 方式 求 根 计算 
for k = 1:length(tt)y 

tr2(k) = fsolve(echirp,tt(k),options,F0,T1,F1); ss 利用 循环 方式 求 根 计算 
end 


Eigurey 

subplot(121); 

plot(tt,trl,'.); gs 画 出 求解 结果 
Subplot (122) ; 

pP1Lot{(tt,tz2，' .) 7 g% 画 出 求解 结果 


此 处 略 去 部 分 关于 图 形 设置 程序 ， 详 细 的 内 容 可 参阅 光盘 中 的 文件 example_8.m， 输 出 结果 
如 图 8.5 所 示 。 
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图 8.5 不 同位 置 收敛 的 结果 
两 幅 图 形 大 体 相同 ， 但 是 在 0 附近 两 幅 图 存在 着 明显 差异 。 此 外 在 右 图 中 存在 着 离散 的 小 线 
段 。 这 是 因为 采用 向 量 方式 计算 每 次 迭代 次 数 受 限 制 ， 有 的 点 没有 完全 达到 收敛 而 停止 。 因 此 , 在 
计算 中 应 该 区 别 使 用 这 两 种 方式 ， 此 外 全 域 绘图 还 是 很 重要 的 ， 它 可 以 检查 计算 中 的 疏漏 。 
例 8-9: 利用 fsolve 函数 求解 下 面 的 二 元 非 线性 方程 。 
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六 十 太一 6cos(2z)=-1 
其 中 必 ye [-2,2] 。 要 求 得 出 定义 域内 所 有 的 解 。 
分 析 : 其 中 的 两 个 方程 是 较 复杂 的 函数 。 在 求解 之 前 我 们 很 难 知道 解 的 个 数 和 大 致 位 置 ， 可 以 调用 
函数 ezplot 绘制 斤 (xz,y)= xcos(2x)+ysin(2y)-1 和 上 户 (zy)= 王 + 六 一 6cos(2xzy)+1 
对 应 的 曲线 ， 即 : 


ss sin(2y)=1 


ezplot('Yy^2xsin(2x*y) + x^2wcos(2wx) -1'，[-2,2]); g 绘制 第 一 个 方程 曲线 
h=get (gca,'children'); # 获取 句柄 信息 

set (h,'Color' rr， DineStyle' :1) 7 g 改变 曲线 颜色 和 线 型 

hold ony; 

ezplot('x^3 + Y^3 - 6*cos(2*xx*y) + 1'，[-2,2]); % 绘制 第 一 个 方程 曲线 
str=get{(get (gca, 'Title'),，'String'); #% 获取 当前 上 title 中 的 字符 串 
citble(['x^2cos(2x)+Y^2sin(2y)-1=0，' ,str]); % 更 换 字符 串 

axis equal; g# 设置 单位 长 度 一 致 


根据 上 面 函数 绘制 的 曲线 图 形 如 图 8.6 所 示 。 


X2cosD2x)+Y2sinPy1=0.X9+-6cosCxy+1=0 
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图 8.6 “青蛙 ” 

8.6 外 形 酷似 一 只 “青蛙 "， 红 色 虚 线 表 示 第 1 个 方程 的 曲线 ， 而 蓝 色 实 线 对 应 于 第 2 个 方 
程 的 曲线 ,其 中 的 交点 就 是 方程 组 的 解 。 为 了 方便 地 获取 两 曲线 交点 处 的 坐标 , 可 以 使 用 函数 ginput 
方便 地 使 用 鼠标 得 到 交点 附近 的 点 作为 初始 值 ， 即 : 
x0 = ginput(8) # 限 标 取 点 

在 获取 图 8.6 中 8 个 点 的 大 致 位 置 之 后 ， 可 以 调用 函数 fsolve 求解 ， 程 序 如 下 : 


Eql = 'x(1)^2*cos(2*x(1))+x(2)^2+*sin(2*x(2))-1') % 第 一 个 方程 ，x 对 应 于 x(1)，Y 对 应 
于 x(2) 


Eq2 = 'x(1)^3+x(2)^3-6*cos (2xx(LI)*X(2))+1'7 g% 第 二 个 方程 ，x 对 应 于 x(1) ，Y 对 应 于 
X(2) 

ftun = ['[,Eql,，,Eq2,']']; #% 形成 方程 组 

for k = 1:size(x0,1)1; gs 逐 点 求 根 


176 jw > > 基 


本 二 二 本 第 > 超越 方程 的 求解 
gs 用 fsolve 函数 求 根 


X = fsolve(fun,x0f(k,:)); 


xzr(k,:) = X; g% 存储 根 的 数值 
end 
XF % 显示 数据 
plot (xr(:,1),xr(:,2)，'kx'y'markersize' ,10)， s 把 解 画 到 图 上 


为 了 比较 ， 我 们 把 x0 和 xr 的 值 显示 于 下 : 


X0 = XI = 
-0.3918 1.2924 -0.4007 1.2885 
-0.6842 0.9883 -0.6571 0.9817 
~0.6725 -1.7368 -0.6998 -1.7270 
-0.9415 -1.8070 -0.9744 -1.7887 

0.6140 -1.7135 0.6569 ”=-1.7231 


.0939 -1.8343 
-6219 0.9685 
.3926 1.2866 


1.1053 “ -1.8772 

0.6140 ”0.9766 

0.4035 “1.2456 

x0 的 数据 可 能 会 因为 使 用 者 点 击 位 置 的 差异 而 有 所 不 同 ， 它 可 以 认为 是 图 解法 的 一 个 粗糙 结 
果 。 而 xr 是 利用 函数 fsolve 得 到 的 精确 结果 ， 它 不 因 使 用 者 点 击 位 置 不 同 而 改变 。 为 了 进一步 在 
视觉 上 证 明 所 得 结果 的 准确 性 ， 这 里 把 xr 的 数据 画 到 两 个 函数 的 曲线 图 上 ， 如 图 8.7 所 示 ， 可 以 
发 现 各 个 点 完好 地 吻合 于 两 曲线 的 交点 处 。 


x2cos(2x)+y2sin(2y)-1=0, x3 + 妆 -6cosCxnh+1=0 


= 





图 8.7 fsolve 函数 求解 之 后 的 结果 显示 


8.1.4 求解 多 项 式 的 根 
MATLAB 提供 函数 roots 来 求解 多 项 式 的 根 ， 其 调用 格式 如 下 ; 


X = roots(C); 

参数 说 明 : x 表示 返回 多 项 式 函 数 的 根 。C 是 多 项 式 系数 组 成 的 向 量 ， 其 中 C 的 系数 与 多 项 式 
之 间 的 关系 是 C(TD)*X^N + … + C(N)*X + C(N+1)， 即 C 的 系数 对 应 于 按 降 需 顺序 排列 的 多 项 
式 前 面 的 系数 。 如 果 多 项 式 里 面 缺 少 某 盐 次 项 时 ， 那 么 它 前 面 的 系数 等 于 0， 如 多 项 式 
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已 (zj)= 玉 +2x 二 4xr+5 中 ， 妇 是 缺少 的 ， 则 C 的 值 为 [1, 0, 2, 4, 5]。 此 外 C 不 能 是 矩 阵 。 
例 8-10: 求 下 面 多 项 式 的 根 。 
已 (xz)=4 姑 +3z+2x+1 
已 (xz)= 半 二 2 世 +X+10 


已 (xz)= 刀 +4 
分 析 : 根据 三 组 多 项 式 前 面 的 系数 ， 我 们 可 以 确定 出 系数 向 量 C， 然 后 调用 函数 roots 即 可 得 
到 各 个 多 项 式 的 根 。 
相应 计算 程序 如 下 : 
c3 = [4,3,2,1]; % 定义 系数 向 量 
c5 = [1,0,0,2,1,10]; s 定义 系数 向 量 
c7 = [1,zeros(1,5)，4]; g 定义 系数 向 量 
R3 = roots(C3) g% 求 多 项 式 的 根 
R5 = roots(C5) g 求 多 项 式 的 根 
R7 = roots(C7) g#% 求 多 项 式 的 根 
结果 如 下 : 
R3 = R5 = RT7 = 
-0.6058 1.2545 + 1.1279i -1.2190 
-0.0721 + 0.63831i 1.2545 - 1.1279i -0.7600 + 0.9531i 
-0.0721 - 0.63831 -1.6967 -0.7600 - 0.9531i 
-0.4062 + 1.3806i 0.2713 + 1.1885i 
-0.4062 - 1.3806i 0.2713 - 1.1885i 


”对 于 多 项 式 媚 (站 ) = 六 十 4 的 求 根 运算 ， 我 们 可 以 推广 至 求解 严 次 方 根 的 运算 ， 
到 [把 可 以 转化 为 求解 多 项 式 已 (x)= 妇 一 疝 的 根 ， 可 以 使 用 语句 rootst[1， 
zeros(1, n-1)，x0]) 来 计算 。 


与 函数 roots 相对 的 函数 是 poly， 它 是 根据 多 项 式 的 根 反 过 来 确定 多 项 式 的 ， 其 调用 格式 为 : 


xl = Poly(V)， 
x2 = poly(RA); 
参数 说 明 : 其 中 V 是 向 量 。A 是 矩阵 。x1 是 构造 的 多 项 式 系数 。x2 是 矩阵 A 的 特征 多 项 式 
( det(4 巨 , -4) ， 其 中 互 ,是 慰 阶 单位 矩阵 、4 是 一 个 妹 X 叶 的 方 阵 ) 的 系数 ， 其 长 度 是 +1。 
比如 通过 例 8-10 中 得 到 的 R5， 利 用 函数 poly 来 恢复 系数 。 


cr5 = poly(R5) 
cr5 =1.0000 0.0000 -0.0000 2.0000 1.0000 10.0000 


这 个 系数 与 C5 是 一 致 的 ， 因 此 可 以 认为 函数 roots 和 函数 poly 互 为 反 函 数 。 
对 于 由 多 项 式 组 成 的 分 式 , MATLAB 提供 函数 residue 实现 部 分 分 式 展开 , 该 函数 调用 格式 为 : 


[R，P，K] = residue (B，RA); & 格式 1 
[B,A] = residue (R，P，K); g% 格式 2 
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参数 说 明 : 其 中 格式 1 和 格式 2 是 互 为 相反 展开 的 操作 。 参 数 R，P，K，B 和 A 的 意义 如 
8() RU ，R(C2)  ，  ， R(D) 
4(9) YY-P(UJ ”PC 5 一 P(n J+K(9)， , 其 中 参数 B， A 和 K 分 别 是 多 项 式 妃 (*) ， 4(5) 
和 天 (s) 的 系数 ， 几 是 多 项 式 4(s) 的 最 高 次 数 。 特 别 地 ， 如 果 满 足 P 人 =…=P(+m-1)， 相 应 的 


R (j) RUi+UD ，.，,，R(i+m-1) 
分 式 项 变 为 *-P(GJ Ts-POT Fe-p0Os。 


8.1.5 fminbnd 函数 


接 下 来 介绍 fminbnd 函数 ， 在 使 用 这 个 函数 之 前 ， 我 们 需要 将 解 方程 问题 转化 为 求 最 小 值 问 
题 。 如 果 函 数 丰 (X) 在 区 间 [二 ,六 ] 存在 零点 ， 那 么 函数 户 ( 关 ) =| 广 (x]| 的 最 小 值 一 定 是 0， 且 对 
应 的 位 置 就 是 丰 (x) = 0 的 解 。 函 数 fminbnd 的 调用 格式 为 ， 




















X = fminbnd(fun,x1,x2); 
参数 说 明 : x 是 返回 的 最 小 值 。fun 是 函数 表达 式 。x1 和 x2 表示 函数 定义 区 间 [x1, x2]。 
例 8-11: 求 下 面 函 数 在 [1,2] 区 间 内 的 零点 。 


关公 本 一 4Sin Sx 


刀 十 COSX 
分 析 : 首先 把 问题 转化 为 求 最 小 值 问题 ， 然 后 调用 函数 fminbnd 求解 。 程 序 如 下 ， 


fun = inline('abs([x^2-4*Ssin(5x*X)]/V[x^2+cos(x)])); 

s 转化 为 函数 E(x) 的 绝对 值 
x01 = fminbnd(fun,1,1.5) % 计算 在 区 间 [1，1.5] 内 最 小 值 
x02 = fminbnd(fun,1.5,2) g 计算 在 区 间 [1.5，2] 内 最 小 值 
plot (x01,0，'rr'y'markersize',14);  # 把 解 画 到 图 上 
plot (x02,0,'rx'v'markersize',14); g% 把 解 画 到 图 上 


略 去 绘图 程序 ， 完 整 程序 见 光盘 中 的 example_11.m 文件 。 为 了 比较 结果 的 准确 性 , 将 所 得 结 
果 男 为 如 图 8.8 所 示 ， 可 见 函数 fminbnd 得 到 了 较 精 确 的 结果 
4 


二 | 











图 8.8 利用 函数 fminbnd 求 零点 
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在 使 用 fminbnd 函数 的 时 候 要 求 函数 曲线 在 定义 范围 内 的 极 小 值 必 须 小 于 0, 否则 
心 := 四 会 引起 麻烦 。 如 语句 x03 = fminbna(fun,1,4)， 得 到 x03 =2.8009。 


很 明显 x03 这 一 点 是 函数 太 (x) 在 区 间 [1， 4] 内 的 第 二 个 最 小 值 位 置 ， 即 函数 fminbnd 搜索 到 
的 最 小 值 是 第 二 个 极 小 值 。 如 果 在 调用 函数 fminbnd 之 前 使 用 plot 函数 先 绘制 曲线 ， 则 根据 曲线 
上 零点 的 大 致 位 置 确定 区 间 的 端点 值 ， 可 以 避免 出 现 错 解 的 现象 。 


8.2 数值 方法 


前 面 介 绍 了 利用 MATLAB 自 带 函 数 来 计算 超越 方程 的 根 。 每 个 函数 都 存在 一 定局 限 性 ， 本 节 
介绍 几 种 数值 方法 ， 包 括 二 分 法 、 抛 物 线 法 、 牛 顿 法 、 正 割 法 和 Steffenson 法 来 求解 超越 方程 。 


8.2.1 二 分 法 


在 所 有 数值 方法 中 ， 二 分 法 是 超越 方程 求解 最 直观 、 最 简单 的 方法 。 二 分 法 是 以 连续 函数 的 介 
值 定 理 为 基础 建立 的 。 由 介 值 定理 可 知 , 如 果 函 数 F(x) 在 区 间 [a, 由 ] 上 连续 , 同时 fa)J()<0， 
即 Fa) 和 (b) 符 号 相反 ， 那 么 /(x) 在 区 间 [a,b] 内 一 定 有 实 根 。 

二 分 法 的 基本 思想 是 ， 用 对 分 区 间 的 思路 根据 分 点 处 函数 fx) 的 符号 逐步 将 有 限 区 间 缩 小 ， 
使 在 足够 小 的 区 间 内 ， 分 点 与 理论 上 的 根 之 间距 离 足 够 小 ， 继 而 用 分 点 的 值 近似 理论 上 的 根 。 

图 8.9 给 出 了 二 分 法 的 主要 流程 。 首 先 判断 在 区 间 端 点 & 和 心 处 的 函数 值 是 否 异 号 ， 如 果 符 号 
相同 则 直接 输出 “方程 无 解 "。 如 果 两 端点 函数 值 异 号 ， 那 么 将 进入 二 分 法 处 理 程序 : 得 到 中 点 坐 
标 六 (mm = [e+ 四/2 )， 判断 中 点 函数 值 Km) 与 端点 函数 值 Ka 和 Ab) 的 关系 ， 如 果 九 D0 筷 oO 同 号 ， 
那么 e 的 值 由 性 更 新 ， 否 则 心 的 值 由 疾 更 新 ; 判断 当前 端点 之 间 的 距离 是 否 小 于 预 置 精 度 D ( 其 
值 是 一 个 很 小 的 正 数 )， 如 果 b-a>D， 程 序 将 返回 到 第 一 步 继续 二 分 过 程 ， 否 则 将 输出 m 作为 方 
程 的 近似 解 。 该 方法 中 不 断 二 等 分 区 间 ， 因 此 称 之 为 二 分 法 。 


| 输入 oo, 了 ab 









图 8.9 二 分 法 流程 图 
假设 等 分 寻 次 ， 那 么 二 分 法 的 误差 可 以 用 A < 滑 一 4 估计 ， 其 中 & 和 心 是 程序 结束 时 的 数值 ， 
而 非 初始 时 的 数值 。 
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根据 图 8.9 描述 的 流程 ， 编 写 了 二 分 法 程序 dichotomy.m， 该 程序 是 一 个 函数 文件 ， 读 者 可 以 
利用 它 直接 求解 一 元 方程 。 该 程序 调用 格式 为 : 


x0 = dichotomy('fun'，a，b，D): 
x0 = dichotomy ('fun'，a，b，D): 
[x0，fval] = dichotomy ('fundl'，a，b，D)， 


参数 说 明 : x0 是 返回 的 方程 的 解 。a 和 b 是 区 间 的 端点 。D 是 求解 的 精度 ， 即 一 个 很 小 的 正 
数 ， 其 默认 值 是 1e-6。fun 表示 这 个 程序 中 求解 函数 的 定义 函数 文件 名 称 ， 读 者 可 以 根据 自己 的 需 
要 把 求解 表达 式 六 (x) = 0 中 的 让 (x) 输入 到 一 个 函数 中 。 


例 8-12: 求解 下 面 两 个 方程 在 区 间 [1,4] 内 的 解 。 
Sin6x 2 
| 站 ea] =0，y(0)=0 
0 
其 中 交 一 (1 一 六 )y+y=0， 初 始 条 件 为 y(0)=2，yY(0)=0。 


分 析 : 在 这 个 方程 中 包含 一 个 变 上 限 积分 ， 这 里 将 使 用 函数 quad 来 离散 积分 。 相 关子 函数 如 
下 定义 : 


function Y=fundl (x) ; g% 用 子 函数 定义 j 台 
Ix=quada('sGrt (七 ) .*Ssin(t) .*exp(-) 0,sin(6*X) ) 7; 
Y=X-2+IX^217 


第 2 个 方程 是 MATLAB 自 带 函数 vdp1 对 应 的 微分 方程 ， 调 用 ode45 函数 即 可 对 这 个 函数 求 
解 ， 具 体 函 数 定义 如 下 : 
function yY = fund2 (x) 
[t,Y] = ode45(evdpl, [0，x]，[2，0])， 
Y =Y(end,1); 
然后 调用 函数 dichotomy 计算 两 个 方程 的 解 。 执 行 下 面 的 语句 : 


[x01，fl] = dichotomy('fundl',1,4) 
[x02，f2] = Qichotomy ('fund2' ,1,4) 


得 到 下 面 的 结果 : 


X01 = 2.0089 
fl = 1.0263e-006 
X02 = 2.1617 


f2 = 6.0831e-007 


WE 症 。 敌 起 来 可 能 相当 麻烦 ， 甚 至 是 不 可 能 的 。 函 数 曲 线 与 求解 结果 显示 于 图 8.10 中 ， 


省 可 见 使 用 二 分 法 可 以 求解 含有 复杂 表达 式 的 方程 ， 如 果 使 用 前 面 的 MATLAB 函数 计 
1 
可 见 所 定义 的 二 分 法 程序 很 好 地 解决 了 复杂 方程 的 求解 。 
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图 8.10 ”二 分 法 求解 结果 
8.2.2 抛物线 法 





前 面 介 绍 了 二 分 法 利用 两 点 来 遥 近 准确 的 根 , 这 里 使 用 三 点 来 逼近 准确 的 根 ,， 即 抛物 线 法 。 假 
设 方程 F(x) = 0 的 根 为 x'。 设 迭代 计算 相 邻 的 3 个 点 的 坐标 是 忆 ，， 刀 ,和 六 。 下 面 将 利用 这 
三 点 推导 获得 下 一 点 坐标 ue 记 厂 (和 )= 太 ， ， 太 (和 )= 大, 和 三 ( 和 )= 大 ， 则 过 这 三 点 
的 抛物 线 可 以 写 为 : 

证 -2__ 二 泡 : -二 下， 
户 (可 = 及 + 一 人 (r- 吕 )+ 汪 2 下 一 ax- 交 )(x-) 人 
区 一世 -1 -2 一 也 -1 


显然 ，P()= 拟 ，P(z)= 太 ,。 把 x= 改 带 入 上 式 ， 经 简单 计算 可 以 得 出 
疡 (2 )= 所 ,因此 可 以 知道 式 ( 8-1 ) 通 过 曲线 上 3 个 点 (2 大) (和 (zx 天)。 
这 里 略 去 复杂 的 推导 过 程 。 

在 抛物 线 法 中 ， 使 用 多 项 式 PP, (X) 来 近似 函数 让 (x) 。 这 里 户 ( 关 ) 是 一 个 二 次 多 项 式 ， 一 般 
情况 下 它 有 两 个 根 , 我 们 选择 高 丸 较 近 的 根 作为 下 一 个 近似 的 根 。 考 虑 到 使 | 一 欢 | 取 到 最 小 值 ， 
把 式 ( 8-1 ) 写 为 另 一 种 等 价 的 形式 : 

2 一 大 二 六 _ 天 -HA 扩 1 
户 (= 大 + 生 -在 L(x- 员 )+ 交 2 下 下 区 |(x 交 (一 (x-] 


一 欢 -1 认 -2 一 了 基 -1 





令 二， 式 ( 8-2 ) 对 应 的 方程 可 以 写 为 下 面 的 形式 ; 


ai + 及 (xz 一 环 )+cu(z-z =0 ( 8-3 ) 
太一 大 大 _ 上 下 一 大 所- 1 太一 大 
其 中 必 = 太 ， CC = 3 一 取 准 一 乓 -1， 及 = 二 一 +ce( 冯 一 后 )。 
一 其 一双 -1 


了 -2 一 了 -1 


在 一 元 二 次 方程 ( 8-3 ) 中 , 当 扩 = w = 0 时 ， 可 得 半 = 叉 ， 即 此 时 六 就 是 方程 的 解 ， 可 以 
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终止 迭代 。 
当 大 =4 关 0 时 ，X 关 炊 成 立 同时 解 下 面 的 方程 : 


2 
na jh +ce =0 
一 欢 一双 
可 得 : 


1 也 二 和 一 4act (8.4) 


基于 2 沁 2a， 


这 里 不 求 关于 (x 一 为 ) 的 一 元 二 次 方程 是 因为 无 法 确定 ck 是 否 等 于 0。 式 ( 8-4 ) 可 以 进一步 








2Qk 
X 二 7 一 一 一 一 _ 
人 玉生 了 村 = ( 8-5) 
为 了 保证 Xx 和 妈 之 间 的 距离 最 近 ， 需 要 使 式 ( 8-5 ) 中 分 母 最 大 ， 同 时 把 工 写 为 妈 , ， 即 : 


2 


及 +Sgn (及 )A\ 居 一 4akct 站 

这 里 使 用 符号 函数 保证 分 母 中 两 项 同 号 取 绝 对 值 最 大 ， 从 而 保证 Y 和 六 之 间 的 距离 最 近 。 式 

( 8-6 ) 又 称 为 抛物 线 法 的 迭代 公式 。 同 时 抛物 线 法 又 称 为 Muller 法 。 在 式 ( 8-6 ) 中 ， 祖 号 下 面 的 

表达 式 可 能 是 负数 , 因此 使 用 抛物 线 法 得 到 的 解 可 能 是 实数 也 可 能 是 复数 。 在 抛物 线 法 中 我 们 使 用 

三 点 建立 由 一 元 二 次 函数 获得 的 迭代 公式 , 此 外 也 可 以 使 用 更 多 点 来 建立 迭代 公式 , 但 它们 极 少 用 

到 , 还 有 两 个 原因 : 一 是 建立 迭代 函数 需要 用 到 高 次 多 项 式 , 其 求 根 过 程 困难 ; 二 是 收敛 速度 较 慢 ， 
其 收敛 阶 总 是 小 于 2。 

MATLAB 没有 提供 专门 的 函数 实现 抛物 线 法 求解 方程 。 根 据 上 面 的 描述 ， 作 者 编写 了 


parabola.m 程序 实现 抛物 线 法 求解 方程 ， 其 中 迭代 在 满足 条 件 | 办 | < 盖 ( 万 是 预先 指定 的 精度 ， 
默认 值 是 1e-6 ) 时 停止 。 另 外 还 可 以 考虑 使 用 条 件 |zhi 一 六 | < 忆 控 制程 序 执行 , 即 相 邻 两 点 之 间 
的 距离 足够 小 。 函 数 parabola 的 调用 格式 为 : 

Xxr = parabola(fun,x0,xli,x2,D)， 


参数 说 明 : 其 中 xr 是 方程 的 近似 解 。fun 是 待 解 函数 对 应 的 函数 文件 名 。x0 是 第 一 点 的 值 ，x1 
是 第 二 点 的 值 ，x2 是 第 三 点 的 值 ， 要 求 x1<x2<x3。D 是 预定 义 的 精度 。 
例 8-13: 利用 抛物 线 法 求解 下 面 的 方程 在 区 间 [1，3] 内 的 解 。 


(xz)= 刀 cosx+2z 一 2Sinx 
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分 析 : 首先 来 定义 这 个 函数 。 


function Y = fund3 (x); 
Y = X.^3.*Cos (X)+2*X,^2-2wSin(X) 


然后 调用 函数 parabola 就 可 以 得 到 方程 的 解 ， 相 应 程序 如 下 : 


xx = 1]inspace(1,3,200) g% 对 自 变 量 采 样 

Y = fund3 (xx); gs 计算 个 点 的 函数 值 
plot (xx,y) 7; $ 绘制 函数 E(x) 曲线 
holda ony; 

plot(xlim, [0,0] ,ri:'); s 绘制 0 刻度 线 


xr = parabolal('fund3',1,2,3) # 抛物 线 法 解 方程 
plot{(xr,fund3 (xr)，'kx''markersize',12); sg 绘制 解 对 应 的 点 


上 述 程序 输出 : 
XL = 2.3978 

即 该 方程 的 解 是 2.3978， 同 时 可 以 把 相应 函数 曲线 和 结果 的 数值 显示 在 图 8.11 上 ， 可 见 用 抛 
物 线 法 得 到 的 结果 是 很 好 的 近似 解 。 








1 1 和 2 25 3 
图 8.11 抛物 线 法 解 方程 结果 演示 


8.2.3 ”牛顿 法 
前 面 介 绍 的 是 利用 2 个 点 或 者 3 个 点 进行 迭代 得 到 的 超越 方程 数值 解法 ， 这 里 考虑 使 用 1 个 
点 进行 和 迭代。 根据 函 数 三 (x) 在 六 处 的 泰勒 ( Taylor ) 级 数 展开 有 : 





1 加 =7(Co+7Ca)G-a+ 昌 (Ca， 和 [ea 


如 果 把 ( 交 一 x ) 看 做 高 阶 小 量 ， 那 么 : 
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(zt)= 太 (mo)+ 太 (mo)(xz- 六 ) (8-7) 

式 ( 8-7 ) 近似 成 立 。 求 (x) = 0 可 以 等 价 地 计算 让 (各 )+j( 如)(x 一 各)=0， 进 一 步 可 

(5) 

户 (加 ) 

上 式 可 以 写 为 下 面 的 递 推 形式 : 

二 了 (2 
(xl) 





以 写 为 X 三 加 一 


其 三 隐 -i (8-8) 
SS 
融 呈 EN 在 式 (8-8) 中 可 以 看 出 要 求 六 (x) 在 定义 区 间 内 不 等 于 0。 


四 


根据 式 ( 8-8 )， 作 者 编写 了 用 牛顿 法 求解 超越 方程 的 程序 ， 函 数 文件 名 为 Newtonm。 该 函数 
的 完整 调用 格式 为 ， 
xr = Newtonm(fun,x0,D)， 

参数 说 明 : xr 是 返回 的 解 。fun 是 定义 的 函数 ， 可 以 用 来 计算 六 (zx) 的 函数 值 及 其 一 阶 导数 值 。 
x0 是 初始 值 。D 是 求解 精度 ， 默 认 值 是 1e-6。 

例 8-14: 用 牛顿 法 计算 下 面 方程 在 区 间 [3,5] 内 的 解 。 

六 2 
J (= 0 + 二 -2cos 
分 析 : 首先 来 定义 函数 fund4 计算 小 (x) 的 函数 值 及 其 一 阶 导 数值 。 


function [y，dy，d2y] = fund4(x)， 
Y = x.^3.*sin{(Xx)/10+X.^274-2*Ccos (X) ; s 计算 函数 值 
if nargout>1l: 


ff = sym('x^3xsin(x)/10+x^2174-2*cos(x)');  $ 定义 符号 函数 
dy = diff(ff); g% 求 一 阶 导 数 
dy = subs(dy,x); # 赋值 
enda 
if nargout==3; 
d2y = diff(ff,2); # 求 二 阶 导 数 
Gd2Y = subs(d2y,Xx) # 赋值 
ena 


然后 调用 函数 Newtonm 就 可 以 求解 这 个 超越 方程 了 。 程 序 如 下 ; 


= Newtonm('fund4',1.5) sg 牛顿 法 求 根 ， 初 始点 是 1.5 
xr2 = Newtonm( 'fund4',3.5) sg% 牛顿 法 求 根 ， 初 始点 是 3.5 


xr3 = Newtonm('fund4',5.5) % 牛顿 法 求 根 ， 初 始点 是 5.5 
输出 结果 如 下 : 

xrl = 1.2679 

XI2 = 4.0623 
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XI3 =5.9462 


应 着 初始 值 1.5, 3.5 和 5.5 的 计算 结果 。 从 图 8.12 以 及 上 面 的 结算 结果 可 以 发 现 ， 
不 同 的 初始 点 会 引起 结果 的 差异 性 。 而 且 在 一 致 单调 的 区 间 内 才能 得 到 期 望 的 结 
果 ， 即 我 们 要 求 出 4.0623 这 个 解 ， 需 要 在 [3.3，5] 区 间 内 选择 一 点 才 有 可 能 得 到 
4.0623 这 个 解 。 为 了 进一步 明确 这 个 规律 ， 计 算 部 分 点 作为 初始 值 利 用 牛顿 法 来 
求解 ， 同 时 相应 的 导数 值 也 显示 在 表 8.1 中 。 


这 里 给 出 相应 的 函数 曲线 (如 图 8.12 所 示 )。 其 中 符号 “ 口 "、“*” “O 〇 ”分 别 对 








0 1 2 3 4 5 6 
图 8.12 牛顿 法 求解 超越 方程 


表 8.1 牛顿 法 解 方程 ， 初 始 值 、 解 及 一 阶 导 数 数 据 表 





站 开 
初始 值 罗 。 角 ci 
3.2 5.9462 -1.9673 -7.5509 32.9621 
3.3 4.0623 -2.7296 -7.6726 -31.6922 
3.4 4.0623 -3.4972 -7.6562 -29.2408 
3.5 4.0623 -4.2558 -7.4885 -25.6964 
3.6 4.0623 -4.9895 -7.1579 -21.2511 
3.7 4.0623 -5.6816 -6.6550 -16.2043 
3.8 4.0623 -6.3145 -5.9725 -10.9569 
3.9 4.0623 -6.8700 -5.1063 -5.9979 
4.0 4.0623 -7.3296 -4.0551 -1.8805 
4.1 4.0623 -7.6749 -2.8206 0.8109 
4.2 4.0623 -7.8878 -1.4085 1.5026 
4.3 4.0623 -7.9509 0.1724 -0.3207 
4.4 4.0623 -7.8481 1.9093 -5.0623 
4.5 4.0623 -7.5644 3.7857 -12.9608 
4.6 4.0623 -7.0870 5.7814 -24.0384 
4.7 4.0623 -6.4050 7.8727 -38.0586 
4.8 4.0623 -5.5102 10.0324 -54.4939 
4.9 4.0623 -4.3972 12.2300 -72.5113 
5.0 31.3367 -3.0640 14.4320 -90.9778 
5.1 1.2679 -1.5118 16.6027 -108.4901 
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牛顿 法 收敛 的 充分 条 件 为 首先 假设 三 (x) 在 区 间 [a,b] 上 有 2 阶 连 续 导数 ， 如 果 : 


旬 j(a)j (8) <0， 这 一 条 件 保证 方程 在 该 区 间 有 根 。 
人 ”在 整个 区 间 [c, 加 ] 上 函数 ./ (x) 的 2 阶 导数 不 变 号 ， 同 时 六 (xz) 关 0 ， 该 条 件 保证 在 区 间 
内 有 唯一 根 。 
@ 选择 的 初始 值 如 满足 (加 ) (2 ) > 0 ， 保 证 产生 的 迭代 序列 单调 有 界 且 收敛 。 
表 8.1 中 这 个 参数 的 取 值 是 一 种 不 满足 充分 条 件 的 情况 ， 可 见 牛顿 法 对 于 初始 值 zo 的 选择 比 
较 苛刻 ， 在 使 用 这 种 方法 的 时 候 需要 注意 选择 合适 的 初始 值 。 
牛顿 法 的 几何 意义 如 图 8.13 所 示 ( 光盘 中 绘制 该 图 程序 的 名 称 是 sketch_map1.m ), 线 段 嫉 区 
的 长 度 可 以 表示 为 : 








EN (8-9) 
tan W 

其 中 | 汪 人 ， 国 上 或 8 9 ) 可 以 进一步 号 为 二 -和 = 工 ( 交 ) , 即 x = 和 工 () 。 
如 0 二 MX 一 六 广 (2) 大:( 欧 ) 


上 式 正 好 是 牛顿 法 的 迭代 公式 ， 按 照 这 个 过 程 递 推 下 去 就 可 以 无 限 地 通 近 方程 (x) = 0 的 解 。 
50 
40 
30 


20 





Ne 15 2 25 3 35 4 
图 8.13 ”牛顿 法 的 几何 意义 


8.2.4 正 割 法 


前 面 介绍 的 牛顿 法 在 每 步 计算 中 需要 计算 函数 六 (x) 及 其 一 阶 导数 六 (zx) 的 数值 ， 这 相当 于 
计算 两 个 函数 值 ， 用 时 比较 多 。 现 在 利用 差 商 来 代替 牛顿 法 中 的 导数 ， 如 此 一 来 可 以 减少 一 个 函数 
值 的 计算 。 相 应 的 牛顿 法 的 迭代 公式 改 为 : 


臣 一 为 .- 
一 ( 8-10 ) 


MXk+1 二 ALk -Tax)7ORJ7ER 
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正 割 法 的 几何 意义 如 图 8.14 所 示 。 在 此 图 中 ,根据 几何 知识 ,三 角形 Ax 放 z 和 三 角形 Ab 万 区 





罚 --_ 胃 : 太 ( 加 五 ) 
相 似 ， 则 并 -于 = 一 光一 成 立 ， 可 以 进一步 写 为 为 - 妈 = 二 0 - ， 即 
加 一 为 “一 所 0 万 = 上 
二 = 区 = 
加 一 下 








一 1.5 2 25 3 35 4 
图 8.14 正 割 法 的 几何 意义 
上 式 正好 是 式 ( 8-10 ) 当 大 = 工时 的 表达 式 。 如 此 递 推 下 去 就 可 以 逐渐 逼近 方程 了 (x)=0 的 
解 。 这 里 同样 地 编写 了 函数 secant 来 实现 正 割 法 求解 方程 的 程序 ， 其 调用 格式 如 下 ， 


Xr = Secant (fun,x0,xl,D)， 


参数 说 明 : xr 是 返回 方程 的 解 。fun 表示 方程 中 的 函数 J(x) 。x0 和 x1 是 初始 的 两 个 值 。D 是 
精度 ， 黑 认 值 是 1e-6。 

例 8-15: 利用 正 割 法 求 下面 方 程 的 解 。 

(xz)=e< -xzx-5=0 

分 析 : 在 求解 的 时 候 可 以 尝试 不 同类 型 初 值 的 结果 。 程 序 如 下 ， 


fun = inline('exp(x)-x-5')7 # 定义 方程 中 的 函数 E(x) 

x0 = 3.5; s 第 一 初始 值 

xl = 3; s 第 二 初始 值 

xr = secant (fun,x0,x1l) % 用 正 割 法 解 方程 

xs = secant (fun,x1l,x0) g 用 正 割 法 解 方程 

xq = fzerolffun,2) g% 利用 fzero 函数 比较 
输出 如 下 : 

XI 至 1.9368 

XS = 1.9368 

XG = 1.9368 
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罗 和 在 最 初 推导 正 割 法 的 时 候 使 用 初始 两 点 的 关系 是 为 < 如 ， 实 际 应 用 中 这 两 点 的 大 
有 小 关系 不 影响 结果 ， 此 外 解 对 Xo 和 为 要 求 不 高 。 正 割 法 在 有 的 教材 中 也 称 为 割 线 
法 。 


8.2.5 Steffenson 法 

前 面 的 正 割 法 是 使 用 差 商 代 替 导 数 ， 如 果 使 用 下 面 的 形式 代替 导数 : 

8 人 忆 十 (到 ))- (5) 

(5) 
可 以 得 到 Steffenson 法 的 迭代 公式 : 
[zx)] 
8-11 ) 

了 (二 十 太 ( 闵 ))- 了 (二 ) 
用 编写 函数 文件 steffenson.m 来 实现 Steffenson 法 解 方程 ， 其 调用 格式 为 : 


Xkx+l 三 其 一 


xr = Steffenson(fun，XL，D):， 
参数 说 明 : xr 是 返回 方程 的 解 。fun 表示 方程 中 的 函数 让 (x) 。x1 是 初始 值 。D 是 精度 ， 其 默 
认 值 是 1e-6。 程 序 通过 相 邻 的 两 个 解 丸 和 为 ;之 间 的 距离 控制 迭代 终止 。 
通过 下 面 的 语句 计算 例 8-15 中 的 方程 
xa = Steffenson (fun,Xl) 
输出 结果 为 : 
XB = 1.9368 
光明 Steffenson 法 解 方程 只 要 求 一 个 初 值 ， 而 且 不 需要 计算 导数 值 ， 但 对 初 值 选 择 比 
较 敏 感 。 我 们 测试 了 不 同 初 值 求解 例 8-15 中 的 方程 ， 相 关 数 据 如 表 8.2 所 示 。 
表 8.2 ”不同 初 值 对 Steffenson 法 解 方程 的 影响 
初始 值 1.0 1.4 1.8 2.2 2.6 3.0 3.4 


计算 结果 -4.9932 5.5600 1.9368 1.9368 1.9368 1.9368 3.4000 
8.3 小 结 


本 章 主要 介绍 了 超越 方程 的 解法 。 首 先 介绍 了 利用 MATLAB 提供 的 函数 求解 超越 方程 。 函 数 
solve 是 一 种 符号 求解 函数 ， 利 用 这 个 函数 我 们 可 以 得 到 一 般 方程 的 解 ， 但 是 遇 到 较为 复杂 的 方程 
时 ， 这 个 函数 就 显得 无 能 为 力 了 。 利 用 函数 fzero 和 fsolve 可 以 求解 复杂 函数 在 初 值 附近 的 解 ， 在 
使 用 这 两 个 函数 的 时 候 读 者 可 以 根据 需要 设 定 求解 过 程 的 参数 。 这 两 个 函数 只 能 求 出 方程 的 实数 
根 。 函 数 roots 可 用 于 计算 多 项 式 函 数 的 根 ， 一 个 特殊 的 应 用 就 是 求解 某 数 的 次 方 根 。 如 果 把 方 
程 求 根 转化 为 求 最 小 值 问题 ， 就 可 以 调用 函 数 fminbnd 来 求 方程 的 根 。 接 下 来 介绍 了 几 种 数值 方 
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法 求解 超越 方程 。 二 分 法 在 给 定 两 个 初 值 的 条 件 下 可 以 很 快 地 得 到 方程 的 根 , 该 方法 对 于 初始 条 件 
要 求 低 ， 即 保证 根 存在 就 可 以 了 。 抛 物 线 法 需要 给 定 3 个 初 值 再 进行 迭代 计算 。 利 用 泰勒 级 数 展 
开 可 以 得 到 牛顿 法 求解 方程 的 迭代 公式 。 进 一 步 地 ， 利 用 差分 替代 导数 可 以 得 到 正 割 法 计算 公式 。 
类 似 地 ， 给 出 Steffenson 法 计算 公式 。 本 章 所 述 的 无 论 哪 一 种 方法 ， 在 利用 的 时 候 都 需要 结合 画 
图 才能 完好 地 求解 方程 。 因 为 现在 计算 机 的 运行 速度 很 高 ， 在 进行 数值 计算 时 ， 计 算 量 已 经 不 影响 
方程 的 求解 ， 不 同方 法 彼此 之 间 花 费 的 时 间 差 异 很 小 ， 因 此 计算 速度 的 问题 不 再 讨论 。 


全 全 全 
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争 拟 合 基础 @ 最 小 二 乘 拟 合 
@@ 多 项 式 拟 合 急 非 线性 拟 合 
急 Lagrange 插值 争 Hermite 插值 
急 样 条 插值 @@ 二 维 插值 


在 应 用 中 ,经 常会 遇 到 用 一 个 解析 函数 描述 已 知 数据 ( 通常 是 测量 值 ) 的 问题 ， 而 拟 合 与 插值 
是 解决 这 个 问题 的 主要 方法 。 拟 合 和 插值 在 实验 数据 分 析 和 处 理 中 是 十 分 重要 的 ,特别 是 数据 拟 合 ， 
比如 用 最 小 二 乘法 求 直 线 的 斜率 和 截 距 是 数据 处 理 中 经 常 使 用 的 ， 而 且 很 准确 。 此 外 外 推 法 、 标 准 
工作 曲线 法 都 是 这 方面 的 运用 。 通 过 数据 拟 合 , 可 以 找到 一 条 光滑 的 曲线 来 和 逼 进 数据 。 但 由 于 运算 
量 很 大 ,长 期 以 来 使 用 手工 绘图 法 来 得 到 所 需要 的 结果 ， 其 人 为 误差 不 可 避免 。 如 果 是 非 线性 的 情 
况 则 更 为 复杂 、 困 难 , 并 很 难得 到 所 拟 合 变量 间 函 数 关系 的 解析 式 ， 也 影响 了 对 所 研究 问题 的 进 一 
步 深 入 。 如 果 用 MATLAB 处 理 则 非常 方便 ， 它 可 以 画图 和 计算 同时 进行 。 除 了 MATLAB 本 身 的 拟 
合 函 数 外 , 回归 分 析 也 可 以 用 来 解决 数据 拟 合 问题 , 这 部 分 内 容 在 第 11 章 介绍 。 利用 数据 插值 时 ， 
数据 假定 是 准确 的 ,要 求 以 某 种 方法 推测 出 数据 点 之 间 未 知 范围 内 的 取 值 情况 。 插值 法 是 一 种 用 简 
单 函数 近似 代替 较 复杂 函数 的 方法 ， 在 插值 点 处 的 误差 等 于 0。 


9.1 拟 合 基础 


在 很 多 科学 研究 中 经 常 要 根据 实验 数据 建立 数学 模型 对 于 给 定 的 数据 需要 用 比较 简单 和 满足 
相关 物理 意义 的 函数 模型 来 和 逼 近 { 或 者 称 为 拟 合 ) 实验 数据 。 这 种 逼近 的 特点 是 : 


人 需要 适当 的 精度 控制 。 

人 实验 数据 中 由 于 一 些 人 为 和 非 人 为 因素 而 存在 着 小 的 误差 ; 

人 对 于 一 些 问题 ， 存 在 某 些 特殊 信息 能 够 帮助 我 们 从 实验 数据 中 建立 数学 模型 。 

在 介绍 拟 合 方法 之 前 ， 给 出 拟 合 结果 优 劣 的 评价 方法 。 设 | 4s, xx,xvky | 是 测量 数据 ， 
而 函数 关系 是 》 = 太 ( 国 ,如 ,2 ) ， 那 么 拟 合 的 数据 值 和 实验 数据 值 之 间 的 误差 { 也 可 以 称 为 残 
差 ) 可 以 用 下 式 计算 。 


急 绝对 误差 

A, = 2 )- 六 | 
大 

急 ”相对 误差 
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-2 xceas]-| 己 |/(aeas ms)- 交 | 
2 (ae 双 | ee 2 加 | 
此 外 还 可 以 通过 均 广 误差 MSE ( Mean square error ) 和 信 噪 比 SNR ( Signal noise ratio ) 来 定 
义 误 差 大 小 : 
区 下 (serve)- 台 志 1(x MD xx)- y| 


或 者 MSE = 
互 1 于 
=-20logioMSE 


上 面 介 绍 的 参数 都 是 单个 值 。 为 了 得 到 整个 范围 内 的 误差 情况 ,可 以 绘制 图 形 来 描述 各 点 误差 的 情况 。 
在 图 9.1 和 9.2 中 使 用 “+” 来 表示 实际 数据 ， 而 连续 的 曲线 表示 由 拟 合计 算得 到 的 数据 。 从 这 些 图 形 
可 以 很 方便 地 观察 出 实验 数据 与 相应 的 拟 合 值 之 间 的 差异 大 小 。 三 维 曲线 由 于 存在 着 遮挡 问题 ( 如 图 9.2 合 
所 示 )， 把 曲线 数据 分 别 投 影 到 XY，YZ，ZX 平面 上 显示 ， 这 样 就 可 以 清楚 地 观察 到 。 其 中 对 于 每 一 点 的 误差 





15 








N 中 (9 











?》 
图 9.2 三 维 曲线 实验 数据 与 拟 合 数据 图 示 化 比较 
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对 于 形 如 y》= 了 汪 ( 冯 ,2 ) 的 数据 拟 合 模型 ， 可 以 绘制 误差 面 来 表示 ， 如 图 9.3 所 示 。 








图 9.3 三 维 曲 面 对 象 的 拟 合 误差 比较 
如 图 9.3 所 示 ， 曲 面 各 点 值 的 计算 公式 是 ， A( xy ) = (和 ) 一 怀 ， 其 中 区 是 实验 
数据 。 
由 此 可 见 ， 利 用 图 形 来 观察 实验 数据 和 拟 合 数据 之 间 的 误差 非常 方便 、 直 观 。 在 实际 应 用 中 ， 
可 以 根据 需要 ， 选 择 不 同 的 方法 来 查看 拟 合 数据 和 实验 数据 之 间 的 误差 。 


9.2 ”最 小 二 乘 拟 合 


通 近 实验 数据 的 基本 方法 就 是 拟 合 方法 , 其 中 最 常用 的 就 是 最 小 二 乘法 拟 合 。 最 小 二 乘法 适用 
的 数学 模型 可 以 是 线性 函数 和 非 线性 函数 。 对 于 一 组 给 定 的 数据 ( 鸡 ,y ) , 设计 和 确定 一 个 函数 模 
型 y= 广 (x) ， 使 得 函数 矿 (x) 在 某 种 误差 函数 标准 下 与 左右 数据 点 (, 多 ) 之 间 的 距离 最 近 , 也 
就 是 说 寻求 一 个 最 佳 拟 合 函数 。 

最 小 二 乘 拟 合 是 解决 曲线 拟 合 问题 的 常用 方法 。 这 里 以 线性 函数 为 例 介绍 最 小 二 乘法 的 原理 ， 


该 方法 的 基本 思路 是 建立 一 个 线性 模型 ， 即 》= (X) = Qx+ 已 。 

其 中 & 和 力 是 待定 系数 通过 实验 数据 (z, y% ) 确定 出 系数 大 和 力 。 最 小 误差 原则 是 保证 内 和 
j 太 (六 ) 之 间距 离 的 平方 和 最 小 ， 因 此 这 种 方法 被 称 为 线性 最 小 二 乘法 。 

下 面 考虑 系数 4 和 访 的 求法 。 考 虑 下 面 的 误差 函数 : 
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A(ab)= 袜 [wy -7 Fi 如 = 袜 [>-( (ax +b)] 


可 以 发 现 A( ,只 ) 是 关于 已 和 加 的 二 次 数 。 根 据 高 等 学 的 知识 ，A( ,有 ) 具有 最 小 值 的 必 





要 条 件 是 9A( 马 名) -0 和 9A (盛名 ) -0 ， 从 而 有 : 
OK Op 
xx [ax + 一 关 ]=0 
] 
> [ax + 一 从]=0 
如 1 
侈 关 一 也 其 


求解 上 面 关 于 @& 和 畏 的 方程 组 有 : Q 一 ,万 = 又 一 喷 。 其 中 去 和 胞 分 别 为 


JU 一 区 
六 和 关 的 均值 ， 丈 只 和 站 分 别 为 六 头 和 站 的 均值 。 
相应 的 误差 评估 通常 使 用 下 面 两 种 形式 。 


具 17/2 
人 ”最 小 平方 根 误差 ( 均 方 误差 ) A= 人 pv- re 
太 =1 
争 最 大 偏差 ，A; =max|y 


Re 一 了 (六 ] 
类 似 地 对 于 多 项 式 函 数 和 更 复杂 的 函数 表示 都 可 以 利用 上 面 的 思路 来 确定 模型 中 的 未 知 系数 。 
对 于 单个 数学 模型 , 使 用 最 小 二 乘法 只 能 获得 一 个 拟 合 结果 ， 可 以 计算 相应 的 误差 值 ， 如 果 误 差 值 
没有 达到 要 求 ， 就 要 更 改 为 其 他 模型 ， 直 到 满足 要 求 为 止 。 
实际 中 ， 一 些 模 型 可 以 转化 为 线性 最 小 二 乘 问题 ， 如 : 





旬 = ar" + 及 ,其 中 疙 关 1 ， 通 过 代 换 & = x” ， 可 以 得 到 一 个 线性 模型 。 

@ y=d-e 欠 ， 通 过 代 换 w = xz 及 两 边 取 对 数 操作 ， 可 以 简化 为 线性 模型 。 

在 实际 应 用 中 ,需要 考虑 不 同 的 模型 ， 通 过 误差 函数 值 的 比较 从 中 选择 拟 合 后 误差 最 小 的 。 而 
函数 模型 的 设计 需要 根据 经 验 来 选择 ,在 数据 规律 不 明显 的 时 候 ， 可 以 通过 平移 、 取 对 数 或 者 分 自 
处 理 等 操作 来 探索 数据 的 规律 。 

例 9-1: 计算 线性 最 小 二 乘 拟 合 ， 处 理 数据 如 表 9.1 所 示 。 

表 9.1 ”线性 最 小 二 乘 拟 合 数 据 
Xk 0 1 2 3 人 4 5 6 了 8 9 
水 2 3.4 5.6 8 11 12.3 13.8 16 18.8 19.9 





本 问题 程序 如 下 


XK 0:9; 
YK [23.45.68 11 12.3 13.8 16 18.8 19.9]7 
#% xk 和 Yk 为 离散 数据 
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Plot (xdata,ydata,'r+') #% 画 离散 数据 点 
h=lsline # 最 小 二 乘 拟 合 
xd = get(h，'XData'); gs 获取 直线 的 数据 
Ya = get(h，'YData'); gs 获取 直线 的 数据 
a = [yd(1)-yd(2)]/[xda(1)-xa(2)] s% 斜率 
b = yd(1)-a*xd(1) 外 

a 和 bb 的 值 如 下 : 
a = 2.0582 
b = 1.8182 


前 ， 坐 标 轴 上 的 数据 点 的 曲线 不 能 使 用 3 种 线 型 (属性 LineStyle )， 即 实 线 、 虚 
线 和 点 划 线 。 默 认 情况 下 ， 直 线 的 颜色 与 数据 点 的 颜色 相同 ， 而 且 返 回 句柄 h 中 
包含 了 如 图 9.4 所 示 那 条 直线 的 全 部 信息 。 其 中 h 的 参数 “XData” 和 “YData” 是 
该 直线 的 两 个 端点 的 坐标 ， 根 据 两 点 法 可 以 求 出 斜率 和 截 距 ， 从 而 确定 直线 方程 


1sine 的 作用 是 在 图 形 上 添加 一 个 线性 最 小 二 乘 拟 合 的 直线 。 在 使 用 sline 函数 之 
| 














y=ar+pb。 
20F + T + T + r T T -本 
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训 
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14 上 | 

12 如 才 
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8 上 几 | 

6 上 不 才 

4 上 2 ] 
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2 一 L 1 1 1 1 上 上 二 雪 
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图 9.4 线性 最 小 二 乘 拟 合 

此 外 函数 polyfit 可 以 用 来 进行 多 项 式 拟 合 ， 如 果 选 择 1 次 多 项 式 ， 那 么 正好 对 应 着 上 面 的 模 
型 。 为 了 比较 上 面 的 结果 ， 这 里 调用 此 函数 进行 拟 合 。 
P = polyfit(xk,yk,1) 

结果 为 : 
P = 2.0582 1.8182 

这 里 P(T) 是 1 次 项 系数 ，P(2) 是 多 项 式 的 常数 项 。 可 以 发 现 polyfit 函数 与 lsline 函数 返回 了 相 
同 的 结果 ， 利 用 polyftt 函数 可 以 方便 地 对 实验 数据 进行 线性 最 小 二 乘 拟 合 处 理 。 关 于 polyfit 函数 
详细 的 使 用 方法 将 在 下 一 节 介绍 。 
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接 下 来 考虑 一 种 多 元 线性 拟 合 问题 。 这 里 以 二 元 问题 为 例 ， 一 般 的 函数 模型 可 以 写 为 
z=j 丰 (xy)=ar+y+c， 其 中 心 ， 户 和 为 待定 系数 。 数 据点 (六 ,zx ) 带 入 上 述 函 数 模型 
可 以 得 到 方程 组 Cx, 十 py +cC=2z， (1< 大 < 和 1 ) 


| 2 
Q 
2 
上 面 的 方程 组 可 以 写 为 徐 阵 形式 ，M .X=d ,其 中 M =|2 22 :|， 3 d4=|2|。 
和 1 2 


方程 M .X = 好 可 以 转化 为 求 下 面 的 最 小 二 乘 优化 问题 ， 
min MX -4 
MATLAB 中 提供 了 函数 lsqlin 计算 最 小 二 乘 优化 问题 ， 其 调 用 格式 为 ， 


2 
2 








[X，resnorm，residual] = 1sqlin(M,dG) 


参数 说 明 : X 是 最 小 二 乘 解 。resnorm 是 2- 范 数 , resnorm=norm(C*x-d)^2。 residual 是 残 差 ， 
residual=C*x-d。M 和 d 分 别 描述 方程 WM .X = dd 的 矩阵 和 向 量 。 
例 9-2: 计算 下 面 的 二 元 线性 拟 合 问题 ， 如 表 9.2 所 示 。 


表 9.2 ”二 元 线性 拟 合 





X 0.1 0.2 03 0.4 0.5 0.6 07 0.8 0.9 

1.8 1.7 1.6 15 1.4 和 1.0 0.85 0.67 
z 5:1 54 5.7 6.0 6.3 6.4 6.5 67 6.8 
RAR 


注 训 上 述 数 据 在 光盘 中 由 P0527.mat 保存 。 


相应 程序 如 下 : 
load P0527 # 读 入 数据 
M=[x'y'vones(9,1)]; sg 组 成 X 和 矩阵 
G=z; 生成 向 量 Q ， 
[X，resnorm，residual] = lsqlin(M,d)  $% 计算 最 小 二 乘 问题 
X=X'，resnorm，residual=residual， # 显示 结果 

上 述 程序 输出 如 下 结果 : 
又 = 5.11L10 2.0964 0.8146 


resnorm = 7.6085e-004 
residual= -0.0009 0.0006 0.0021 0.0035 0.0050 -0.0032 -0.0114 -0.0147 
0.0190 

这 说 明 a=5.1110 ， 忆 = 2.0964 ，c = 0.8146 ， 同 时 拟 合 的 数据 和 实验 数据 之 间 的 误差 比 
较 小 ， 其 中 最 大 误差 是 0.0190。 

有 的 时 候 在 测量 数据 中 存在 着 一 些 明 显 误差 点 ， 也 称 它们 为 坏 点 。 在 进行 拟 合计 算 时 ， 不 希望 
考虑 这 些 点 。MATLAB 提供 了 函数 robustfit 来 完成 健壮 性 稳健 回归 分 析 ， 该 函数 具体 调用 格式 为 : 
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B = Yobustfit{(Xx，Y)， 
[B，STRATS] = Tobustfit(Xx，Y) 7 
[B，STATS] = robustfit(x，Y，"'wfun'，tune， “const ') 

参数 说 明 : B 返回 系数 估计 向 量 。STATS 返回 各 种 参数 估计 。wfun 指定 一 个 加 权 函 数 ， 它 可 
以 选取 下 面 的 名 字 : andrews，bisquare，cauchy，fair，huber，logistic，talwar，welsch。tune 
为 调 协 常 数 。const 的 值 为 on ( 其 为 默认 值 ) 时 添加 一 个 常数 项 ， 为 off 时 忽略 常数 项 。 

例 9-3: 处 理 带 有 一 个 异常 点 的 数据 ， 比 较 最 小 二 乘 拟 合 值 与 稳健 拟 合 差异 。 

分 析 : 首先 利用 关 8+3x 加 上 正 态 随机 噪音 项 生成 模拟 数据 ， 然 后 改变 最 后 一 个 y 值 产生 异常 
值 。 调 用 不 同 的 拟 合 函数 ( lsline，polyfit 和 robustfit )， 通 过 图 形 和 数据 输出 观察 拟 合 函数 的 效果 。 
程序 如 下 : 


randn('state',2007) ; % 设置 随机 数 状态 

x= [1:8]'; s% 产生 x 数 据 

Y = 8+3*X+randn(8,1I); g 产生 Y 数据 

Yy(end)=2; *# 设置 最 后 一 个 数据 为 异常 数据 
plot (x,y，'04，'MarkerFaceColor'，'k'5); g 画 出 数据 点 
h=lsliney gs 添加 最 小 二 乘 结 果 
set(th,'lineStyle'，':'，'Color' rz) ; s 改变 线 型 和 颜色 
P=polyfit(x,y,1I); $% 一 次 多 项 式 拟 合 
B=robustfit (x,Y); % 稳健 拟 合 

hold on 

plot (x,B(1)+B(2)*x，'k'); s# 绘制 稳健 拟 合 曲线 
set(gca, 'Fontsize',16) s 字体 设置 

xlim( [min(x) ,max(x)]); # 设置 X 轴 范 围 

set (gct,，'color' yw'5) 7 % 设置 背景 色 

P，B # 输出 直线 系数 到 命令 窗 


输入 图 形 如 图 9.5 所 示 ，P 和 B 的 值 如 下 : 


0.5016 15.6436 
8.1030 
180 


忆 邓 
避 有 1 





1 2 3 4 5 6 了 8 
图 9.5 ”稳健 拟 合 与 一 般 拟 合 的 比较 


可 见 函数 robustfit 没有 考虑 最 后 那个 坏 点 ， 对 数据 的 拟 合 程度 好 些 ， 而 函数 sline 和 polyfit 把 
所 有 数据 点 都 考虑 进去 进行 最 小 二 乘 计 算 ， 拟 合 结果 受到 异常 值 影响 ,直线 偏向 异常 值 一 例 。 在 实 
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际 应 用 中 可 以 根据 不 同 需要 选择 拟 合 方式 。 


9.3 多 项 式 拟 合 


这 里 考虑 那些 无 法 通过 数学 代 换 转 为 线性 模型 的 拟 合 问题 。 令 三 ( x,q ) 表示 一 个 非 线 性 函数 ， 
其 中 表示 待定 的 系数 组 ， 即 &= [aw,a,,,q, ] 。 我 们 知道 任何 连续 函数 都 可 以 利用 过 函 数 来 展 
开 , 这 样 就 可 以 得 到 一 个 多 项 式 函 数 了 。 本 节 将 介绍 多 项 式 拟 合 , 其 中 系数 可 以 通过 最 小 二 乘法 来 
计算 。 

MATLAB 中 的 polyfit 函数 可 以 完成 多 项 式 拟 合 ， 其 调用 格式 为 : 

P = polyfit (X，Y，N) 
[P，S] = polyfit (X，Y，N) ， 

参数 说 明 : 其 中 P 表示 多 项 式 系数 ， 它 对 应 于 多 项 式 的 降 因 顺 序 ， 即 Y = P(D)*X^N + 
P(2)*X^(N-1) + … 十 P(IN)*X + P(IN+1)。S 可 以 用 来 误差 估计 和 预测 数据 结构 体 。X 和 Y 是 输入 
的 实验 数据 ，N 表示 拟 合计 算 用 到 多 项 式 的 次 数 。 此 外 ，polyfit 函数 还 存在 下 面 一 种 调用 格式 “[P 
S, MU] = polyfit (X, Y N);”, 该 语句 完成 对 归 一 化 处 理 数据 XHAT=(XMU(1))/MU(2) 的 多 项 式 拟 合 计 
算 ，MU 是 由 均值 和 标准 方差 构成 的 1]X2 向 量 ， 即 MU=[mean(X),std(X)]。 

例 9-4: 多 项 式 拟 合 。 

X=1:6; gs 数据 x 


[3,9,18,32,50,721]; % 数据 Y 
[P1，S，MU] = polyfit(x,y,2) #% 对 数据 x 归 一 化 处 理 的 多 项 式 拟 合 


P2 = polyfit ([x-mean(x)]/std(x),Yy,2) s# 等 价 形式 的 多 项 式 拟 合 
= POLYFIT(x，Y，2) gs 无 归 一 化 处 理 多 项 式 拟 合 


输出 如 下 : 


7.2500 25.7640 24.6250 
7.2500 25.7640 24.6250 
2.0714 -0.7286 1.8000 

使 用 “[P S, MU] = polyfit (X, Y N);” 的 时 候 需要 特别 注意 ， 它 与 “P = polyfit(X, Y N);” 得 到 
的 结果 差异 很 大 。 

与 polyfit 函数 配合 使 用 的 函数 是 polyval， 这 个 函数 根据 拟 合 出 来 的 多 项 式 系 数 P 计算 给 定数 
据 X 处 的 Y 值 。 其 调用 格式 如 下 : 


rd 
tb 
IN 站 


Y = polyval(P，X) 
[Y，DELTRA] = PolyYyval(P，X，S); 
[Y，DELTA] = polyval(P，X，S，MU) ; 

参数 说 明 : Y 是 根据 多 项 式 系数 P 计算 出 来 的 X 处 的 多 项 式 值 。DELTA 是 利用 结构 体 S 计算 
出 来 的 误差 估计 ，Y 的 95% 置 信 区 间 [Y 一 DELTA,Y+DELTA] ， 其 中 假设 polyfit 函数 数据 输入 的 误差 
是 独立 正 态 的 ， 并 且 方 差 为 常数 。 函 数 polyval 的 输入 参数 与 函数 polyfit 的 输出 参数 意义 相同 。 

为 了 更 好 地 分 析 拟 合 结果 , 可 以 使 用 函数 polyconf, 该 函数 可 以 给 出 多 项 式 拟 合 结果 评价 和 置 
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信 区 间 ， 其 调用 格式 为 : 


[Y,DELTRA] =polyconft (P,X,S); 
[Y,DELTRA]=polyconf (P,X,S,ALPHRA) ; 


参数 说 明 : Y，DELTA，P，X，S 意义 同 函数 polyval， 参 数 ALPHA 与 置信 度 有 关 。 同 样 ， 函 
数 polyconf 也 假设 函数 polyfit 的 输入 数据 误差 是 独立 正 态 的 ， 并 且 方 差 为 常数 。 
例 9-5: 计算 下 面 数据 的 2 到 6 次 多 项 式 拟 合 结果 ， 如 表 9.3 所 示 。 
表 9.3 ”多 项 式 拟 合 数据 
X -4 -3 -2 -1 0 1 2 3 4 
y 2.2 -3.2 -2.1 0.16 1.0 0.04 -0.66 3.4 19 
分 析 : 为 了 同时 得 到 不 同 次 数 多 项 式 拟 合 的 系数 , 这 里 借助 了 一 个 循环 结构 来 计算 不 同 次 数 的 
多 项 式 拟 合 ， 其 中 使 用 了 for 循环 结构 ， 把 拟 合 系数 保存 到 一 个 矩阵 中 。 程 序 如 下 ， 





X = -4:4; #% 数据 x 
Y = [2.2，-3.2，-2.1，0.16，1.0，0.04，-0.66，3.4，19]; # 数据 y 
P = zeros(5,7); % 初始 化 多 项 式 系数 和 矩阵 
for k=2:6; 
[Pt,S] = polyfit(x,y,k); gs 多 项 式 拟 合 
P(k-1,1:k+l) = Pt; sg 把 Pt 赋值 给 系数 和 矩 阵 P 
Y = polyval(PEt,x,S)， # 计算 x 处 的 拟 合 值 
Dt{(k-1) = sta(Y-y); g# 计算 拟 合 值 与 原 数据 之 间 的 标准 方差 
end 
P, Dt # 显示 拟 合 系数 答 阵 和 误差 
输出 的 系数 矩 阵 和 误差 如 下 : 
P = 
0.6425 1.4960 -2.0790 0 0 0 0 
0.1442 0.6425 -0.2061 -2.0790 0 0 0 
0.0999 “0.1442 -0.9982 -0.2061 1.0028 0 0 
-0.0002 0.0999 0.1490 -0.9982 -0.2244 ”1.0028 0 
0.0001 -0.0002 0.0979 0.1490 -0.9870 -0.2244 ”0.9939 
pt = 3.3232 2.7085 0.0183 0.0140 ”0.0121 


可 见 当 多 项 式 次 数 大 于 3 时 误差 迅速 减 小 ， 同时 随 着 次 数 的 增加 误差 减 小 ， 而 且 次 数 较 高 的 
时 候 高 次 项 系数 变 得 很 小 ， 因 此 对 于 这 组 数据 使 用 4 次 多 项 式 拟 合 即 可 。 对 于 不 能 确定 多 项 式 次 
数 的 时 候 , 建议 读者 尝试 不 同 次 数 的 多 项 式 拟 合 ， 对 结果 的 误差 进行 分 析 ， 从 而 选择 合适 的 多 项 式 
次 数 。 


伐 数据 X 的 单调 性 不 会 影响 拟 合 结果 。 用 下 面 的 ]k 向 量 打 乱 X 和 y 的 顺序 ， 再 进行 


拟 合 。 
Ik = [1，7，4，3，6，2，9，8，5]) # 扰乱 顺序 
x = X(Ik); # 重 排 x 数 据 
Y = Y(Ik)， #% 重 排 Y 数据 
得 到 下 面 的 结果 : 
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P = 

0.6425 1.4960 -2.0790 0 0 0 0 

0.1442 0.6425 -0.2061 -2.0790 0 0 0 
0.0999 0.1442 -0.9982 -0.2061 1.0028 0 0 
-0.0002 0.0999 0.1490 -0.9982 -0.2244 1.0028 0 
0.0001 -0.0002 0.0979 0.1490 -0.9870 -0.2244 0.9939 
Dt = 3.3232 2.7085 0.0183 0.0140 0.0121 


可 以 发 现 上 面 的 结果 与 x 按 递增 顺序 排列 的 结果 完全 一 样 ,因此 使 用 者 在 输入 数据 时 保证 Xx 和 
y 的 对 应 关系 即 可 。 
例 9-6: 利用 从 2 到 5 次 多 项 式 拟 合 下 面 的 数据 , 并 在 fgure 上 动态 显示 结果 , 如 表 9.4 所 示 。 


表 9.4 动态 显示 结果 


分 析 : 用 text 函数 及 title 函数 分 别 显 示 多 项 式 系数 和 次 数 。 程 序 如 下 ， 


Xx = 0:5; gs 输入 拟 合 x 数 据 
yY= [12261 6976111]; # 输入 拟 合 y 数据 
xp = 0:0.02:5; g 产生 更 密集 的 x 轴 数 据 
for N=2:5 
P = polyfit{x,Yy,N) ; sg 本 次 多 项 式 拟 合 
yp = polyval(P,xp); g% 计算 xp 的 多 项 式 值 
Plot (x,y，'r+' ,xp,yp,'k');  % 绘制 数据 点 与 拟 合 曲线 
title(['n='vint2stzr(N)],，'Fontsize',16); % 显示 次 数 
for Kk=1:1length(P); 
ext (1+k*0.4,k*1l10,['P('num2str(k)，...。 
'")=' vchar(vpa(P(k),4))]， 
'FEOntsize' ,16); s 显 示 所 有 多 项 式 系数 
enaQ 
set (gca, 'Fontsize' ,14); g 设 置 字体 大 小 
Set (gcf，'Color'，w'5) 7 


g% 重 置 背景 色 

pause % 停顿 ， 按 任意 键 继续 循 环 计算 
enda 

按 空格 键 可 以 得 到 从 2 到 5 次 的 多 项 式 拟 合 结果 , 截图 如 图 9.6 所 示 。 这 样 就 可 以 实时 观察 拟 
合 结果 了 ， 读 者 可 以 套用 上 面 的 程序 进行 多 项 式 拟 合 分 析 。 

函数 的 最 佳 多 项 式 逼 近 科 学 计算 中 常用 的 方法 是 ,在 一 个 有 限 的 区 间 { 如 [0,1] ) 上 ,寻求 简单 
函数 的 逼近 方法 。 前 面 提 到 使 用 函数 polyfit 可 以 得 到 N 次 拟 合 多 项 式 的 系数 。 如 果 已 知 一 个 较为 
复杂 的 连续 函数 j( zj, xe [xi,2] ， 求 一 个 较为 简单 的 函数 8(x) ， 如 多 项 式 函 数 P(x) ， 则 用 最 小 
二 乘法 来 通 近 函数 帮 (x) ， 就 是 函数 逼近 。 它 不 同 于 前 面 的 数据 通 近 。 

与 实验 数据 拟 合 类 似 ， 函 数 逼 近 的 误差 使 用 积分 代替 求 和 ， 其 定义 如 下 : 


= 上 [s(9-7(O] 
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n=3 


P(4)=-2.103 
P(3)=43.51 
P(2)=-10.76 
P(1)=1.296 





0 1 2 3 4 5 
图 9.6 动态 多 项 式 拟 合 显示 


如 果 误差 函数 A(x) 达到 最 小 ， 那 么 函数 8(x) 就 是 7(x) 的 一 个 最 佳 逼 近 。 这 里 首先 定义 一 组 
基 函 数 [ 户 (z), 包 (zx 加 (xz)] ， 吉 近 函数 $(z) 可 以 表示 为 这 些 基 函数 的 线性 耸 加 ， 
S(x)=c(z)+czpp (+…+cnb (2) 


其 中 ouca,…cv 为 待定 系数 。 为 了 求 A(z) 的 最 小 值 ， 可 以 得 到 下 面 的 方程 组 : 





Cn o@， 
其 中 心 和 @i (1<i jsn ) 表示 内 积 ， 即 1 = 总 (z) 忆 (xz)dx ， CQ= 上 7(COa(x)dar。 
根据 线性 方程 组 知识 ， 上 述 方程 组 具有 唯一 解 的 充 要 条 件 是 系数 矩阵 非 奇异 。 
在 实际 应 用 中 ， 最 简单 的 基 函 数 就 是 辕 函 数 ， 即 训 (x)=1， 包 (x)=， 已 (xz)=， 等 等 。 同 
时 如 果 所 选 基 函 数 能 满足 -an 就 是 说 系数 甜 阵 是 对 角 和 矩阵 ， 这 样 上 述 方程 组 
的 求解 将 极 大 地 被 化 简 。 这 样 的 多 项 式 被 称 为 正 交 多 项 式 ， 显 然 守 函 数 不 能 满足 这 个 性 质 。 
满足 上 面 正 交 关 系 的 多 项 式 有 勒 让 德 (Legendre ) 多 项 式 、 拉 盖 尔 ( Laguerre ) 多 项 式 和 第 一 

类 切 比 雪夫 ( Chebyshev ) 多 项 式 等 。 它 们 的 定义 分 别 如 下 。 

1 dv 
227l dx 








@ 勒 让 德 多 项 式 ，qo(x)=1，dqd,(x)= ( 妇 -1 ,=12.3.) 





人 拉 盖 尔 多 项 式 ， 记 (加 = 全- 


(ze )， (xs[0+o),n=012…) 


多 第 一 类 切 比 雪夫 多 项 式 ; T (x) = cos(marccosx)，(xe [LI] ,= 0.12…) 
例 9-7: 计算 函数 J (zj=sinx xe [0, 可 在 基 函 数组 {x,z2, 世 ] 上 的 通 近 多 项 式 系数 c, cx, co 
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分 析 : 计算 系数 矩 阵 7 和 向 量 2 的 各 元 素 值 ， 然后 通过 解 方程 组 就 可 以 得 到 系数 , cx, c; 的 数 
值 。 相 应 程序 如 下 ， 


SYmS X % 定义 符号 变量 
orqaer = [1,3,5]'， #% 轿 函 数 次 数列 向 量 
[m,n] = meshgrid(order) ; s 次 数 网 阵 
Ix = x.^[m+n]y; % 系数 矩 阵 的 被 积 函数 
Qx = sin(x)xx.^order; % 向 量 中 的 被 积 函 数 
Iv = double(intc(Ix,x,0,pi)); # 计算 积分 确定 憩 阵 元 素 值 
Qv = double(int(Qx,x,0,pi)); # 计算 积分 确定 向 量 元 素 值 
C = IvNov # 计算 待定 系数 并 输出 到 命令 窗 
fx = taylor(sin(x),6) $ sin(x) 的 5 次 麦克 劳 林 多 项 式 
上 述 程序 输出 下 面 的 结果 : 
Ce 
0.9879 
-0.1553 
0.0056 


Ex =X-1/6wx^3+1/120wX^5 


通过 比较 可 以 得 出 系数 C 与 sin x 的 泰勒 级 数 展开 吻合 。 


9.4 非 线性 拟 合 


MATLAB 提供 了 两 个 求 非 线性 最 小 二 乘 拟 合 函数 ， 即 lsqcurvefit 和 lsqnonlin。 函 数 lsqcurvefit 
的 调用 格式 如 下 : 
X = lsqcurvefit('fun',X0,XDATRA,YDRATR) ; 

参数 说 明 : X 是 拟 合 输出 的 系数 ，fun 是 非 线性 函数 模型 ， 它 的 定义 要 用 M 文件 定义 一 个 函数 
文件 。X0 是 X 的 初始 值 。XDATA 是 自 变量 的 数据 ，YDATA 是 因 变 量 的 数据 。 该 函数 在 旧版 本 中 的 
对 应 名 称 是 curvefit。 

函数 lsqnonlin 的 调用 格式 如 下 ， 
X = 1Llsqnonlin ('fun'，X0) 7 

参数 说 明 : X 是 拟 合 输出 的 系数 ，fun 是 一 个 误差 函数 ， 等 于 因 变 量 值 和 用 非 线 性 函数 模型 计 
算 在 因 变 量 处 的 值 的 差 ， 它 的 定义 也 需要 使 用 M 文件 。X0 是 X 的 初始 值 。 该 函数 在 旧版 本 中 的 对 


应 名 称 是 leastsq。 
例 9-8: 使 用 非 线性 函数 模型 。 


用 函数 y= 让 (x) = ci 十 Ce er ( 其 中 ,co, c; 是 待定 系数 ) 来 拟 合 下 面 的 数据 ， 如 图 
9.7 和 表 9.5 所 示 。 
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3.5 
3 
2.5 
2 
1.5 


1 和 4 6 8 10 
图 9.7 非 线性 数据 拟 合 
表 9.5 拟 合 数据 
X 1 2 3 4 5 6 7 8 9 10 
3.5 3.0 2.6 2.3 2.1 1.9 1.7 1.6 1.5 1.4 





EN 
上 才 的 数据 存储 在 光盘 中 的 P0528.mat 文件 中 。 


分 析 : 这 个 函数 模型 是 不 能 简化 为 线性 函数 的 ， 因 此 考虑 进行 非 线 性 拟 合 。 这 里 考虑 使 用 
lsqcurvefit 函数 与 lsqnonlin 函数 分 别 拟 合 。 
应 用 lsqcurvefit 函数 时 ， 首 先 要 定义 函数 模型 ， 根 据 表达 式 得 到 下 面 的 函数 文件 


function y=fit_model_a(x,xd); #% 定义 1sgGcurvefit 拟 合 函数 的 输入 函数 
Y=Xx(1)+X(2)x*exp(-0.02*X(3)*xd) ; s Xx(1)-->c_lL,X(2)-->c_2,X(3)-->C_3 
load P0528 # 读 入 数据 

c0 = [0,1,1]; g 初始 值 

c = Isqcurvefit('fit_model_a',c0,xdq,yd) gs 进行 非 线 性 拟 合 

Plot (xd,yd,，'r+'); g 利用 原始 数据 绘图 

holda on; 


xp = linspace(min(xd),max(xd),200); ss 生成 原始 数据 范围 内 的 等 间距 采样 点 
yp = fit_model_a(c,xp); % 利用 拟 合 系数 计算 因 变 量 数 值 


plot (xp,yp) ; g 绘制 拟 合 曲线 
输出 拟 合 结果 为 : 
媒 京 1 .0979 2.9918 11.2336 


接 下 来 使 用 函数 lsqnonlin 拟 合 上 面 的 数据 ， 此 时 fun 的 定义 应 该 是 下 面 的 格式 。 


function Y=fict_moael_b(x); s# 定义 1sanonlin 拟 合 函数 的 输入 函数 

load P0528 s 读 入 数据 

Y=yd- [x(1)+Xx(2)wexp(-0.02*X(3)*XQG) ] 7 多 xX(1)-->c_1,x(2)-->c_2,X(3)-->C_3 
主 程序 书写 如 下 : 

c0 = [0,1,1]; $% 初始 值 
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c = 1sqnonlin('fit_model_b',c0) g# 进行 非 线 性 拟 合 
输出 如 下 ; 

c =1.0979 ”2.9918 11.2336 


可 见 两 个 函数 的 输出 结果 是 一 样 的 ， 但 是 它们 拟 合 函数 的 输入 方式 不 同 。 此 外 初始 值 x0 的 选 
取 也 会 影响 结果 ， 可 以 套用 上 面 的 格式 来 解决 自己 的 问题 。 
多 元 非 线 性 拟 合 问题 可 以 利用 多 元 非 线性 回归 分 析 ， 这 部 分 内 容 将 在 第 11 章 讲 述 。 


9.5 Lagrange 插值 


在 实际 应 用 中 ， 插值 问题 的 数据 可 能 是 一 维 或 者 二 维 。 首 先 我 们 考虑 一 维 插值 问题 。 一 维 插值 
问题 的 数学 描述 是 ， 函数 》= 三 (x) 在 区 间 [aw,b] 上 有 N 个 数据 点 (xy ) 已 知 ， 此 外 函数 广 (zx) 
的 某 些 阶 导数 是 已 知 的 ， 通 过 插值 计算 确定 区 间 [a, 名 ] 上 任意 一 点 工 的 函数 值 。 

一 维 插值 的 基本 思路 是 ; 根据 函数 三 (Y) 在 区 间 [a, 如 ] 上 的 已 知 数据 点 (xy ) ， 求 解 出 一 个 
足够 光滑 、 简 单 的 函数 8 (X) 作为 函数 三 (x) 的 近似 表达 式 ， 其 中 8 (x) 被 称 为 插值 函数 。 两 个 函 
数 之 间 的 关系 是 : 8 ( 扩 )= 卫 ()=w(1<kK<N)。 

下 来 计算 函数 8 (x) 在 区 间 [a,b]( 它 也 叫做 插值 区 间 ) 其 他 点 x 的 函数 值 为 函数 (x) 的 
近似 值 。 多 项 式 函数 是 最 简单 的 函数 ， 它 常 作为 插值 基 函 数 。 

假设 8 (x) 是 一 个 满足 条 件 的 多 项 式 , 同时 它 的 最 高 次 数 不 超 过 N -1, 它 可 以 写 为 下 面 的 
形式 

8(xX)=anx +Qw IE 十 十 COX 十 外 

其 中 q,a:,…,Qw 是 待定 系数 ， 带 入 已 知 的 数据 点 ( 允 , X ) 可 以 得 到 下 面 的 方程 组 : 


N-l N-2 加 
GAN 和 十 QN-I 二 十 Q2 辐 十 四 三 为 


N-1 N-2 二 
CNXP 十 Qv_2 ”十 … 十 0 和 十 四 三 力 


QT 二 QI 十 十 CoXw 十 Gy 
由 羽 组 成 的 系数 矩阵 记 为 4， 和 矩阵 4 的 行列 式 正 好 是 范 德 蒙 ( Vandermonde ) 行列 式 。 当 交 
彼此 不 相等 时 ， 该 行列 式 不 等 于 0， 此 时 方程 组 有 唯一 解 。 所 有 系数 确定 之 后 ， 播 值 多 项 式 就 计算 
出 来 了 。 相 应 的 插值 多 项 式 8 (x) 与 函数 让 (+) 之 间 的 差 值 称 为 截断 误差 或 者 是 插值 余 项 ， 即 
R(x)=F(x)-8(xr),(xe[ab]) 
显然 x*= 冯 时 ，R(xz)=0。 
本 节 将 给 出 拉 格 朗 日 { Lagrange ) 插值 方法 ， 拉 格 朗 日 插值 的 基 函 数 是 : 
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(zx 为 小 '(x 一 汶 2(z= 六 (一 xxw ) 本 X 一 加 
( 关 一 前 儿 5 (区 三 六 4 一 逃 四， (五 一 闸 ) nz 一 贡 


显然 , 上 面 的 基 函 数 是 一 个 分 式 函 数 的 连 乘积 。 各 多 项 式 的 次 数 都 是 N 一 1 ， 同 时 满足 下 面 的 
关系 式 : 


人 = 


利用 A (x) 可 以 构造 出 下 面 的 插值 函数 8, () : 
N 
8 (2) 本 : yt (xz) 
大 =] 
显然 8, (x) 是 一 个 NW 一 1 次 多 项 式 ， 同 时 满足 插值 条 件 : 


8 (六 ) = 六 

可 见 拉 格 朗 日 插值 的 系数 求解 根据 上 面 的 公式 即 可 得 出 ， 不 需要 复杂 的 运算 。 

当 原 函数 太 (x) 在 区 间 [a, 思 ] 上 比较 光滑 时 ， 根 据 洛 尔 { Rolle ) 定理 可 以 推导 出 对 于 任意 
Xe [a,b] ， 插 值 余 项 是 ， 


R(O=7G-& CO= 大 多 ww,se[a 


N 

好 (可 < 一 二) 

如 果 jF” (E) 有 界 ， 即 F”(&) < M ， 可 以 得 到 拉 格 朗 日 插值 的 余 项 是 : 
M 

IRCols 和 low 人 zj 


在 MATLAB 中 没有 专门 的 函数 来 计算 拉 格 朗 日 插值 。Carlo Castoldi 编写 了 拟 合 拉 格 朗 日 多 项 
式 插值 程序 ， 用 户 可 以 在 MathWorks 公司 网 站 下 载 : http:/wwwmathworks.corymatlabcentral/ 
fleexchange/loadFile.do?obijectld=899&obijectType=file。 

直接 地 以 拉 格 朗 旦 插值 公式 计算 需要 用 到 三 重 循环 , 还 需要 判断 语句 。 这 里 给 出 一 种 只 用 一 重 
循环 的 程序 。 首 先 构 造 矩 阵风 ，WK ，X ， 黄 ， 即 : 


五 厂 SR 
多 = | = 疾 -| 允 | ,其 中 WK 的 第 大 行 所 有 元 素 等 于 1 
二 而 :二 


七 为 为 


为 
呈 和 (mm ,mm 
x=|:| -| 3 3， onmj=| Rn ，， 即 Mk 的 第 大 行 等 于 六 ， 其 
的 四 四 且 人 和 的 多， 一 
有 弟 | | 
他 行 与 克 对 应 行 相等 。 
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其 中 多 和 WK 的 大 小 是 NWxN ， 瑟 和 XK 的 大 小 是 Wx 工 ( 志 是 离散 数据 的 长 度 )。 然后 
对 于 前 面 提 到 的 每 一 个 插值 基 函 数 A(x) ， 计 算出 矩阵 WK 和 XK 的 点 除 运算 ， 即 “WK./ XK "。 
再 对 结果 矩 阵 的 各 列 求 连 乘积 ( 利用 prod 函数 )， 从 而 得 到 WA (x) 。 相 应 程序 如 下 ; 


function Y=1lag_interp (xX,XxQ,ydQ) ; 


SSExarmpled: 

gx=1:.1:4; g 待 求 点 数据 
gxd=1:4; g% 插值 点 自 变量 数据 
%yd=[2,1,3,4]; g% 插值 点 因 变量 数 据 


%y=lag_interp (x,xd,yd); 8# 计算 拉 格 朗 日 插值 
%p1ot (x,y,，'k' ,xd,yd, 'ko'，'markersize',10) ; $% 绘 制 曲线 


N = length(xd) # 插值 点 自 变量 数据 长 度 
L = length(x); # 待 求 点 数据 长 度 
W = repmat (xd' ,1,L); # 生成 矩阵 W 
X = repmat (x,N,1)-zepmat(xd',1,L); Y 和 矩 阵 Xt 
Y = 0; % 初始 化 y 
for k = 1:N; 
XKk = X7 
Xk(k,:) = ydq(k)*ones(1,L); s% 生成 矩阵 Xk 
Wk = XG(Kk)-W; 
Wk(k,:) = 1; g% 生成 矩阵 wk 
Y = y+prod(Xk./Wk) # 累积 求 和 
end 


参数 说 明 : 参数 x 是 待 求 点 坐标 ，xd 和 yd 是 插值 点 坐标 数据 。 这 里 要 求 x，xd，yd 都 是 行 向 
量 。y 是 待 求 点 的 因 变 量 值 。 

执行 上 述 函 数 的 例子 可 以 得 到 如 图 9.8 所 示 的 结果 , 其 中 圆圈 表示 插值 数据 点 ， 插 值得 到 的 曲 
线 经 过 插值 数据 点 ， 与 前 面 的 结论 一 致 








-- 


1 15 2 25 3 3565 4 





图 9.8 拉 格 朗 日 插值 结果 


9.6 ”Hermite 插值 
本 节 来 介绍 另 一 种 插值 方法 厄 尔 米 特 ( Hermite ) 插值 。 厄 尔 米 特 插值 公式 如 下 
PN 
y=81 (可 = 之 和 [(x-)(2cx- 闪 )+ 交 ] 
| 
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, (1<K,j<sN )， 愉 是 一 阶 导数 值 。 








xsw= 卫 玛 | as =2 


Jak 人 一 如 jz 
可 见 厄 尔 米 特 播 值 表达 式 比 拉 格 朗 日 插值 要 复杂 得 多 。 其 中 多 项 式 的 最 高 次 数 是 2N -1， 因 
此 厄 尔 米 特 插值 的 光滑 性 比 拉 格 朗 日 插值 要 好 。 
与 拉 格 朗 日 插值 编写 类 似 ， 利 用 一 重 循环 根据 厄 尔 米 特 插值 公式 编写 如 下 程序 : 


function Y=hermite_interp(x,xdq,yd,dy) 


#% Hermite 插值 
N = length(xd) g 计算 插值 点 数据 长 度 
LDL = Length(x); % 计算 待 求 点 数据 长 度 
X = Tepmat (x,N-1,1)， % 扩展 为 矩阵 X 
yY = 0; _ % 初始 化 y 
for k = 1:N7 
XLt = Xd; 
xt(k) = []; % 去 掉 不 满足 条 件 的 求 和 求 积 项 
h=proG(1./ [xdQ(Kk)-xt]); 
h=hx*prod( [X-repmat (xt'v1,D)]); 
h = h.^2; % 计算 h 乘积 因子 
a = sum(1./[xa(k)-xt]);  $% 计算 a 乘 积 因子 
= Yy+h.*[{(xd(k)-x)*(2*arya(k)-dy(k))+yd(k)]; % 对 y 累 加 
二 


参数 说 明 : 参数 x 是 待 求 点 坐标 , xd 和 yd 是 插值 点 坐标 ，dy 是 对 应 一 阶 导数 值 。 这 里 要 求 x， 
xd，yd，dy 都 是 行 向 量 。y 是 待 求 点 的 因 变 量 值 。 
利用 下 面 这 段 程序 ， 调 用 上 面 的 函数 文件 hermite_interp.m 进行 厄 尔 米 特 插值 


x=1:.1:4; g% 待 求 点 数据 
xd=1:4; s 插值 点 自 变量 数据 
ydq=[2,1,3,4]， % 插值 点 因 变 量 数 据 
rand('state', 0) gs 设置 随机 数 状态 
dy = rand(1,4)-0.5; g% 产生 随机 的 dy 值 
Yy=hermite_interp (x,xd,yda,dy); g 插值 计算 
plLot (x,y, 'k',xd,yd, 'ko''markersize',10)， g% 绘图 


上 述 程序 执行 结果 如 图 9.9 所 示 。 与 拉 格 朗 日 插值 不 同 的 是 ， 厄 尔 米 特 插值 需要 已 知 一 阶 导数 
值 。 








15 25 3 35 4 
图 9.9 厄 尔 米 特 插值 结果 
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9.7 ” 样 条 插值 


利用 拉 格 朗 日 插值 和 厄 尔 米 特 插值 的 时 候 遇 到 高 次 多 项 式 插 值 时 会 出 现 收敛 性 和 稳定 性 变 差 
现象 ， 结 果 不 理想 ， 导 致 龙 格 ( Runge ) 现象 。 该 现象 最 早 是 Runge 在 19 世纪 初 发 现 的 ， 他 计算 
了 区 间 [-11] 上 的 N 个 点 等 间距 插值 ， 使 插值 多 项 式 在 各 个 插值 点 与 函数 y= 1/(1+25x2) 相等 。 


在 W 较 大 时 ,插值 多 项 式 在 区 间 中 部 趋 于 函数 》= 1/(1 十 25x2?) , 但 是 在 区 间 两 侧 , 即 | 对 > 0.726 ， 


插 { 生 多项式 发 生 严重 发 散 。 
下 面 用 拉 格 朗 目 插值 和 厄 尔 米 特 插值 计算 这 个 插值 问题 。 主 要 程序 如 下 ( 略 去 绘图 部 分 ): 
N = 5; # 设 定 采 样 点 数 
xd = linspace{(-1,1,N); g 产生 插值 点 
yq = 1./(1+25*xd.^2) 1; g% 产生 插值 点 
x = linspace(-l,1,200); s 获得 待 求 点 坐标 
Y = 1./(1+25*X.^2) 1; gs 正确 的 结果 
YL = lag_interp(x,xd,yd) ; g 拉 格 朗 日 插值 
randG('State',0): gs 设 定 随机 数 状态 
dy = rand(1,N)-0.5; g 产生 随机 的 一 阶 导数 


yH = hermite_interp(x,xd,yd,dy); #% 进行 厄 尔 米 特 插值 


ESA 
光盘 中 的 完整 程序 名 是 runge_test_m。 
-人 


9.10 中 的 实 线 是 根据 函数 y= 1/(1+25Sx?) 表达 式 计 算 的 曲线 ， 虚 线 是 插值 结果 ， 圆 轩 表 
示 播 值 点 。 可 以 发 现 采 样 点 数 等 于 13 时 ， 两 种 插值 多 项 式 在 区 间 两 侧 的 结果 明显 偏离 正确 结果 。 
中 间 部 分 与 正确 值 比较 吻合 。 因 此 ， 如 果 函 数 表 达 式 未 知 ， 是 无 法 确定 使 用 多 少 插值 数据 点 是 合适 
的 。 








(a) 








治 0 1 01 0 
(c) (d) 

图 9.10 ” 龙 格 现象 : (a) 和 (c) 是 拉 格 朗 日 插值 ，(b) 和 (d) 是 厄 尔 米 特 插值 
上 述 实例 说 明 使 用 高 次 多 项 式 插值 是 很 危险 的 ,因此 在 实际 应 用 中 应 尽量 避免 使 用 高 次 多 项 式 


插值 。 这 就 启发 我 们 使 用 少 的 插值 数据 来 完成 插值 计算 ， 从 而 对 于 大 量 数据 而 言 ， 就 产生 了 分 段 插 
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值 的 想法 。 把 区 间 [a,b] 划分 为 多 个 子 区 间 ， 在 每 个 子 区间 内 进行 分 段 的 低 次 多 项 式 插值 。 自 区 间 
的 划分 方法 可 以 根据 具体 问题 的 要 求 选 择 。 分 段 插值 具有 较 好 的 全 域 收敛 性 和 稳定 性 , 而 且 算法 简 
兰 ， 介 的 玉 人 到 业 的 光 衣 性 常用 的 分 段 插值 有 两 类 ， 一 类 是 分 段 线性 插值 ， 另 一 类 是 样 条 

分 段 线性 插值 的 做 法 是 ， 认 为 区 间 [ab] 上 的 连续 函数 F(x) 在 N 个 节点 
( Q=< 罗 <…<x = 已 ) 上 的 函数 值 是 六 = 大 (六 )，( 1< 大 < N )。 依 次 连接 相 邻 的 插值 
点 可 以 得 到 N -1 条 线段 组 成 的 一 条 折线 。 把 这 条 折线 称 为 被 插 函 数 矿 (x) 的 分 段 线性 插值 函数 ， 
记 为 8 (x) ， 可 以 证 明 函 数 S (x) 满足 下 面 3 个 性 质 : 


@ SS(x) 可 以 分 段 表 示 ， 在 每 个 子 区 间 [x，, 交 ] 上 ， 它 是 线性 函数 ， 即 : 
S(r)= yi 二 一 十 凑 二 一 
取 -1 一 区 一 攻 -1 


人 满足 插值 条 件 S(x)=yw, 1<k<N。 
多 8(x) 在 区 间 [a,b] 上 ， 但 是 不 能 保证 处 处 可 导 。 


， XE [ 雹 2 二] 











如 果 定 义 如 下 基 函 数 : 
一 ,7e [xx ] and1<K<N 
你 一 区 -1 
区 一 区 il 

玉 (r)=1 一 一 ,xze[ 人 [xi]andl<sk<N 
区 一 区 1 
0， otherwise 


只 
基于 这 些 基 函 数 8 (x) 可 以 表示 为 S(z)= > yz (xz)。 
大 =] 
当 函 数 让 (x) 在 区 间 [a,b] 上 连续 时 ， 分 段 线性 插值 函数 8$(x) 具有 很 好 的 收 健 性 ， 即 
limS(xz)=8(5) ，xe [wb] ， 户 = max{xx 一 到 -} ( 最 大 子 区 间 长 度 )。 


1<k<sN 
上 述 关系 可 以 根据 微 积分 基本 知识 证 明 。 同 时 当 (x) 在 区 间 [a,b] 上 有 二 次 连续 导数 时 ， 对 
Vxe [oa,b] 有 插值 余 项 关系 |R(zj|=| 7 (9)-S(ls 写 忆 ， M = aaxg{ls (xz 中 。 
用 分 段 插值 函数 8 (x) 计算 区 间 [w,b] 上 的 插值 结果 时 ， 只 是 要 用 到 包含 X 的 子 区 间 端 点 值 ， 
与 其 他 的 节点 无 关 ， 而 且 计算 过 程 就 是 通过 平面 上 两 点 坐标 求 直线 表达 式 的 方法 。 根 据 插值 余 项 可 
知 ，N 越 大 ， 即 户 越 小 ， 插 值 误差 越 小 。 实 际 中 用 数据 点 进行 插值 计算 时 ， 使 用 分 段 线性 插值 就 可 
以 满足 要 求 了 ， 如 数学 和 物理 中 用 到 的 特殊 函数 数值 表 、 概 率 论 与 数理 统计 中 的 概率 分 布 函数 表 都 


是 使 用 分 段 线性 得 到 的 。 
MATLAB 提供 了 专门 计算 分 段 线性 插值 的 函数 interp1， 该 函数 的 完整 调用 格式 为 : 
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Yi = interpl(xX，y，Xi，'method' ，'extrap'):; 
Yi = interpl(x,Yy,xi，'method' ,extrapval) 

参数 说 明 : x 和 y 是 插值 点 ，x 是 待 求 点 坐标 ，y 是 待 求 点 因 变量 值 。 参 数 method 可 以 选择 的 
值 有 : nearest 表示 最 近邻 插值 ，linear 表示 线性 插值 ( 其 为 默认 值 )，spline 表示 三 次 样 条 函数 插 
值 ，pchip 表示 分 段 三 次 Hermite 插值 ( 同时 pchip 自身 也 是 一 个 完成 分 段 三 次 Hermite 插值 的 
MATLAB 函数 )，cubic 表示 立方 插值 ，v5cubic 表示 在 MATLAB 5.0 中 的 三 次 插值 。 其 中 对 于 超出 
x 范围 的 xi 分 量 ， 使 用 nearest，linear 和 v5cubic 的 插值 算法 ， 将 返回 NaN。 

对 其 他 的 方法 ,interp1 将 对 超出 的 分 量 执行 外 插值 算法 。 对 于 超出 x 范围 的 x(g) 中 的 分 量 将 执 
行 特殊 的 外 插值 法 extrap。 参 数 extrapval 的 意思 是 确定 超出 x 范围 的 xi 分 量 其 外 插 点 的 因 变 量 值 
等 于 extrapval， 其 值 用 户 可 以 自行 定义 。 经 过 试验 发 现 ，x 和 y 的 大 小 排列 顺序 不 影响 插值 结果 ， 
只 要 保证 x 和 y 个 数据 准确 对 应 即 可 。 

例 9-9: 用 不 同 的 插值 方法 计算 函数 (x)= 姑 cosx 在 区 间 [0,5] 上 的 分 段 插 值 。 

具体 程序 如 下 : 


x = 0:.5:5; gs 生成 插值 点 自 变量 数据 
gN = length(x)， sg 获得 插值 数据 长 度 
s% IKk = randperm(N) ; # 产生 一 个 随机 排序 序列 
备 X = X(Ik)y; #% 对 x 随 机 排序 
Y = x.^2.wcos(x) % 计算 插值 点 因 变 量 数值 
xi = 0:.02:5; # 计算 待 求 点 自 变量 数据 
gxi = fliplr(xi); g% 左右 翻转 向 量 xi 
method = {'nearest','linear','spline','pchip','cubic','v5cubic'};  s# 插值 方法 名 数 
组 ， 
Eoz kk = 156; 
subplot (3,2,Kk); % 分 布 子 图 顺序 _ 
Yi = interpl(x,y,xivchar(method(k) ))， g 用 不 同方 法 分 段 插值 
Yg = xi.^2.xcos(Xxi)，; g 计算 理论 值 
plLot (x,y，'ko'vxiyi'k:'xiygk')y g% 画 数据 点 及 绘制 曲线 
text (2,5,char (method(k)),'Fontsize',16); ， % 标注 插值 方法 
set (gca, 'Fontsize' ,14); % 重 置 坐标 轴 字 体 
xlim( [min(x),max(x)]); # 设 定 横 轴 范围 
end 


程序 输出 结果 如 图 9.11 所 示 。 其 中 虚线 是 插值 结果 ， 实 线 是 理论 曲线 ， 圆 园 表 示 插 值 点 。 因 
为 播 值 方法 是 nearest， 对 于 x 点 ， 其 插值 结果 取 据 x 最 近 的 插值 点 的 因 变 量 数值 ， 所 以 该 函数 得 
到 的 结果 在 变化 大 的 地 方 看 着 像 合 阶 。 分 段 线性 插值 是 一 条 由 线段 组 成 的 折线 。 另 外 4 种 插值 方 
法 得 到 的 结果 是 比较 光滑 的 曲线 。 


cc 从 图 9.11 可 以 发 现 选 用 spline 和 v5cubic 方法 进行 播 值 时 ， 插 值 结 果 和 理论 结果 重 
注 高 合 得 非常 好 。 此 外 上 面 的 程序 注释 掉 的 语句 可 以 测试 xX 和 y 数据 随机 排列 时 对 插值 结 
浊 果 的 影响 ， 以 及 xi 数据 左右 翻转 后 对 结果 的 影响 。 用 户 可 以 自己 取消 注释 进行 观察 。 


前 面 介绍 的 分 段 线性 插值 函数 ， 在 节点 处 的 一 阶 导 数 一 般 情况 下 是 不 存在 的 ， 且 光滑 性 不 高 ， 
这 些 限 制 了 该 插值 方法 在 诸如 机 械 设 计 等 领域 ( 即 希望 插值 曲线 光滑 ) 中 的 应 用 。 许 多 工程 技术 中 
提出 的 计算 问题 对 插值 函数 的 光滑 性 有 较 高 要 求 ， 如 飞机 的 机 翼 外 形 ， 内 燃 机 的 进 、 排 气门 的 凸轮 
曲线 等 ， 都 要 求 曲线 具有 较 高 的 光滑 度 ， 不 仅 要 连续 ， 而 且 要 有 连续 的 曲率 。 在 船舶 、 飞 机 零件 等 
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设计 中 ， 对 于 已 知 的 一 些 数据 点 (六 ,六 ) , 机 械 设 计 人 员 的 一 般 做 法 是 : 先 将 这 些 数据 点 画 在 平面 
图 纸 上 ， 再 用 一 根 富有 弹性 的 弯曲 细 直 条 ( 称 为 样 条 )， 使 其 一 边 通过 这 些 数据 点 ， 用 压 铁 固定 细 
直 条 的 形状 ， 沿 样 条 边沿 绘 出 一 条 光滑 曲线 。 实 际 需 要 用 几 根 样 条 线 分 段 完成 上 述 工作 , 如 此 可 以 
保证 相 邻 样 条 在 连接 处 也 保持 光滑 。 







nearest 





2 





图 9.11 分 段 线性 插值 结果 

根据 力学 知识 ， 如 此 画 出 的 曲线 在 相 邻 两 数据 点 之 间 实 际 上 是 次 数 不 高 于 3 的 多 项 式 ， 在 整 

个 区 间 上 有 连续 的 曲率 。 对 机 械 设计 人 员 用 样 条 画 出 的 曲线 进行 数学 抽象 , 从 而 导出 了 样 条 插值 函 
数 的 概念 。 定 义 在 区 间 [a, 忆 ] 上 的 分 段 函数 8 (x) ， 如 果 满足 下 面 的 条 件 : 


@ 3S(x) 在 各 个 子 区 间 [x ,xx ] 上 都 是 3 次 多 项 式 。 
@ (zx) 在 整个 区 间 [a,2] 上 存在 连续 的 二 阶 导 数 。 


那么 函数 S{x) 就 是 区 间 [a,] 上 的 一 个 3 次 样 条 插值 函数 。 类 似 地 ， 可 以 定义 三 次 样 条 插值 
函数 。 样 条 函数 的 主要 优点 是 它 的 光滑 程度 较 高 ， 保 证 了 插值 函数 二 阶 导 数 的 连续 性 ， 对 于 三 阶 导 
数 的 间断 ， 人 类 的 眼睛 已 难以 辨认 了 。 样 条 函数 是 一 种 隐 式 格式 ， 最 后 需要 解 一 个 方程 组 ， 它 的 工 
作 量 大 于 多 项 式 拉 格 朗 日 插值 或 者 厄 尔 米 特 插值 等 显 式 插值 方法 。 

在 插值 计算 之 前 ，N 个 插值 点 是 已 知 的 。 在 每 个 子 区 间 上 有 4 个 待定 参数 ( 即 3 次 多 项 式 的 
系数 )， 因 此 未 知 参数 的 数目 是 4N 。 而 在 每 个 子 区 间 上 ， 根 据 插值 条 件 可 以 由 两 端点 得 到 两 个 方 
程 ， 这 样 得 到 的 方程 数目 是 2WN 个 。 此 外 根据 光滑 性 ， 在 相 邻 的 两 个 子 区 间 的 共同 端点 处 ， 一 阶 和 
二 阶 导数 连续 ， 可 以 得 到 2(N -1) 个 方程 。 至 此 得 到 方程 总 数目 是 4N -- 2 。 为 了 保证 参数 的 唯 
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一 性 , 还 需要 再 找到 两 个 方程 。 常 用 的 方法 是 对 整个 区 间 的 端点 除 函数 值 外 再 附加 要 求 ， 这 就 是 所 
谓 的 边界 条 件 。 根 据 实际 问题 的 不 同 ，3 次 样 条 插值 常用 到 下 列 3 类 边界 条 件 。 
人 给 定 一 阶 和 导数 : S (da)= 史 ，8 (0) = yw ， 即 预先 给 定 4 和 旅 处 的 一 阶 导 数值 。 由 这 种 
边界 条 件 建立 的 样 条 插值 函数 称 为 (x) 的 完备 三 次 样 条 插值 函数 。 当 允 = yy = 0 时 ， 
样 条 曲线 在 端点 处 呈现 水 平 状态 。 如 果 允 和 %W 不 确定 ， 还 可 以 认为 8“(x) 在 端点 处 允 和 
yw 近似 相等 ， 通 过 两 端 8 点 ， 用 为 ,加 ，, 因 ,入 和 N_iw_2,Xw_lXN 分 别 进行 3 次 拉 格 朗 
日 插值 得 到 忆 (xz) 和 五 (xz)。 令 8 (a)= 尼 (@ 和 8 (= 改 (b)。 
用 拉 格 朗 日 播 值得 到 一 阶 导数 的 方法 称 为 拉 格 朗 日 三 次 样 条 插值 。 
人 给 定 二 阶 导数 : S (aq) = 办 ，S (DJ)= yw。 当 史 =JAw =0 时 ,这样 的 边界 条 件 被 称 为 
自然 边界 条 件 。 
多 周期 性 边界 条 件 ; 当 函 数 太 (x) 是 一 个 周期 为 心 一 a 的 周期 函数 时 ， 自 然 地 可 以 认为 8 (x) 
也 是 一 个 周期 为 b-a 的 周期 函数 。 因 此 两 端点 处 的 一 阶 和 二 阶 导 数 相 等 ， 即 
S“(a)=S (和 S"(a)=S 7 (D)。 
上 述 3 种 边界 条 件 都 可 以 得 到 两 个 方程 ， 加 上 前 面 提 到 的 4N 一 2 个 方程 ， 就 可 以 得 到 4N 个 
独立 方程 ， 来 唯一 地 确定 三 次 插值 函数 的 4N 未 知 参数 。 
如 果 三 次 样 条 插值 函数 没有 边界 条 件 ， 最 常用 的 办 法 是 采用 非 扭 结 ( not a knot ) 条 件 ， 即 设 
定 第 1 个 和 第 2 个 3 次 多 项 式 的 三 阶 导数 相等 ,同时 设 定 最 后 两 个 3 次 多 项 式 的 三 阶 导 数 也 相等 。 
在 子 区 间 [x，,,xx ] 上 的 三 次 样 条 插值 函数 表达 式 是 : 
3 了 2 2 
S (zj=-M 全 -> -和 Wi] -和 
其 中 户 = 和 一 和 ，，M， 和 AM 分别 为 忆 , 和 已 处 的 2 次 导数 ( 其 表达 式 比较 复杂 ， 这 里 略 
去 )。 在 子 区 间 [x，,,x  ] 上 的 另外 一 种 表达 式 是 : 


S(x)= [42 2 和 人) 


xz-X (xz= 国 下 (元 一 区 小 

+ 人 [122 三 rm (xz 一 ) 

其 中 及 = 和 一 所 ，，7m 和 7 分别 为 入 ,4 和 六 处 的 1 次 导数 ( 其 表达 式 比较 复杂 ， 这 里 略 
去 )。 

当 函 数 jJlxz) 存 在 4 阶 导数 时 ， 样 条 插值 函数 的 误差 估计 是 

四国 -8( 吉 <cw na=012 xs[a 中 其 中 co=5/384 ，a=1/24 ，c=3/8 ， 


wa 人 eol 


xE[a.b] 


MATLAB 中 提供 了 实现 三 次 样 条 插值 的 函数 ， 即 interp1，spline 和 csape， 它 们 的 调用 格式 如 下 : 





Yi = interpl(X，Y，Xi)37 
YY = 8Spline(X，Y，XXx) 7 
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pPP = csape (X，Y，condqs，valconds) 


参数 说 明 : x 和 y 是 已 知 的 插值 点 ，x 是 待 求 点 的 自 变量 值 。 函 数 csape 是 专门 的 三 次 样 条 插 
值 函 数 ， 输 出 参数 pp 是 一 个 结构 体 ， 需 要 调用 函数 ppval 来 计算 各 因 变 量 的 数值 。 

参数 conds 表示 选用 的 插值 边界 条 件 ， 其 默认 的 插值 方法 是 拉 格 朗 日 边界 条 件 ， 具 体 取 值 为 : 
complete 或 者 clamped 表示 边界 为 一 阶 导 数 ， 端 点 的 一 阶 导数 值 在 参数 valconds 中 给 出 , 如 果 参 
数 valconds 缺 省 ， 此 时 就 是 拉 格 朗 上 日 边界 条 件 ; not-a-knot 表示 非 扭 结 边界 条 件 ; periodic 表示 周 
期 性 边界 条 件 ，second 表示 边界 为 二 阶 导 数 ， 导 数值 由 参数 valconds 给 出 ， 如 果 参 数 valconds 
缺 省 ， 二 阶 导数 的 默认 值 是 [0,.0]， 即 自然 边界 条 件 。variational 设置 边界 二 阶 导 数 等 于 [0,0] ( 就 是 
自然 边界 条 件 ) 

对 于 一 些 特殊 的 边界 条 件 ， 可 以 通过 参数 conds 取 一 个 1X2 的 向 量 来 表示 ， 其 中 元 素 取 值 为 
0，1，2。conds()=j 表示 设置 为 j 阶 导数 ， 该 向 量 的 第 一 个 值 对 应 于 左边 界 ， 第 二 个 值 对 应 于 右 
边界 。 相 应 导数 值 由 valconds 给 出 。 利 用 函数 csape 可 以 解决 不 同 边界 条 件 的 插值 问题 。 

例 9-10: 利用 csape 函数 对 下 面 的 数据 进行 样 条 插值 计算 ， 如 表 9.6 所 示 。 


表 9.6 样 条 插值 计算 数据 


X 1 2 3 4 5 6 
yY -0.48 1.94 3.29 6.16 7.07 7.63 


分 析 : 比较 不 同 的 边界 条 件 进行 插值 的 计算 。 程 序 如 下 ， 


X = 136; 

Y= [1.98 3.28 6.16 7.07 5.14 4.66]: 

Xx = 1inspace (min(x),max(x),200); 

Subplot (221); 

pp = csape(x，Y，'comlete'); gs 拉 格 朗 日 边界 条 件 
YYy = ppval(pPpP,xx) ; s 计算 插值 曲线 数据 
Plot (x,y，!ko' xxyYyYy，IKk') 7 g 绘图 . 

Subplot (222) ; 

ppP = csape(x，Y，'not-a-knot'); 当 非 扭 结 边界 条 件 
YY = ppval (PPp,xx) ; gs 计算 插值 曲线 数据 
plot (x,y，'ko' xx,yy，'k'); sg 绘图 

Subplot (223) ; 

pp = csape(x，Y，'periodic')， % 周期 性 边界 条 件 
yyY = ppval (pp,xx); # 计算 插值 曲线 数据 
DP1lot (x,y，'ko' xxvyy，'k')， % 绘图 

Subplot (224) ; 

pp = csape(x，Y，'second'); #% 自然 边界 条 件 
YYy = ppval(pp,xx); # 计算 插值 曲线 数据 
plot (x,y，'ko' xx,yy，'K'5); g% 绘图 


9.12 显示 了 不 同 边 界 条 件 下 的 插值 结果 ， 我 们 发 现 几 种 边界 条 件 的 结果 整体 相似 ， 但 是 细 
微 的 差别 还 是 存在 的 ， 可 以 根据 自己 的 问题 来 选择 边界 条 件 。 

在 MATLAB 样 条 工具 箱 中 提供 了 样 条 的 建立 、 操 作 等 功能 。 其 中 的 样 条 函数 ， 根 据 前 缀 可 以 分 
为 4 类 : cs* 是 三 次 样 条 、pp* 是 分 段 多 项 式样 条 ( 系数 为 t^n 的 系数 入 sp* 是 日 样 条 ( 系数 为 基 函 
数 B_n^ 人 it 的 系数 和 rp* 是 有 理 B 样 条 。 下 面 把 相关 函数 整理 为 一 个 表格 ， 如 表 9.7 所 示 。 
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拉 格 朗 日 边界 条 件 非 扭 结 边界 条 件 


~ NuwohP mon、\o 
一 Rubmwmom nn、 am 





周期 性 边界 条件 





图 9.12 样 条 插值 结果 


表 9.7 样 条 函数 表 


分 类 函数 名 说 明 
csape 生成 给 定 约束 条 件 下 的 三 次 样 条 函数 
csapi 插值 生成 三 次 样 条 函数 
三 次 样 条 函数 csaps 平滑 生成 三 次 样 条 函数 
CScvn 生成 一 条 内 插 参 数 的 三 次 样 条 曲线 
getcurve ”动态 生成 三 次 样 条 曲线 
ppmak 生成 分 段 多 项 式样 条 函数 
分 段 多 项 式样 条 函数 ppual 计算 在 给 定点 处 的 分 段 多 项 式样 条 函数 值 
spap2 用 最 小 二 乘法 拟 合生 成 日 样 条 函数 
spapi 插值 生成 B 样 条 函数 
spaps 对 生成 的 B 样 条 曲线 进行 光滑 处 理 
B 样 条 函数 ， spcol 生成 B 样 条 函数 的 配置 矩阵 
Spcrv 生成 均匀 划分 的 B 样 条 函数 
spmak 生成 日 样 条 函数 
rpmak 生成 有 理 样 条 函数 
有 理 样 条 函数 rsmak 生成 有 理 样 条 函数 
rsval 计算 在 给 定点 处 的 有 理 样 条 函数 值 
fmbrk 返回 样 条 函数 的 某 一 部 分 ( 如 断 点 或 系数 等 ) 
fn2fm 把 一 种 形式 的 样 条 函数 转化 成 另 一 种 形式 的 样 条 函数 
样 条 操作 函数 fncemb 。 。 对 样 条 函数 进行 算术 运算 
fnder 求 样 条 函数 的 微分 ( 即 求 导数 ) 
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( 续 表 ) 

分 类 函数 名 说 明 

fndir 求 样 条 函数 的 方向 导数 

fnint 求 样 条 函数 的 积分 

fnjmp 在 间断 点 处 求 函数 值 
样 条 操作 函数 fnplt 画 样 条 曲线 图 

fnrfn 在 样 条 曲线 中 插入 断 点 

fntir 生成 tarylor 系数 或 taylor 多 项 式 

fnval 计算 在 给 定点 处 的 样 条 函数 值 


aptknt 求 出 用 于 生成 样 条 曲线 的 节点 数组 
augknt 在 已 知 节点 数组 中 添加 一 个 或 多 个 节点 
aveknt 求 出 节点 数组 元 素 的 平均 值 
brk2knt 增加 节点 数组 中 节点 的 重 次 
样 条 曲线 端点 和 节点 处 ”chbpnt 求 出 用 于 生成 样 条 曲线 的 合适 节点 数组 
理 函 数 knt2brk 从 节点 数组 中 求 得 节点 及 其 重 次 
knt2mlt 从 节点 数组 中 求 得 节点 及 其 重 次 
newknt 对 分 段 多 项 式样 条 函数 进行 重 分 布 
opitknt 求 出 用 于 内 插 的 最 优 节点 数组 
sorted 求 出 节点 数组 的 元 素 在 另 一 节点 数组 中 属于 第 几 个 分 量 


拉 格 朗 日 插值 函数 在 整个 插值 区 间 上 有 统一 的 解析 表达 式 ， 其 形式 关于 节点 对 称 ， 光 滑 性 好 。 
但 缺点 同样 明显 ， 这 主要 体现 在 高 次 插值 收敛 性 差 ( 龙 格 现象 ; 增加 节点 时 前 期 计算 作废 ， 导 致 
计算 量 大 ， 一 个 节点 函数 值 的 微小 变化 ( 观测 误差 存在 ) 将 导致 整个 区 间 上 插值 函数 都 发 生 改变 ， 
因而 其 稳定 性 差 等 。 因 此 拉 格 朗 日 插值 法 多 用 于 理论 分 析 , 在 采用 拉 格 朗 日 插值 方法 进行 插值 计算 
时 ， 通 常 选 取 最 高 插值 次 数 小 于 7。 厄 尔 米 特 插值 方法 的 光滑 性 要 高 于 拉 格 朗 日 插值 ， 但 是 同样 存 
在 着 龙 格 现象 。 因 此 这 两 种 插值 方法 在 实际 中 应 用 较 少 。 

分 段 线性 插值 函数 ( 仅 连续 ) 与 三 次 样 条 插值 函数 ( 二 阶 导 数 连 续 ) 虽然 光滑 性 差 ， 但 它们 都 
克服 了 拉 格 朗 日 插值 函数 的 缺点 ， 不 仅 收 和 敛 性 、 稳 定性 强 ， 而 且 方 法 简单 实用 ， 计 算 量 小 。 因 而 它 
们 的 工程 应 用 十 分 广泛 。 

这 里 补充 使 用 快速 Fourier 算法 做 一 维 插值 的 方法 。 这 里 认为 被 插 函 数 是 周期 函数 ， 计 算 函 数 
值 的 傅 里 叶 变 换 ， 然 后 使 用 更 多 的 点 进行 傅 里 时 变换 的 逆 变 换 ， 函 数 的 使 用 格式 如 下 : 


Y=incterpft (xX,n) 


其 中 x 是 已 知 函 数值 ， 要 求 是 等 距 的 点 ，n 为 返回 等 间距 点 的 个 数 ( n 要 求 不 小 于 x 的 长 度 )jo 


9.8 ”二 维 插值 


前 面 讲 的 插值 是 一 维 插值 ， 而 实际 中 可 能 遇 到 自 变 量 数据 是 两 个 自由 度 ， 即 二 维 插值 问题 。 二 
维 插值 问题 的 数学 表述 是 : 已 知 二 元 函数 丰 (x, ?) 在 和 矩形 区 域 ( Xe [q,b]，ye [c,d] ) 内 系列 点 
(x,，y ) 的 函数 值 zu, ， 计 算 该 矩形 区 域内 任意 一 点 的 值 近似 函数 三 (x) 。 

根据 数据 点 ( 蕊 ,，》， ) 分 布 的 情况 ， 常 见 的 二 维 插值 问题 可 分 为 两 种 情况 ,网 格 节点 插值 和 散 
乱 节点 插值 。 其 中 网 格 节点 插值 适用 于 节点 比较 规范 的 情况 ,， 即 在 包含 所 给 节点 的 矩形 区 域内 , 节 
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点 由 两 组 平行 于 坐标 轴 的 直线 的 交点 组 成 。 散 乱 节点 插值 适用 于 一 般 的 节点 ,多 用 于 节点 不 太 规范 
( 即 节点 为 两 组 平行 于 坐标 轴 的 直线 的 部 分 交点 ) 的 情况 。 下 面 分 别 介绍 这 两 种 情况 的 插值 方法 。 
9.8.1 网 格 节点 插值 法 


常见 的 插值 方法 有 下 面 3 种 方式 。 
镶 分 片 线性 插值 


分 片 线性 插值 对 应 于 分 段 线形 插值 ， 思 想 是 把 考虑 区 域 分 割 为 多 个 子 和 矩形 ， 即 以 (xy ) ， 
(加 


个 思 )，(xs ra) 和 (xys ) 为 项 点 的 小 矩形 六 。 上 进行 线性 插值 ,相应 的 分 片 插值 函数 是 ， 
当 xe[x,z,], 且 ye [KGz- 加 )+] 时 ， 


8 (区 了)= zoomd(znsm 一 zoom](z 一 加 )+(zusunrl 一 znttm)(7 一 芒 ); 
当 xe [xzus]， 且 ye [大 (xz 一 如 )+ 世 ,si 时， 
8 (zy) 二 Zmm +( zl 二 如 六) 半 ( 翅 al 一 zun)(y 一 多 )。 
其 中 大 =[ 一 加 ]/[x 一 如 ] ， 即 以 直线 = 大 ( 关 一 加 )+ 分 割 矩 形 为 两 部 分 ， 分 别 用 
不 同 的 线性 函数 插值 。 可 见 分 片 线性 插值 函数 8 (x, y) 连 续 ， 但 光滑 性 不 好 。 
急 分 片 双 线 性 插值 


分 片 双 线 性 插值 曲面 由 一 片 片 空间 二 次 曲面 构成 ， 其 分 片 函数 表达 式 是 : 
8(xy)=(4x+ 民 )(Cy+D)， (xy)Em， 


其 中 4， 妨 ，C 和 万 是 待定 系数 ， 它 们 可 以 根据 小 矩 形 的 4 个 顶点 唯一 确定 ， 然 而 在 相 邻 小 
和 矩形 的 4 条 边 ( 不 含 定点 ) 上 不 能 保证 连续 。 
争 分 片 双 三 次 样 条 插值 


分 片 双 三 次 样 条 插值 函数 在 各 个 小 矩形 rn。。 上 的 表达 式 如 下 : 
8 人 (zy) =(4 二 Ar 二 岂 妇 )( 肋 十 妃 y 十 盏 六 + 忌 六 ) 


待定 系数 4 ，B，( 大 =1,2,3,4 ) 可 以 由 子 和 矩形 4 个 顶点 的 z 值 及 插值 函数 8 (x, y) 在 并 和 
?方向 的 光滑 性 ( 即 偏 导数 8 ，87 ，8” 和 81 连续 ) 和 相应 的 边界 条 件 唯一 确定 。 
9.8.2 ”散乱 节点 插值 


常用 的 方法 是 反 距 离 加 权 平均 法 ( 或 者 称 为 Shepeard 法 )j。 其 基本 思路 是 ， 在 点 (xy) 处 ， 


定义 其 插值 函数 的 函数 值 为 点 (Xio, yn ) 的 函数 值 zw， 按 (z, 》) 与 (xi, yn ) 之 间 的 距离 的 某 种 形 
式 反比 例 作为 权重 因子 的 加 权 平均 。 如 ， 


7Tmn =0 


Zn 
8 (xy)= > Wo,(ry)zwn mns0 
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其 中 心 v = (zx 一 如) +(7 一 久 ) ， Wo 人 (5 人 = 之 二 这 样 定义 的 插值 函 


数 是 与 全 局 相关 的 , 对 曲面 8 (x, y) 上 任 一 点 做 数值 计算 都 要 涉及 到 全 体 已 知 数据 ,因而 在 已 知 数 
据 量 大 的 情况 下 计算 量 相当 大 ， 而 且 插值 曲面 在 节点 (Xu, y, ) 处 不 光滑 。 即 使 如 此 ， 由 于 该 方法 
思想 简单 ， 在 此 基础 上 还 可 以 有 种 种 改进 方法 。 

MATLAB 中 提供 了 函数 interp2 和 csape 来 实现 二 维 插值 。 函 数 interp2 的 调用 格式 如 下 : 


zi = interp2(xX，Yy，ZzZ，Xi，Yyz，'method')， 


参数 说 明 : zi 是 返回 的 插值 矩阵 x 和 y 是 长 度 分 别 为 M 和 N 的 向 量 ， 对 应 着 已 知 点 (xy )。 
Zz 是 一 个 矩阵， 对 应 于 zw we。 method 的 用 法 和 意义 同 函数 interp1。 
如 果 进 行 三 次 样 条 插值 ， 可 以 使 用 函数 csape， 其 使 用 方法 是 : 


PP = csape({x,Yy}j,z,({'methodl1'，,，'method2'}，condsval) 


参数 说 明 : pp 是 一 个 结构 体 ， 其 中 包含 样 条 函数 的 系数 。x 和 y 是 向 量 ， 表 示 已 知 点 。z 是 已 
知 点 的 函数 值 。method1 和 method2 可 以 分 别 对 x 和 y 方向 设置 边界 条 件 ， 具 体 含义 可 以 参见 前 
面 一 维 插值 的 介绍 。 

例 9-11: 在 一 次 对 砂 堆 形 状 测量 的 时 候 得 到 部 分 高 度 信息 如 表 9.8 所 示 。 


表 9.8 砂 堆 形状 测量 的 高 度 信息 





利用 二 维 插值 计算 该 区 域内 其 他 点 的 数值 。 
分 析 : 这 里 分 别 使 用 函数 interp2 和 函数 csape 进行 插值 ， 这 里 把 z 数 据 保 存 为 sands.mat 文 
件 。 程 序 如 下 : 


X = 13:4; s% 生 成 插值 点 数据 x 

Y = 1:4; % 生 成 插值 点 数据 Y 

loaG sands; % 读 入 数据 

xi = linspace(1,4,20) 1 s 生成 待 求 点 X 轴 数 据 
Yi = Xi7 g# 生成 待 求 点 Y 轴 数据 
[xx,yYYy]=meshgrida(xi) # 生成 坐标 网 格 数据 
Zz1 = interp2(xX,Yy,zZ,Xx,yYyY,，'1inear')i % 线性 插值 
pP = csape({fx,yj,z)7 g% 样 条 插值 

z2 = PPual (PPp,{xiv,yi))y % 计算 样 条 插值 结果 


subplot (121) ;mesh(xi,yivzl);view([-8,42]); % 绘图 ， 线 性 插值 结果 对 应 于 图 9. 13 的 左 图 
subplot (122) ;mesh(xi,yi,z2)yview([-8,42]); $ 绘图 ， 样 条 插值 结果 对 应 于 图 9.13 的 右 图 
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11 
图 9.13 ”二 维 插值 结果 
可 见 样 条 插值 得 到 的 是 比较 光滑 的 曲面 ,而 线性 插值 则 是 有 折 痕 的 表面 ( 其 由 多 个 平面 组 成 ) 
函数 griddata 可 以 用 来 做 不 规则 的 数据 向 量 x，y，z 的 二 元 插值 问题 。 其 调用 格式 为 


zi = griddata (X，YyY，ZzZ，Xi，Yi ，'method'): 


函数 griddata 将 返回 插值 曲面 z = 8 (x, y) 在 点 (xi, yj 处 的 插值 。 曲 面 总 是 经 过 这 些 数据 点 (x,y 
习 的 。 输 入 参量 (xi，yi) 通 常 是 规则 的 格 点 ( 像 用 命令 meshgrid 生成 的 一 样 )。 参数 method 可 以 选 
择 的 值 有 , linear 是 基于 三 角形 的 线性 插值 { 默认 方法 )、_cubic 是 基于 三 角形 的 三 次 插值 、nearest 
是 最 邻近 插值 法 、v4 是 MATLAB4 中 的 griddata 算法 。 

类 似 地 可 以 使 用 interp3 进行 三 维 插值 ， 使 用 interpn 和 ndgrid 进行 n 维 插 值 。 它 们 的 使 用 方 
法 与 interp1 和 griddata 相似 ， 读 者 可 以 参阅 帮助 文档 。 


9.9 小 结 


本 章 主要 介绍 了 数据 拟 合 和 插值 , 它们 在 数据 分 析 时 具有 重要 作用 。 首先 介 绍 了 数据 拟 合 中 的 
误差 分 析 方 法 。 通 过 最 小 二 乘法 ， 可 以 建立 线性 和 非 线 性 的 数据 拟 合算 法 ， 其 中 经 常用 到 的 是 多 项 
式 拟 合 。 而 非 线性 拟 合 可 以 用 来 解决 复杂 的 函数 模型 。 在 介绍 插值 计算 的 时 候 ， 首 先 给 出 了 两 种 经 
典 的 插值 方法 ， 即 拉 格 朗 日 插值 和 厄 尔 米 特 插值 ,它们 可 以 得 到 较为 光滑 的 插值 函数 ,但 是 在 多 项 
式 次 数 较 高 的 时 候 存 在 数据 不 收敛 的 问题 , 即 龙 格 现象 。 使 用 分 段 插值 可 以 解决 这 个 插值 不 发 散 的 
问题 ， 其 中 分 段 线性 插值 和 分 段 样 条 插值 具有 较 小 的 计算 量 ， 同 时 收敛 效果 好 , 特别 是 样 条 插值 可 
以 得 到 较 光滑 的 函数 ， 因 此 在 实际 中 应 用 广泛 。 最 后 介绍 了 二 维 播 值 和 高 维 插 值 函数 。 


命 他 全 
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急 极 值 的 计算 方法 
@ 离散 和 连续 情况 的 最 值 求解 
急 线 的 绘制 


在 数据 分 析 、 线 性 规划 和 优化 等 问题 中 经 常 要 用 到 最 值 、 极 值 的 求解 ， 此 外 如 等 式 的 求解 也 可 
以 转化 为 模 的 最 小 值 求 解 。 本 章 结 合 多 种 涉及 到 最 值 求解 的 实际 问题 进行 程序 化 计算 ， 来 介绍 


MATLAB 在 最 值 求解 方面 的 应 用 。 在 MATLAB 中 提供 了 优化 工具 箱 来 解决 最 值 问 题 的 相关 函数 ， 
读者 可 以 在 路 径 MATLAB65\toolboxoptim 中 查阅 相关 信息 。 


10.1 极 值 计算 


极 值 是 在 某 个 定义 范围 函数 的 最 大 值 或 最 小 值 。 问 题 的 对 象 可 以 有 连续 和 离散 两 种 情况 ,需要 
使 用 不 同 的 方法 对 它们 求解 。 本 节 分 别 介绍 连续 和 离散 情况 下 的 求解 方法 。 


10.1.1 连续 情况 


在 数学 上 ， 极 值 的 必要 条 件 是 函数 三 (x) 在 六 处 的 一 阶 和 导数 等 于 0， 即 ， 








dr (zx 
Yo =0 (10-1 ) 
dx 
z 避 
极 大 值 和 极 小 值 的 区 分 是 根据 函数 汪 (z) 在 如 处 二 阶 导数 取 值 的 正 负 情况 确定 ， 即 : 
dp(x 
极 大 值 条 件 : 人 <0 ( 10-2 ) 
7 
d() 


>0 ( 10-3 ) 





极 小 值 条 件 : 2 攻 
在 MATLAB 中 ， 可 以 使 用 diff 函数 求 连续 函数 的 一 阶 和 二 阶 导 数 ， 函 数 调用 格式 如 下 : 


Gift (S) 

Qiff (S，'V') 
Giftf (S，Dn) 

Qiftft (3S，"vV“，Dn) 
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diff (S，n，'V") 

参数 说 明 : 其 中 S 是 定义 的 符号 函数 ， 它 可 以 通过 函数 sym 和 syms 定义 符号 变量 来 定义 ， 
或 者 函数 的 字符 串 表 达 式 来 定义 ( 如 S ='sin(x)' )， 但 是 不 支持 inline 函数 定义 的 函数 关系 。v 是 变 
量 名 称 。n 是 求 导 的 次 数 。 

下 面 通 过 一 个 求 极 值 的 例子 来 说 明 上 述 方法 的 程序 实现 。 

10.1.1.1 一 元 函数 的 极 值 

一 元 函数 求 极 值 的 方法 是 先 计 算 一 阶 导 数 的 表达 式 ， 再 计算 一 阶 导 数 的 零点 , 这 些 和 零点 就 是 极 
值 的 位 置 点 。 当 零点 的 二 阶 导数 是 负数 时 对 应 极 大 值 ， 反 之 是 极 小 值 。 

求 函数 F (xz)=e sin 六 在 [0.5] 区 间 上 的 极 大 值 和 极 小 值 。 

10.1(a) 给 出 函数 六 (x) 在 区 间 [0,5] 的 曲线 ,首先 计算 这 个 连续 函数 的 一 阶 导数 和 二 阶 导数 ， 
相关 程序 如 下 : 


SyYmS X} sg 定义 符号 变量 x 
Sw = exkp(-x)*sin(x^2); g% 定义 函数 表达 式 
dS=diff(Sw); s# 计算 一 阶 导数 
ad2S=diff(Sw,2); gs 计算 二 阶 导数 


上 述 程序 中 ， 两 条 曲线 x~dS 和 x~d2S 由 图 10.1(b) 给 出 ， 其 中 粗 实 线 表 示 一 阶 导数 ， 可 以 发 
现 该 曲线 多 次 穿 过 0 刻度 线 。 从 二 次 导数 的 数值 ( 由 虚线 表示 ) 可 以 读 出 对 应 位 置 属于 极 大 值 还 
是 极 小 值 。 
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区 次 
局 人 b) 
10.1 一 元 函数 极 值 问题 
现在 来 考虑 如 何 利用 程序 实现 一 阶 导数 0 点 的 求解 。 已 经 知道 利用 函数 fzero 和 fsolve 可 以 求 
出 方程 的 根 ， 但 是 这 两 个 函数 都 是 计算 给 定 初 值 附 近 的 根 ， 无 法 直接 计算 整个 区 间 内 所 有 的 根 。 这 
里 将 对 fzero 函数 做 一 个 扩展 ， 编 写 了 fzeros.m 程序 来 计算 方程 在 整个 区 间 的 根 。 扩 展 思路 如 下 ， 
在 整个 区 间 上 等 间距 地 获得 多 个 取样 点 ， 即 为 , 如 ,，…, 各， 然后 计算 出 相应 的 函数 值 


了 ( 帮 ) ,ep)， (oo)。 
对 各 点 逐一 判断 ， 计 算 函 数 严 ( 丰 ) = 丰 (X-i) 了 (六 )，2< 大 < 是 否 非 正 。 如 果 严 (上 )<0， 
那么 就 用 求 根 函 数 fzero 计算 总 附近 的 根 。 这 样 通过 多 次 调用 fzero 函数 就 可 以 得 到 区 间 上 所 有 的 
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根 。 用 下 面 的 程序 可 以 算出 所 有 的 极 大 值 和 极 小 值 。 


dsS=char(ds)， g 把 ds 的 类 型 从 符号 型 变 为 字符 串 型 
dGS=strrep(dS, xxw'); g% 用 点 乘 “.*” 代 替 ds 中 的 乘 “*" 
dGS=strrep(dS, “和 ^)) # 用 运算 “.^” 代 替 ds 中 的 乘 “^" 
x0=fzeros (inline(dS),[0,5]); ss 用 fzeros 函数 计算 区 间 [0，5] 上 的 根 
d2F=subs{d2S,x0) ; g% 计算 方程 所 有 根 处 的 二 次 导数 

xM=x0(d2F<0) g 从 x0 中 分 离 出 极 大 值 点 

xm=x0(d2F>0) % 从 x0 中 分 离 出 极 小 值 点 


因此 需要 把 时 次 和 乘除 (“”、“*"”、“/"”) 运算 转换 为 相应 的 点 运算 (“.”、“.x”、 
“./”)。 为 此 ， 上 面 的 程序 中 用 char 函数 先 获得 字符 串 数 据 ， 用 strrep 函数 进行 
运算 类 型 替换 ( 因为 这 里 不 含 除 运算 ， 相 应 转换 未 进行 )。 


在 fzero 函数 的 输入 参数 中 ， 要 求 函数 表达 式 是 支持 矩阵 型 运算 的 字符 毕 型 数据 ， 
说 明 


程序 输出 如 下 : 


1.0637 2.7705 3.7422 4.5066 
0 2.1167 3.2932 4.1423 4.8435 


序 计算 出 的 极 大 值 位 置 xXM 和 极 小 值 位 置 xm 分 别 用 符号 “A ”和 “V" 在 图 10.1(a) 中 标 出 ， 
可 以 看 出 所 有 极 大 值 和 极 小 值 被 正确 地 求 出 。 本 问题 完整 的 程序 名 称 是 min_maxsf.m。 
10.1.1.2 ”二 元 函数 的 极 值 
与 一 阶 导 数 的 求解 类 似 , 计算 二 阶 导数 需要 同时 考虑 两 个 自 变量 方向 的 一 阶 导 数 , 当 它们 同时 
为 零 时 , 也 就 对 应 着 极 值 点 。 极 大 值 还 是 极 小 值 可 以 通过 判断 零点 与 周围 邻近 点 的 大 小 关系 。 计 算 
下 面 函 数 在 x, ye [-3,，3] 的 极 值 ， 


一 已 _(y+I 三 2 1 _(xz+D2-V 
z=j 丰 (7)=3(1-z e -lo(3-2-)。 
上 述 函数 是 MATLAB 中 函数 peaks 的 定义 ， 这 是 一 个 比较 复杂 的 二 元 函数 。 
如 图 10.2 所 示 ， 画 出 该 二 元 函数 在 z=0 上 下 两 面 的 曲面 图 ， 从 其 中 大 致 可 以 看 出 峰 项 和 谷底 


位 置 分 布 情况 。 
二 元 函数 的 极 值 计算 过 程 是 : 


IE 计算/ (>, y) 的 5 个 偏 导数 : 


于 全 入， 六 (= 于 于 略 ， 大 Gj=2G 相 ， 姑 G= 开 人 昌 ， 


XM 
Xm 


太 (z7)= 
off(x,y) 
9 


| 1 0 的 全 部 根 ， 继 而 得 到 相应 的 驻 点 坐标 
》 


户 ( 人 7)= 
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图 10.2 ”二 元 函数 的 图 像 : (a) z= f (xy) ，(bj) z=-(zy) 


分 离 出 极 大 值 和 极 小 值 。 对 于 各 个 驻 点 坐标 (所 , ) ,计算 3 个 参数 的 值 太 = 所 ( 二 ,%) ， 
及 = 户 ( 必 内 ) ，Ce = 太 ( 思 ,办 )， 检 验 每 个 驻 点 判别 式 ( Ag = 义 Ck 一 下 ) 的 取 值 。 
当 A, > 0 时 该 驻 点 是 极 值 点 ， 4, > 0 对 应 着 极 小 值 ，A, < 0 对 应 着 极 大 值 ; 在 Ak =0 
时 要 进一步 判断 该 点 是 否 为 极 值 点 ; 当 A, < 0 时 ， 该 点 不 是 极 值 点 。 


函数 dif 和 jacobian 都 可 以 用 来 计算 二 元 函数 的 导数 ， 这 里 使 用 jacobian 函数 计算 导数 。 


SYmS X Y; 
zZ = 3w{(1-x).^2.x*exp(-(xX.^2) - (Y+1).^2) .……. 
~ 10w(x/5 - x.^3 - yY.^5) .wexp(-X.^2-Y.^2) ... 
-~ 1/3*exp(- (X+1).^2 - Y.^2)1; 
dF=jacobian(z,，[Xx,Y]); 


其 中 dF 是 一 个 1X2 的 符号 型 变量 。 为 了 求解 dF=0 这 个 方程 组 ， 需 要 使 用 fsolve 函数 计算 ， 
为 此 需要 把 dF 转 为 字符 串 型 变量 。 


S1=char(aF(1) ); % 分 离 qF 为 2 个 字符 串 
S2=char(aF (2) ); % 分 离 dF 为 2 个 字符 串 
S1=strrep(S1，'w yw ) sg 点 运算 转化 
S1=strrep{(S1， ee g 点 运算 转化 


S2=strrep(S2，'# yw ) 7 % 点 运算 转化 
S2=strrep(S2，'^ 0.^ 1) # 点 运算 转化 
fun=['[',S1,'',S2,]]， # 字符 串 连 接 
fun=strrep(fun, 'exp','q');  % 用 字母 “q' 替代 字符 串 “exp” 
fun=strrep(fun,'x'v'x(1)')) 8 用 和 (1) 代替“x” 
fun=strrep(fun,'y','x(2)'); 用 (2) 代替 “y” 
fun=strrep(fun,'q','exp'); s 把 “exp， 蔡 换 回来 


上 面 的 程序 完成 了 符号 型 数据 向 字符 串 的 转化 。 其 中 为 了 避免 字符 串 “exp ”中 的 “x 被 x(1)” 
替换 ， 使 用 一 个 字母 “q” 进行 中 转 。 
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这 里 使 用 ginput 函数 用 人 机 交互 的 方式 求解 极 值 位 置 。 用 ginput 函数 获得 极 值 附近 一 个 近似 
的 点 ， 作 为 fsolve 函数 输入 的 初始 值 。 再 调用 fsolve 函数 进行 精确 的 求解 ， 同 时 所 得 的 极 值 点 与 
附件 的 点 进行 比较 而 分 离 出 极 大 值 和 极 小 值 点 。 相 关 实 现 程 序 如 下 : 


contour (X,Y,Z, [-8:10]); # 绘制 等 高 线 
holda on; 

Set (gcf，'color'，w') 

set (gca, 'Fontsize',12); 


title(' 请 点 击 等 高 线 峰 和 谷 的 大 致 位 置 '，'Fontsize' ,12) ; 


[xct,yt]=ginput(6) s 鼠标 取 点 
X 人 taXt 外 变 为 行 向 量 
YLt=Yt 1 # 变 为 行 向 量 
Gx= [max(xlim) -min(xlim)]/20; # 产生 一 个 x 方 向 侧 移 
dy=dx; g 产生 一 个 y- 方 向 侧 移 
for k=1:1ength(xt)y 
x0=fsolve(fun, [xt (k) ,yt(k)],options)y; s# 求解 方程 组 
xL (k) =x0(1)， g 把 当前 精确 根 赋值 到 近似 根 xt 
yt(k)=x0(2); g 把 当前 精确 根 赋值 到 近似 根 yt 
if Subs (z, {x,y},{xt (k) ,YE(k))})>subs(z,{x,yj,{fxt(k)+dx,yt(k)+day})7s 函数 值 与 附 
近 的 点 进行 比较 
Pb(k)=1; gs 标识 极 大 值 
else 
pb (k)=-1; 当 标识 极 小 值 
enda 
end 


Plot(xt (Pb>0) ,yt(pPb>0)，'Kk^'…'MarkerFaceCcolor'，'k'); sg 绘 出 极 大 值 点 
P1Lot {(xt (Pb<0) ,yt (Pb<0)，'kv'，'MarkerFacecolor'，'k'); $ 绘 出 极 小 值 点 

运行 上 述 程序 后 在 等 高 线 上 会 出 现 一 个 “十 ”字形 , 使 用 鼠标 在 等 高 线 上 对 应 的 峰值 和 谷底 大 
致 位 置 处 单 击 即 可 获取 当前 点 的 坐标 。 依 次 单 击 后 , 程序 将 按 所 得 各 点 的 顺序 逐个 计算 相应 的 极 值 
点 。 上 述 程序 计算 得 到 的 xt，yt 和 pb 如 下 : 


Xt = -0.0093 -1.3474 0.2964 1.2857 -0.4600 0.2283 
yt = 1.5814 0.2045 0.3202 -0.0048 -0.6292 -1.6255 
pb = 二 = 于 工 工 = 


输出 如 图 10.3 所 示 的 图 形 。 可 以 发 现 极 值 点 已 准确 地 计算 出 来 ， 极 大 值 和 极 小 值 分 别 用 符号 
“全 ”和 “有 ”标注 出 来 。 本 例 完整 程序 的 文件 名 是 min_maxs2.mo。 


10.1.2 ”离散 情况 


对 于 离散 情况 ， 可 以 利用 差分 代替 微分 来 求解 极 值 ， MATLAB 中 的 diff 函数 还 可 以 用 来 计算 差 
分 。 此 外 还 可 以 通过 相 邻 3 个 点 的 大 小 关系 计算 ， 如 果 中 间 一 点 同时 大 于 ( 或 者 同时 小 于 ) 两 侧 
的 点 ， 那 么 这 一 点 就 是 极 大 值 ( 或 者 极 小 值 

下 面 介绍 两 种 方法 计算 向 量 型 离散 数据 的 极 值 。 
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5 请 闲 击 竺 高 线 的 由 和 各 的 大 各 位 人 ] 
半 一 一 ] 
Ca )) 
甸 过 
DF 二 
1 - As 
CC)))) 
33 立 于 四 症 1 2 3 
图 10.3 ”二 元 函数 的 极 值 
10.1.2.1 ”差分 法 


差分 法 ， 利 用 函数 dif 可 以 计算 出 差分 而 得 到 一 个 向 量 ， 如 果 该 向 量 中 相 邻 元 素 的 符号 相反 ， 
那么 对 应 点 就 是 一 个 极 值 点 其 中 前 一 个 差分 向 量 元 素 为 正 、 后 一 个 元 素 为 负 的 情况 对 应 着 极 大 值 ， 
反之 则 为 极 小 值 。 具 体 实现 可 以 结合 下 面 的 例子 理解 。 


R= [8，2，10，7，4，3，6，9，5，1]， g% 离散 数据 


pM = find(diff(sign(taiff(A))) == -2)+1; % 算出 极 大 值 的 位 置 
pm = find(diff(sign(aifft(a))) == 2)+1; sg% 算出 极 小 值 的 位 置 
RM -= AUDM) % 返回 极 大 值 
am = Rpm) g% 返回 极 小 值 
上 述 程序 运行 结果 如 下 : 
RM = 10 9 
RArm = 2 3 
极 大 值 和 极 小 值 位 置 的 求法 还 可 以 扩展 为 下 面 两 种 等 价格 式 以 及 其 他 等 价 形式 。 
PDM intersect (find(tdQiff(RA)>0)+1,Eindldiff(RA)<0))， 
pm intersect (find(diff(&A)<0)+1,Efinda(diftf( 有 )>0)) 7 


GaR = qiff(RA)， 


Qt GR(1:end-1).*da(2:enG); 
PM = find(dat<0 & GaR(1:end-1)>0)+1; 
Pm find(at<0 & GaR(2:end)>0)+1; 


10.1.2.2 直接 比较 法 

直接 比较 法 ， 可 以 利用 极 大 值 ( 极 小 值 ) 的 定义 来 计算 ， 如 果 相 邻 的 3 个 数 中 ， 中 间 的 数 同 
时 大 于 ( 小 于 ) 两 边 的 数 就 是 极 大 值 ( 极 小 值 ) 

[ 8，2，10，7，4，3，6，9，5，1]; $ 离散 数据 


有 = 
AL = Al1:end-2); 
RM = ARA2:end-l); 
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R(3:end) ; 
find(AM>AL&RAM>RAR) +1， 
find (AM<RAL&RAM<RAR) +17; 
有 IGM) 
有 (Gm) 
上 述 两 种 方法 都 支持 向 量 计 算 没 有 循环 ， 执 行 速 度 很 快 ， 完 全 可 以 用 于 大 量 数据 计算 。 读 者 可 
以 把 它们 写 为 函数 的 形式 ， 在 自己 的 计算 中 调用 。 此 外 ,还 可 以 用 求 最 大 值 的 方法 求 最 小 值 ， 即 计 
算 -A 的 最 大 值 位 置 就 是 计算 A 最 小 值 的 位 置 ， 反 之 亦 然 。 
而 对 于 矩 阵 形式 的 数据 ， 可 以 根据 极 大 值 和 极 小 值 的 关系 来 寻找 位 置 和 极 值 。 如 图 10.4 所 示 ， 
在 一 个 3x3 的 局 域内 ， 描 述 了 出 现 极 大 值 和 极 小 值 的 情况 。 





图 10.4 二 维 离散 数据 极 大 值 和 极 小 值 的 关系 


g 找 出 中 间 同 时 大 于 两 侧 的 位 置 
# 找 出 中 间 同 时 小 于 两 侧 的 位 置 


外 
多 
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返回 极 大 值 
返回 极 小 值 . 





在 图 10.4 所 示 的 局 域 子 矩 阵 中 ， 如 果 M > 凤 , ，( 上 = |.2,…,8) 都 成 立 ， 那 么 数值 M 就 表示 
一 个 极 大 值 ; 同样 地 ， 如 果 六 < M,，( 丰 = 了.2,…,8) 均 成 立 ， 那 么 数值 由 就 是 一 个 极 小 值 。 根 据 
这 个 关系 可 以 编程 逐个 计算 出 8X8 子 矩 阵 的 极 大 值 。 


rand('State',12); 
ARA=reshapel(randperm(64),，8,8); 
endG-2) 7 


R1 
R2 
RA3 
R4 
RA5 
ARA6 
RT7 
R8 
Rm 
[x， 


P = [x'+l;Yy'+l]， g% 得 到 极 大 值 的 位 置 坐标 
ind = sub2ind(size(a),x+l,y+l); g% 把 坐标 转化 为 索引 
RMm = Rind)'; g% 得 到 极 大 (小 ) 值 
玉 ，P，RMm g 显示 计算 结果 
结果 输出 为 
及 = 14 52 3 二 -1 10 7 58 23 
19 64 47 12 30 3 48 20 
25 3 寺 5 43 29 59 63 6 
21 33 1 42 9 18 16 26 
28 38 50 34 62 24 61 57 
37 54 60 工 45 51 36 入 
年 49 40 15” 46 2 22 56 


WENh Ni 


儿 站 外 


子 


有 (1: 


有 (1: 
有 (1: 


] 


有 (2: 
习 (2: 
有 (3: 
有 (3: 
六 (3: 
有 (2: 


end-2,1: 


:end-1) 
:end-0) ; 
:endG-2) 
3:end-0) ; 
1:end-2); 
2:end-11): 


,3:end-0) 


end-1,2: 


endQ-1) ; 


# 设置 随机 数 状态 
g 产生 一 个 8x8 珑 阵 
% 分 离 出 左上 方 子 和 矩阵 
# 分 离 出 正 上 方 子 和 矩阵 
$% 分 离 出 右上 方 子 和 矩阵 
# 分 离 出 左 中 方 子 和 矩阵 
# 分 离 出 右 中 方 子 和 矩阵 
% 分 离 出 左下 方 子 矩 阵 
g 分 离 出 中 下 方 子 矩 阵 
sg 分 离 出 右 下 方 子 矩 阵 
sg 分 离 出 中 间 的 子 矩 阵 


= find(aAm>al&am>A2&RAm>Ra3&RAm>R4&K... 


RARAm>RA5&aAm>RA6&RAm>A7&Rm>A8) ， 


g% 判断 大 小 关系 并 得 到 极 大 值 
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53 4 和 39 27 3 41 32 8 
P = 6 5 3 5 


对 比 上 面 的 德 阵 ， 上 述 这 上 段 程序 准确 地 计算 出 了 相应 极 大 值 的 位 置 以 及 极 大 值 。 为 了 给 出 一 个 
更 直观 的 观察 ， 图 10.5 显示 了 甜 阵 4 灰 度 图 ， 其 中 白色 位 置 处 的 数值 大 ， 而 黑色 位 置 处 数值 小 。 
根据 旁边 的 刻度 我 们 也 可 以 读 出 极 大 值 的 位 置 。 如 果 把 含 find 的 语句 替换 为 下 面 的 形式 : 


1 2 3 二 5 6 了 8 





图 10.5 和 珑 阵 4 的 图 像 显示 


[x,yY] = find(Am<Al1&RAm<RA2&RAm<A3&RAm<A4K,..，，. 
Am<A5&RAm<RaA6ERAm<A7SAm<A8) 


出 的 极 小 值 信息 是 ， 


li 

睫 
~] 
上 
\D 
忆 D 


上 述 程序 也 可 以 对 任意 矩阵 进行 求 极 值 计 算 ， 读 者 稍 加 修改 就 可 以 用 来 计算 大 型 矩阵 的 极 值 。 
本 问题 的 完整 求解 程序 对 应 的 文件 名 是 min_maxs2D.m。 相 比 之 下 使 用 差分 形式 的 程序 书写 要 复 
杂 得 多 ， 读 者 如 感 兴趣 可 以 考虑 这 个 问题 。 


10.2 ”最 值 


前 面 所 述 的 极 值 问题 得 到 的 是 某 区 间 上 的 所 有 极 值 , 求 出 最 小 值 是 获得 某 定义 范围 内 的 一 个 最 
小 值 大 小 以 及 相应 位 置 。 极 值 可 以 看 做 小 局 域内 的 最 大 值 或 者 最 小 值 。 求 矿 (x) 最 大 值 问题 可 以 通 
过 计算 一 六 (x) 的 最 小 值 问题 而 得 到 解决 ， 这 里 X 可 以 是 包含 多 个 参数 的 向 量 。 
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梧 晤 本 本 第 | 人 六 最 值 问题 的 求解 


10.2.1 离散 数据 的 最 值 


在 MATLAB 中 提供 了 两 个 基本 的 函数 max 和 min 来 计算 离散 数据 的 最 大 值 和 最 小 值 ， 它 们 的 
调用 格式 如 下 ， 


Y = max (X) #% Y 是 返回 的 最 大 值 ，X 是 向 量 
[Y，I] = max (X) % 立 是 返回 的 最 大 值 ，I 是 最 大 值 对 应 的 位 置 ，X 是 向 量 
Z = max(X，Y) % 2Z 是 选择 和 矩阵 X 和 YY 各 个 位 置 处 的 最 大 值 组 成 的 矩 阵 


[Y，I] = max(X，[]，1) % 计算 矩阵 X 各 列 的 最 大 值 : Y 是 最 大 值 ，I 是 各 列 中 最 大 值 对 应 的 行 位 置 
[Y，I] = max(X，[]，2) & 计算 矩阵 X 各 行 的 最 大 值 : Y 是 最 大 值 ，I 是 各 行 中 最 大 值 对 应 的 列 位 置 


Y = min (X) s Y 是 返回 的 最 小 值 ，X 是 向 量 
[Y，I] = min(X) gs Y 是 返回 的 最 小 值 ，I 是 最 小 值 对 应 的 位 置 ，xX 是 向 量 
Z = min(X，Y) g 2 是 选择 甜 阵 X 和 YY 各 个 位 置 处 的 最 小 值 而 组 成 的 矩阵 


[Y，I] = min(X，[]，1)  % 计算 矩阵 X 各 列 的 最 小 值 : Y 是 最 小 值 ，I 是 各 列 中 最 小 值 对 应 的 行 位 置 
[Y，I] = min(X，[]，2) ， % 计算 矩阵 X 各 行 的 最 大 值 : Y 是 最 小 值 ，I 是 各 行 中 最 小 值 对 应 的 列 位 置 


下 面 以 一 个 例子 给 出 X 中 含 多 个 最 大 值 的 时 候 max 函数 计算 结果 的 说 明 。 


X= [1，2，3，3，1，2]:; g 可 以 发 现 3 是 最 大 值 
[Y，I] = max(X) g 计算 最 大 值 
输出 的 结果 为 : 


性 
外 上 


吕 
3 


可 以 发 现 只 有 第 一 个 最 大 值 被 返回 。 而 有 的 时 候 需要 返回 多 个 最 大 值 ，, 此 时 需要 使 用 下 面 的 语 


find(X==max(X) ) % 找 出 X 中 等 于 最 大 值 的 点 
XI(I) s% 按 各 个 位 置 提取 出 最 大 值 


输出 结果 为 : 


汪 4 
3 3 


但 是 在 有 些 情况 下 ， 函 数 表达 式 期 望 的 数值 并 不 严格 地 相等 ， 即 


必 
N 


站 


3xtan(pi/4) 
输出 结果 为 : 
ans =3.0000 
如 果 用 下 面 的 方式 来 计算 : 
3xexp (i*pi*2) 
输出 结果 为 ， 
ans -= 3.0000 - 0.0000i 
上 面 两 个 表达 式 的 结果 都 是 3， 希望 通过 求 最 大 值 操作 把 这 3 个 数 都 找到 。 在 这 样 的 情况 下 ， 
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使 用 运算 “= = ”不 能 获得 正确 的 结果 ,因此 计算 最 大 值 的 时 候 需要 使 用 一 个 很 小 的 数值 来 等 效 地 
替换 “相等 ”计算 ， 即 
X = [1，2，3，3*tan(pi/4)，3*exp(ivpix2)];  s% 含 表 达 式 的 数组 
I = find(abs(X)>max(X)-1e-6) g% 用 不 等 号 代 规 等 于 来 判断 大 小 关系 
Y = XI(I) g# 按 各 位 置 提取 出 最 大 值 
输出 结果 为 ， 
I = 3 4 5 
Y 至 3.0000 3.0000 3.0000 - 0.0000i 


关于 min 函数 的 使 用 与 max 类 似 ， 这 里 不 再 班 述 ， 读 者 可 以 参考 MATLAB 帮助 文档 。 


10.2.2 连续 函数 的 最 小 值 


如 前 所 述 ， 连 续 函 数 的 最 大 值 计算 可 以 转化 为 极 小 值 问题 进行 求解 。 本 小 节 结合 MATLAB 最 
优化 工具 箱 提 供 的 专门 函数 介绍 最 小 值 的 计算 。 相 关 函 数 如 表 10.1 所 示 。 


表 10.1 计算 最 小 值 的 相关 函数 





函数 名 说 明 备注 
optimset 设 定 优化 过 程 参 数 = 
aptmget 获取 优化 过 程 参数 本 阁下 候 素 全 下 
fminsearch 利用 单纯 形 法 求 最 小 值 K 
fminunc 利用 拟 牛顿 法 求 最 小 值 玫 人 和 人 
linprog 线性 规划 

fminbnd 一 元 非 线 性 规划 

fmincon 多 元 非 线性 规划 

quadprog 二 次 规划 

fseminf 半 无 限 多 元 规划 有 约束 条 伯 
fmininax 最 大 最 小 化 模型 

fgoalattain 多 目标 规划 

lsqlin 最 小 二 乘 最 优 问题 


对 于 优化 过 程控 制 参数 ，MATLAB 提供 了 函数 optimset 和 optimget 来 分 别 设置 和 查看 相关 的 
参数 。 具 体 参 数 意 义 如 表 10.2 所 示 。 


表 10.2 ”优化 函数 中 相关 参数 的 意义 说 明 


参数 名 说 明 默认 值 
DerivativeCheck 将 用 户 提供 的 导数 和 有 限 差分 求 出 的 导数 进行 对 比 off 
Diagnostics 打印 将 要 最 小 化 或 求解 的 函数 的 诊断 信息 of 
DiffMaxChange 变 最 中 有 限 差 分 梯度 的 最 大 变化 1e-1 
DiffMinChange 变量 中 有 限 差 分 梯度 的 最 小 变化 1e-8 
Display 显示 水 平 of 什 
GoalsExactAchieve 使 得 目标 个 数 刚好 达到 ， 不 多 也 不 少 0 
GradConstr 用 户 定义 的 约束 函数 的 梯度 of 
GradObj 用 户 定义 的 目标 函数 的 梯度 。 使 用 大 型 方法 时 必须 使 用 ”off 


梯度 ， 对 于 中 型 方法 则 是 可 选项 
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( 续 表 ) 
参数 名 说 明 默认 值 
Hessian 用 户 定义 的 目标 函数 的 Hessian 和 矩阵 off 
HessMult 用 户 定 义 的 Hessian 乘法 函数 [ 
HessPattern 用 于 有 限 差分 的 Hessian 矩 阵 的 稀疏 形式 sparse matrix 
HessUpdate 拟 牛 顿 法 bfgs 
Jacobian 用 于 用 户 定义 的 目标 函数 的 Jacobian 和 矩阵 off 
JacobMult 用 户 定义 的 Jacobian 乘法 函数 [] 
JacobPattern 用 于 有 限 差 分 的 Jacobian 和 矩 阵 的 稀疏 形式 sparse matrix 
LargeScale 选用 大 型 算法 on 
LevenbergMarquardt 用 Levenberg-Marquardt 法 替代 Gauss-Newton 法 off 
LineSearchType 选择 插值 方法 quadcubic 
MaxFunEvals 函数 评价 的 允许 最 大 次 数 [] 
Maxlter 函数 迭代 的 允许 最 大 次 数 下 
MaxPCGIlter PCG 和 迭代 的 最 大 次 数 光 和 
MeritFunction 使 用 目标 达到 或 最 大 最 小 化 目标 函数 的 方法 multiobj 
MinAbsMax F(x) 最 坏 绝对 值 最 小 化 了 的 目标 数 0 
PrecondBandWidth PCG 前 处 理 的 上 带宽 0 
TolCon 约束 矛盾 的 终止 容 限 
TolFun 函数 值 处 的 终止 容 限 3 
TolPCG PCG 迁 代 的 终止 容 限 0.1 
ToX X 处 的 终止 容 限 人 
TypicalX 典型 X 值 E 


例 10-1: 计算 函数 (xy)= -[ (xz 下 +(>+12)]e，。 在 (1 1) 附近 的 最 小 值 。 


为 了 便于 比较 ， 在 计算 最 小 值 之 前 ， 需 要 先 用 meshc 函数 把 该 二 元 函数 对 应 的 曲面 画 出 来 。 


[X，Y] = meshgrid(linspace(-3,3,20)); 
2Z = -[(X-1).^2+[Y+1.2] .^2] .*exp(-[Y.^2+X.^2]7/4) ; 


所 得 的 图 形 如 图 10-6 所 示 。 





图 10.6 ”二 元 函数 对 应 的 曲面 
利用 下 面 的 两 条 语句 可 以 实现 单纯 形 法 计算 最 小 值 : 
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fun=inline('-[(x(1)-1)^2+(X(2)+1.2)^2]*exp(-[x(1)^2+x(2)^2]74) 5) 7 儿 定义 二 元 
函数 
[xm，Fval]=fminsearch(fun, [-1;1]) # 计算 最 小 值 位 置 和 最 小 值 
程序 输出 ; 
Xm = -0.8745 
1.0495 
Eval = -5.3773 


这 里 二 元 函数 三 ( x, 》) 中 的 变量 ( x, 》 ) 要 分 别 用 “x(D)” 和 ““x(2)” 这 样 的 方式 输入 ， 不 能 
以 “x” 和 “y” 形 式 书写 在 inline 函数 里 面 。 否 则 程序 将 提示 下 面 的 错误 : 


?3?? Error Using ==> inline/feval 
Not enough inputs to inline function. 3 


使 用 函数 fminunc 来 解决 上 面 的 例 10-1， 所 用 的 语句 如 下 ; 


[xm, Fval] = ftminunc(fun,[-1;1]) 
执行 上 面 的 语句 有 下 面 的 输出 ， 
xm = -0.8750 
1.0495 
Fval = -5.3773 


可 以 发 现 这 两 个 函数 计算 的 结果 是 相同 的 。 在 光盘 中 解决 上 述 问题 的 计算 完整 程序 名 是 


fminsearch_test.mo 


和。 如果 函 数 中 的 变量 宕 次 大 于 2, 则 使 用 fminunc 要 比 fminsearch 有 效 , 但 是 当 所 选 
AL。 函数 高 度 不 连续 或 者 变化 剧烈 时 ， 使 用 fminsearch 较 好 。 


10.2.2.1 线性 规划 问题 

线性 规划 问题 的 求解 方法 有 表 上 作业 法 、 图 解法 和 单纯 形 法 ， 然 而 在 决策 变量 比较 多 的 时 候 ， 
上 述 方 法 的 求解 过 程 都 是 比较 复杂 的 ， 使 用 MATLAB 求解 线性 规划 问题 却 比 较 简 单 。 

使 用 MATLAB 求解 线性 规划 问题 的 函数 是 linprog， 函 数 名 源 自 英文 Linear programming。 其 
调用 格式 有 下 面 3 种 样式 : 
X = linprog(Ef，RA，Db) 
[X，Fval] = linprog(f，A，b，RAeq，Beq，Lb，Ub) 
[X，EFval，exitflag，output，1lambda] = linprog(f，RA，b，ReG，Beg，Lb，Ub,，X0，options) 

输出 参数 说 明 : 这 里 X 是 由 决策 变量 组 成 的 列 向 量 。Fval 是 优化 结束 后 得 到 的 目标 函数 的 数 
值 大 小 。 返 回 值 exitflag 具有 3 种 可 能 的 情况 ， 即 0 表示 优化 结果 已 经 超过 了 函数 的 估计 值 或 者 已 
声明 的 最 大 迭代 次 数 ，1 表示 优化 过 程 中 变量 收敛 到 最 终结 果 X，-1 表明 优化 结果 不 收敛 。 返 回 值 
output 具有 3 个 分 量 ， 即 iterations 是 优化 过 程 的 迭代 次 数 ，cgiterations 表示 PCG 和 迭代 次 数 ， 
algorithm 是 优化 采用 的 运算 规则 。 返 回 值 lambda 有 4 个 分 量 ， 即 ineqlin 表示 线性 不 等 式 约束 条 
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件 ，eqlin 是 线性 等 式 约束 条 件 ，upper 是 变量 的 上 界 约束 条 件 ，lower 是 变量 的 下 界 约束 条 件 。 它 
们 的 返回 值 分 别 表示 相应 的 约束 条 件 在 最 优化 过 程 中 是 示 有 效 。 

输入 参数 说 明 : f 是 由 目标 函数 中 变量 系数 依次 组 成 的 向 量 。A 是 一 个 矩阵 ，b 是 一 个 向 量 ， 
它们 组 成 线性 规划 问题 的 不 等 式 约束 条 件 为 4X 系 户 。Aeq 和 Beq 组 成 线性 规划 问题 的 等 式 约束 
条 件 为 4.X= 已 ， o。 Lb 和 Ub 分 别 是 变量 的 下 界 和 上 界 约束 。X0 是 变量 的 初 值 。options 是 控 
制 线性 规划 过 程 的 系列 参数 。 

调用 函数 linprog 时 ， 系 统 默认 该 函数 的 所 有 输入 f， A,，b，Aeq，Beq,，Lb，Ub，X0，options 
都 是 存在 的 ， 且 按 描述 顺序 进行 赋值 。 比 如 当 Lb 存在 的 情况 下 ， 它 后 面 的 参数 可 以 不 写 入 ， 程 序 
不 会 出 错 。 但 是 Lb 前 面 的 参数 必须 给 出 ， 即 使 问题 中 没有 相关 参数 ， 也 要 使 用 空 答 阵 “[]” 进 行 
赋值 ， 不 能 缺 省 。 如 果 线 性 规划 问题 不 存在 可 行 解 时 ， 将 会 出 现 如 下 提示 : 
Warning: The constraints are Overly Stringent;there is no feasible solution， 

如 果 存 在 收敛 解 ， 会 显示 这 样 的 文字 : 


Optimization erminated successful1ly， 
例 10-2: 求解 下 面 的 线性 规划 问题 。 
min ff 本 击 中 2 
2 一 和 之】 
为 <4 
刀 <3 
2 二 0 
分 析 : 在 这 个 问题 中 ,{f=[3,2] ,约束 不 等 式 参数 A=[-2,1],b= -6, 下 界 Lb=[0.0], 上 界 Ub=[4,3]。 
现在 可 以 根据 这 些 条 件 编写 优化 程序 。 相 应 程序 如 下 : 


约束 条 件 为 : 


[3，2]; 当 定义 目标 


E = 
RAR = [-2，1]; 旬 估 琳 呆 等 式 中 灾 量 前 面 的 系数 
b = -1; gs 约束 不 等 式 中 b 的 值 
Ib:as [0， 0]7 # 变量 的 下 界 
Ub =. [4，3]: gs 变量 的 上 界 
[X，Fval] = linprog 人 f，R，by[],[]，Lb，Ub) 多 执行 线性 规划 计算 
上 述 程序 输出 下 面 的 内 容 : 
X= 0.5000 
0.0000 


Fval =1.5000 


例 10-3: 求解 下 面 的 线性 规划 问题 。 
minf:， 为 十 27 十 略 
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350 十 3z 十 2 妨 =3 
约束 条 件 为 : 12 十 3 十 42 = 
为 立 0 
分 析 : 这 里 f= [1,2,1]， 约 束 方程 的 参数 Aeq=[5,3,2; 2,3,4]，Beq=[3; 51， 下 界 Lb=[0,0,0]， 


其 他 约束 类 型 取 默 认 值 即 可 。 求 解 时 采用 [X, Fval] = linprog(f, A, b, Aeq, Beq, Lb, Ub) 形 式 。 程 序 
如 下 ; 


E = [1，2，1]; sg 定义 目标 函数 

Rheqg = [5， 3，2; 2，3，4]); s% 约束 方程 中 变量 前 面 的 系数 
Beq = [3; 5]; g% 约束 方程 的 系数 

Lb = [0，0，0]; # 变量 的 下 界 


[X，Fval] = linprog(f，[]，[]，aeq，Begd，Lb) # 执行 线性 规划 计算 


输出 如 下 : 


避 三 0.1250 
0.0000 
1.1875 

Fval = 1.3125 


例 10-4: 求解 下 面 的 线性 规划 问题 。 
minf:， 22XI 十 3 十 0 十 6X4 
2 和 0 一 十 2 为 一 如 二 20 
3 为 十 2x2 十 32 <12 
约束 条 件 为 : 
2 十 3 十 为 十 2 三 1 
四 
分 析 : 这 里 f= [2, 3, 5, 6] ， 约 束 不 等 式 的 参数 A=[-2, 1, -2, 1; 3, 2, 1, 00]，b=[-20; 12]， 约 束 
方程 的 参数 Aeq=[2,3,1,2]，Beq=15， 这 里 仅 有 下 界 描 述 Lb=[0,0,0,0]。 求 解 时 采用 [X，Fval] = 
linprog(f, A, b, Aeq, Beq, Lb, Ub) 形 式 。 程 序 如 下 : 


f = [2，3，5，6]); g% 定义 目标 函数 

RAR = [-2，1，-2，1;， 3，2，1，0]:) g% 约束 不 等 式 中 变量 前 面 的 系数 
b = [-20，121; g% 约束 不 等 式 中 b 的 值 

Req = [2，3，1，2]; g# 约束 方程 中 变量 前 面 的 系数 

Beqg = 15; % 约束 方程 的 系数 

Lb = [0，0，0，0]:， gs 变量 的 下 界 


[X，Fval] = linprog(f，aA，b，aneq，Beq，Lb)  *# 执行 线性 规划 计算 
输出 结果 如 下 ， 


X = 0.4716 
0.0840 
10.4173 
1.6938 

Fval = 63.4444 
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在 上 述 例 10-4 中 ， 如 果 把 约束 不 等 式 2X 一 六 十 2 为 一 如 二 20 变 为 2 为 一 和 十 25 一 如 二 40， 
其 他 条 件 不 变 ， 那 么 进行 线性 规划 时 将 会 出 现下 面 的 输出 : 


X = 2.7859 
0.0001 
12.4485 
0.0001 

Fval = 67.8150 


在 这 种 情况 下 ， 只 是 换 了 约束 不 等 式 ， 其 他 条 件 未 变 ， 说 明 约 束 条 件 存在 问题 ， 从 而 导致 规划 
失败 。 


10.2.2.2 ” 非 线性 规划 问题 


前 面 介 绍 了 线性 规划 的 求解 , 本 节 介绍 非 线 性 规划 问题 的 求解 方法 。 根 据 目标 函数 和 约束 条 件 
的 不 同 ，MATLAB 提供 了 fminbnd，fmincon,，quadprog，fseminf，fminimax， fgoalattain 及 lsqlin 
等 函数 来 求解 不 同类 型 的 非 线性 规划 问题 。 下 面 结 合 实例 来 介绍 这 些 函 数 的 用 法 。 

在 MATLAB 中 可 以 用 函数 fminbnd 来 求解 一 元 非 线 性 规划 问题 ， 其 调用 格式 为 : 


Xx = fminbnda(ftun，Xx1l，XxX2); 
[x，fval] = fminbnd(fun，Xx1l，Xx2)7 
[x，fval，exitflag，outpuc] = fminbnda(fun，xLl，x2，options)， 

参数 说 明 : x 是 最 小 值 对 应 的 变量 数值 ，fval 是 目标 函数 的 最 小 值 。exitflag 是 终止 迭代 条 件 ， 
即 exitflag=1 表示 函数 收敛 于 x，exitflag=0 表示 超过 函数 估计 值 或 迭代 的 最 大 数字 ，exitflag=-1 
表示 函数 不 收 分 于 xooutput 为 优化 输出 信息 , 它 包含 3 项 信息 , 即 iterations 为 和 代 次 数 ,funccount 
为 函数 赋值 次 数 ，algorithm 为 使 用 的 算法 。fun 是 目标 函数 的 字符 囊 或 者 内 联 函数 inline 的 句柄 ， 
此 外 对 于 非常 复杂 的 目标 函数 表达 式 可 以 书写 函数 文件 来 定义 ox1 和 x2 分 别 为 变量 的 下 界 和 上 界 。 
options 是 优化 参数 选项 。 

例 10-5: 求 下 面 函 数 在 区 间 (1, 5) 内 的 最 小 值 。 


SIn 芒 


(zx)= 一 一 二 3xCOSX 
天 


分 析 : 首先 需要 定义 需要 求解 的 函数 fun， 然 后 用 [x, fval] = fminbnd(fun, xl, x2) 来 进行 求解 。 
根据 上 面 介绍 函数 fminbnd 的 用 法 ， 编 写 如 下 程序 : 





fun = inline('[sin(x)/x^2+3xxx*Ccos(X)]') 7 # 定义 函数 ， 也 可 以 写 为 “fun 
=' [sin(x)/Xx^2+3wXx#CoSs (X) ] 7 
[x，fval，exitflag，output] = fminbnd(fun，1，5) sg 进行 非 线 性 规划 


程序 输出 下 面 结 果 ， 


和 3.4314 

fval = -9.8892 

exitflag = 1 

Output = iterations: 9 
funcCount : 11 


函数 fmincon 可 以 用 来 求解 多 元 非 线性 规划 问题 ， 其 调用 格式 为 : 
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[x，fval，exitflag，output，1lambda，grad，hessian]j = fmincon(fun，x0，&A，b，Redq， 
BeqG，Lb，Ub，nonlcon，options): 


参数 说 明 : 参数 x，fval，exitflag 意义 同 前 面 的 函数 fminbnd。output 给 出 了 输出 信息 ， 包 括 
迭代 次 数 iterations、 函 数 赋 值 次 数 funccount、 步 长 stepsize、 所 使 用 的 算法 algorithm、 一 阶 优化 
的 度量 firstorderopt、PCG 和 迭代 次 数 cgiterations 等 。lambda 是 Lagrange 乘 子 ， 它 决定 哪 一 个 约 
束 有 效 : 下 界 约束 lower、 上 界 约束 upper、 线 性 等 式 约束 eqlin、 非 线性 等 式 约束 eqnonlin、 线 性 
不 等 式 约束 ineqlin、 非 线性 不 等 式 ineqnonlin。grad 是 目标 函数 在 x 处 的 梯度 。hessian 是 目标 函 
数 在 x 处 的 Hessiab 值 。A，b 和 Aeq，Beq 是 决定 参数 范围 约束 不 等 式 和 等 式 的 系数 和 矩阵 。Lb 和 
Ub 分 别 是 下 界 和 上 界 。nonlcon 通过 接受 的 向 量 x 来 计算 非 线性 不 等 约束 C (X) < 0 和 等 式 约 束 
Cu。 (x) = 0 分 别 在 x 处 的 估计 C 和 Ceq， 通 过 指定 函数 柄 来 使 用 ( 其 中 非 线 性 不 等 式 和 等 式 约束 
在 nonlcon.m 中 定义 ， 具 体 使 用 见 下 面 的 例子 )。options 参数 可 以 通过 optimset 函数 来 设 定 。 

例 10-6: 求解 下 面 的 非 线 性 函数 。 

(ny)=sin( 妇 -3y7)+e cosy 
一 K 二 (》 一 2 >0 
X 一 2y+LI>0 

分 析 : 在 求解 时 ， 可 以 先 定义 约 束 不 等 式 ， 然 后 定义 求解 函数 fun， 最 后 用 多 元 非 线性 规划 函 
数 来 求解 。 本 问题 中 约束 条 件 只 有 非 线性 和 线性 不 等 式 ， 其 他 约束 条 件 可 以 选择 为 空 。 

其 中 非 线性 不 等 式 约 束 要 通过 下 面 的 文件 定义 : 


约束 条 件 为 : | 


function [Cc,CceG] =nonlconl (x) ; 


C=x(1)-[x(2)-2] .^2; g% 非 线 性 不 等 式 约束 

Ceq=[]:; g 把 非 线性 等 式 设置 为 空 
主 程序 可 如 下 书写 : 

fun = 'Sin(x(1)^2-3*X(2))+exp(-x(1)^2)*cos(X(2)) 7; 

x0 = [1.2，1]; 

&A= [-1，2]; 

Dp = 1， 

[x，fval，exitflag，output，1lLambda，grad，hessian] =... 
fmincon(fun，x0，RA，b，[]，[]，[]，[]，e@nonlconl) 
上 述 程序 的 执行 结果 是 : 

Active Constraints: 2 

X 1.1398 0.9324 

fval = -0.8348 

eXxitf1l1ag = 1 

Output = ieracions: 4 


funcCount: 20 
Sepsize: 工 
algorithm: 'medium-scale: SQP，Quasi-Newton，1ine-search' 
firstorderopt: 2.6799e-005 
cg9iterations: [] 
1ambaa = lower: [2xl doublel] 
Upper: [2xl double] 
eqlin: [0xl double] 
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ecnonlin: [0xl doublel] 
ineqlin: 0 
inedqnonlin: 0.2047 
grad = -0.2048 
-0.4372 
hessian = 
5.9278 -6.2136 
-6.2136 8.6473 


例 10-7: 求 下 面 函数 在 初始 点 x0= {( 0，1，1 ) 处 的 最 小 值 。 
夏 (zyz)= 区 十 冯 十 克 
| y+2z=2 
约束 条 件 为 : 1 ， “， ， 
X 二 +zZ =4 
分 析 : 对 于 本 问题 的 求解 ， 需 要 先 定义 非 线 性 约束 等 式 ， 其 由 一 个 专门 的 函数 文件 来 完成 ， 然 
后 定义 目标 函数 fun， 最 后 用 多 元 非 线 性 规划 函数 来 求解 。 这 里 约束 条 件 是 等 式 型 ， 其 他 不 等 式 约 
束 条 件 可 以 设置 为 空 。 
其 中 非 线性 等 式 约束 要 通过 下 面 的 文件 定义 ; 
funccion [C,CeG]=nonlcon2 (X) ; 


C= []， g 非 线性 不 等 式 约束 
ceqg = x(1)^2+x(2)^2+x(3)^2-4; sg 把 非 线性 等 式 设置 为 空 


相关 主 程序 如 下 : 
fun = 'Xx(1L1)*Xx(2)+X(2)*X(3)+X(1LI)wX(3) 7 


Xx0 = [0，1，1]7? 
ahed = [2，1，2]; 


Beqd = 2; 
[x，fval] = fmincon(fun，x0，[]，[]，aAeq，Beg，[]，[]，enonlcon2) 
上 述 程序 输出 : 


Active ConstraintSs: 

1 

2 
芒 , 己 0.8889 -1.5556 0.8889 
fval = -1.9753 


这 表明 一 个 收敛 的 最 小 值 被 求 出 。 

函数 quadprog 可 以 用 来 求解 二 次 规划 问题 ， 其 完整 调用 格式 为 : 
[x，fval，exitflag，output，1l1ambda] = quadprog(H，E，&A，b，Aeq，Beq，Lb，Ub，x0， 
options) 


参数 说 明 : 参数 x，fval，exitflag，output，lambda，A，b，Aeq，Beq，Lb，Ub，x0，options 
与 函数 fmincon 和 fminbnd 的 用 法 相同 。 参数 H 和 f 是 二 次 型 中 的 参数 , 具体 定义 可 以 从 下 面 的 例 
子 获得 。 

例 10-8: 求解 下 面 的 二 次 规划 问题 。 

j( 友 )=2x0 十 改 十 3 为 如 一 2 一 5 
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2 +Sm <6 
7 为 一 22 > 一 
为 +3xz <7 
司 二 0,p>1 
分 析 : 对 于 本 问题 的 求解 ， 约束 条 件 含有 线性 约束 不 等 式 和 下 界 条 件 ， 目 标 函 数 是 一 个 二 次 型 
函数 。 在 定义 了 目标 函数 和 约束 条 件 之 后 ， 可 以 调用 多 元 非 线 性 规划 函数 来 求解 。 而 二 次 型 的 标准 


格 式 为 1 = 二 He+ 放 ， 其 中 x=[ 罗 和] ， 令 -| 于 | /| ， 有 


1O=5x 二 辣 辣 证 网 革 号 +( 名 十 铬 ) 居 5 十 名 辣 ] 7 二 5 。 其 中 


取 及 ;= 用 | ， 我 们 对 比 问题 中 的 二 次 型 可 以 得 出 矩阵 吾 和 向 量 /的 取 值 ， a|; 出 7-| 引 . 
约束 条 件 的 系数 类 似 前 面 的 例子 即 可 确定 出 来 。 程 序 如 下 ， 


[4 325 3 2] 和 

[-2，-5]: 

[2，5; -7，2; 1，3]; 

[6; 1 7]， 

Lb = [0，1]， 

[x，ftval，exitflag，output，1lambda] = quadprog(H，f，A，b，[]，[]，Lb) 


约束 条 件 为 : 


口 z mh 工 
相 相 相亲 


这 段 程序 输出 结果 是 : 


X = 0.1795 
1.1282 

fval = -4.0552 

exitflag = 1 

Output = iterations: 2 

algorithm: 'medium-scale: active-set' 
firstorderopt: [] 
cgiterations: [] 

lambdqa = Lower: [2xl doublej] 
upper: [2xl doublel] 
eqlin: [0xl doublel] 

ineqlin: [3xl doublelj] 


通过 检查 lambda 下 面 4 项 可 以 知道 相关 约束 是 否 有 效 ， 


lambda .lower 
ans = 0 

0 
1ambda ,upper 
ans = 0 

0 
1ambda .ineqlin 
angs = 0.2880 

0.3826 

0 
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0 表示 相应 约束 无 效 ， 因 此 上 面 结 果 表 明 仅 线性 约束 的 前 两 项 有 效 ， 其 他 约束 无 效 。 
为 了 方便 确定 二 次 型 系数 矩阵， 作者 设计 了 函数 文件 quadcoef,m， 该 函数 的 调用 方法 如 下 : 


fun = "x^2+Y^2+3wXwYy-2xX-5AY 7 
[HL1，fl] = quadqcoeff (fun) 


fun = 'X^2+Y^2+2wZ^2+3wXRY-2ZwX~5wY+Z1 7 
[E2，f2] = quadcoeff(fun) 
返回 下 面 的 结果 
H1 = 2 3 
3 2 
E1 = =2 -5 
H2 = 2 王 0 
3 2 0 
0 0 人 
Et2 = -2 -5 芝 


先是 对 函数 表达 式 各 变量 求 一 次 导数 ， 再 把 所 有 变量 赋值 为 0， 就 可 以 得 到 f 对 应 的 系数 ; 依 
次 对 各 变量 求 二 次 偏 导数 将 得 到 H 的 系数 。 在 使 用 函数 quadcoeff 的 时 候 应 该 注意 : 变量 的 顺序 
是 按 英文 字母 的 顺序 排列 的 ， 即 a~z， 而 且 函 数 表 达 式 里 面 的 变量 只 能 用 小 写字 母 ， 此 外 函数 表 
达 式 需要 合法 。 利 用 这 个 函数 就 可 以 方便 地 计算 出 二 次 型 问题 中 的 系数 和 矩 阵 了 。 

例 10-9: 计算 下 面 的 二 次 规划 问题 。 


(各 ,入 ,区 ) 天 = 台 十 2 对 十 32 十 4 对 十 后 扩 十 为 敬一 六 十 为 


为 十 驻 =1 
约束 条 件 为 : 5 
分 析 : 对 于 本 问题 的 求解 ， 约 束 条 件 只 是 线性 约束 等 式 ， 目 标 函 数 是 一 个 二 次 型 函数 。 在 定义 
了 目标 函数 和 约束 条 件 之 后 , 可 以 调用 多 元 非 线性 规划 函数 来 求解 。 而 二 次 型 系数 矩阵 的 提取 可 以 
调用 前 面 定义 的 函数 quadcoeff 来 计算 。 程 序 如 下 ; 


fun = 'u^2+2*x^2+3*Y^2+4*Z^2+Xx*y+YyxAZ-ufy' 1 % 对 应 关系 是 一 为 ， x 一 加 ，Y 一 为 ， 


2 一 贡 


[H,f] =quadcoeff(fun) ; # 计算 二 次 型 系数 
[x，fval] = quadprog(H，f，[]，[]，[1，0，0，1;0，2，1，0]，[1,2]) $% 二 次 规划 


上 述 程序 输出 如 下 ; 
x = 0.9175 
0.9924 
0.0152 
0.0825 
fval =1.9535 
函数 fseminf 可 以 用 来 求解 半 无 限 有 约束 多 元 函数 最 优 解 问题 ， 其 调用 格式 为 : 


[x,fval,exitflag，output,1Lambdqa] = 
fseminf (fun,x0,Ntheta,Sseminftcon,A,b,heq,beq,1lb,ub,options) 
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参数 说 明 : 参数 x，fval，exitflag，output，lambda，fun，x0，A，b，Aeq，beq，Ib，ub， 
options 的 意义 同 前 面 的 函数 ， 这 里 不 再 乾 述 。Ntheta 是 半 无 限 约束 的 个 数 。seminfcon 用 来 确定 
非 线性 不 等 式 和 等 式 约束 函数 文件 名 ， 具 体 定 义 可 参考 下 面 的 例子 。 

例 10-10: 求 下 面 的 最 优化 问题 。 

Fl)=( 必 一 0.2) 二 ( 冯 一 0.3 六 二 (入 一 0.4) 

记 人 网 的 的 击 二 下 0 的 二] 生生 和 

中 (pw)=sin(wx)-0.2+2sin(wz)+3cos(w 妈 )<3 

其 中 Wi 是 奇数 ， 且 1< WwW <9 。 凡 是 偶数 ， 且 2<w <8。 

分 析 : 本 问题 的 约束 条 件 只 是 半 无 限 约 束 ， 这 个 约束 条 件 需 要 专门 定义 一 个 函数 来 实现 。 目 标 
函数 是 一 个 非 线性 函数 。 在 定义 了 目标 函数 和 约束 条 件 之 后 ,可 以 调用 多 元 非 线 性 规划 函数 fseminf 
来 求解 。 首 先 编写 函数 文件 myseminfcon.m 定义 这 两 个 半 无 限 约束 条 件 。 
function [C,Ceq,PHI1,PHI2,S] = myseminftcon(X,S); 


if isnan(S(1,1)); sg% 定义 半 无 限 有 约束 
S = [2，0; 2，0]; s# 初始 化 样本 间 下 

end 

wl = 1:S(1,1):9; g% 产生 样本 集 

w2 =.2:S(2,1):8; 

PHI1 = sin(wl*X(1))- % 计算 半 无 限 约束 

0.1+2*cos(wLI*X(2))+4*Sin(wlwX(3) )-27 

PHI2 = sin(w2*X(1))-0.2+2*Ssin(w2*X(2))+4*CoSs (w2wX(3))-37 


C= 【]，ceq=[ ]， sg 设置 非 线 性 约束 为 空 
plot (w1,PHI1，'- 4 WwW2,PHI2，' :1); g 绘制 半 无 限 约束 条 件 曲线 
ticle('Semi-infinite ConstLraintSs')， 
下 面 是 主 程序 : 
fun = '[x(1)-0.2]^2+[x(2)-0.3]^4+[x(3)-0.4]^6'7 s 定义 目标 函数 
x0 = [0.1,0.1,0.1]; g 设置 初 值 
[x, fval] = fseminf(fun,x0,2,emyseminfcon) % 进行 优化 计算 
输出 如 下 结果 
RActive Constraints: 
工 
2 
天 志 0.0331 -0.2221 0.0290 


fval = 0.1048 


输出 半 无 限 约 束 条 件 曲线 如 图 10.7 所 示 。 


Semy infiriie conseanis cearve 
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图 10.7 ”约束 条 件 曲线 
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函数 fminimax 可 以 用 来 计算 极 小 化 极 大 ( Minmax ) 问题 ， 其 调用 格式 如 下 : 


[x,fval,maxtval,exitftlag,output,1lambda] = 
fminimax(fun,x0,aA,b,aAeq,beq,lb,ub,nonlcon，options) 


这 里 参数 fval 是 目标 函数 的 最 小 值 ，maxfval 是 目标 函数 在 x 处 的 最 大 值 ， 其 他 参 
0。 歼 与 前 面 介绍 的 相同 。 


例 10-11: 求 下 面 函 数 最 大 值 的 最 小 化 问题 。 
P(z)=[ 丰 (z, 太 ()， 万 ( 直 天 (六 (z]， xz=[x] 
矿 (z)= 好 +2 寻 十 45 一 7 
万 ( 裤 = 刀 一 4 
其 中 | 万 (z= 厂 +2a 
及 (z) = 悟 一 22 
万 (zJ)=2X+5z 
分 析 : 本 问题 的 目标 函数 是 由 多 个 函数 组 成 的 , 是 一 个 最 大 值 最 小 化 问题 。 目 标 函数 的 定义 需 
要 建立 一 个 函数 文件 。 不 存在 约束 条 件 。 在 定义 了 目标 函数 之 后 ， 就 可 以 调用 多 元 非 线 性 规划 函数 
fminimax 来 求解 了 。 利 用 下 面 的 程序 定义 目标 函数 : 
function Y = myfun3 (X) 
Y(1)= X(1)^2+2xX(2)^2+4*X(1)-7sX(2) 7 
YyY(2)= X(1)^2-4ax(2)^5; 
Y(3)= X(1)+2xwX(2): 


Y(4)= X(1I)-2*Xx(2)7 
Y(5)= 2x*x(1)+5x*x(2)7 


主 程序 如 下 : 


x0 = [0.1; 8]:; 
[x,fval,maxtval] = fminimax(emyfun3,x0) 


计算 结果 如 下 : 


Active Constraints: 
工 


2 
3 
X = -4.8288 
1.4456 
fval = -1v9375: = 一 1.9375，: 一 9375-- -7.7201: - ~2.4295 


maxfval = -1.9375 
函数 伯 oalattain 可 以 用 来 计算 多 目标 规划 问题 ， 其 完整 调用 格式 如 下 ， 


[x,fval,attainfactor,exitflag，output,1ambda] = 
fgoalattaintftun,x0,goal,weight,A,b,aeg,beg,1lb，ub,nonlcon,options); 


参数 说 明 : goal 是 用 户 设计 的 目标 函数 值 向 量 ;weight 是 权 值 系数 向 量 ， 用 于 控制 目标 函数 
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与 用 户 自 定义 目标 值 的 接近 程度 ，fval 是 多 目标 函数 在 x 处 的 值 ; attainfactor 为 解 x 处 的 目标 规划 
因子 。 其 他 参数 与 前 面 函 数 的 意义 相同 。 


t=(4+BKD)x+ 
例 10-12: 计算 一 个 线性 微分 方程 系统 ， 该 | 人 Se 


y= Dr 
-05 0 0 1 0 
其 中 4=| 0 -2 10|，B=|-2 2|， o-|。 0 | 
0 1 -2 但 


要 求 该 系统 在 复 平 面 实 轴 上 点 [-5,-3,-] 的 左 侧 有 极点 ， 同 时 1Kv 长 4 (5J=12) 。 

分 析 : 这 个 问题 中 矩阵 玉 是 未 知 的， 通过 设计 “系统 在 复 平面 实 轴 上 点 [-5, -3, - 习 的 左 侧 有 极 
点 ”这 一 条 件 来 建立 优化 任务 。 这 个 问题 属于 多 目标 规划 问题 ， 约 束 条 件 为 矩阵 及 各 元 素 存在 上 
下 界 。 在 定义 了 目标 函数 和 约束 条 件 之 后 就 可 以 调用 多 目标 规划 函数 fgoalattain 来 求解 了 。 本 问题 
相关 程序 如 下 : 


fun = inline('sort(eig(R+BxKxD)) Ka BID')) gs 定义 目标 函数 
A=[-0.500; 0 -2 10;01 -2]); 

B= [10; -2 2; 0 1]” 

D= [100; 001]， 

K0O = [-1 -1; -1 -1]:; gg 初始 化 控制 器 矩阵 

goal = [-5 -3 -1]; g 为 闭合 环 路 的 特征 值 { 极点 ) 设置 目标 值 向 量 
weight = abs(goal) g% 设置 权 值 向量 


lb = -4*ones(size(KO) ); gs 设置 控制 器 的 下 界 

ub = 4x*ones(size(K0) )， % 设置 控制 串 的 上 界 

options = optimset('Display','iter');  $% 显示 每 次 迭代 的 输出 

[K, fval,attainfactor] = fgoalattain(fun,K0O,goal,weight,[],[],[],[I],1lb,ub,[],... 
options,R,B,D) % 计算 多 目标 规划 问题 


输出 如 下 : 
weight = 5 | 吉 
RARttainment Directional 
Iter FE-COuUnt factor Scep-size derivative Procedure 
骨 13 1.061 1 | 
2 20 0.4211 1 -0.679 
3 光 -0.06352 1 -0.523 Hessian modified 
4 34 -~0.1571 1 -0.053 Hessian modified twice 
5 41 -0.3489 1 -0.133 
6 48 -0.3643 工 -0.00768 Hessian modified 
有 55 -0.3645 于 -4.25e-005 Hessian modifieda 
8 62 -0.3674 工 =0.00303 Hessian modified twice 
9 69 -0.3806 1 -0.0213 Hessian modifiedG 
10 76 -0.3862 1 0.00266 
11 83 -0.3863 1 -2.73e-005 Hessian modified twice 
TI2 90 -0.3863 1 -1.21e-013 Hessian modified twice 
Active ConsttaintSs: 
1 
2 
4 
9 
10 
XK= -4.0000 -0.2564 
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-4.0000 -4.0000 
fval = -6.9313 
-4.1588 
-1.4099 
attainfactor = -0.3863 


函数 lsqlin 可 以 用 来 解决 最 小 二 乘 最 优 问 题 ， 其 完整 调用 格式 为 ; 


[x,resnorm,residual,exitflag，output,1ambda] = 
lsqlin(c,d,A,b,aAeg,beg,1lb,ub,x0,options); 

参数 说 明 : 参数 C 和 d 是 用 来 定义 目标 函数 方程 Cx=d 的 。resnorm 是 C*x-d 的 2- 范 数 ， 即 
norm(C*x-d) ^2。residual 是 残 差 ， 即 residual=C*x-d。 其 他 参数 的 意义 同 前 面 的 函数 。 

例 10-13: 求 下 面 系统 的 最 小 二 乘 解 。 

分 析 : 函数 是 Cx=d， 其 中 C=magic(4) ，d=[1:4]。 约 束 为 “rand(state',0);A=rand(3,4); 
b=rand(3,1);” 且 所 有 变量 的 上 下 界 是 1 和 -0.2。 该 问题 的 完整 程序 如 下 ， 


C = magic(4)， g 定义 目标 方程 系数 矩阵 
d= [1:4]; g 定义 目标 方程 系数 向 量 
rand{('Sstate',0); 
有 R = rand(3,4) # 定义 约束 条 件 
b = rand(3,1); $% 定义 约束 条 件 
lb = -0.1*ones(1,4); g% 定义 下 界 
ub = 2*ones(1,4); 当 定义 上 界 
[x, resnorm,residual,exitflag,output,1lambda] = lsqalin(c,d,a,b,[ ],[ ],1lb,ub) # 优化 计算 
上 述 程序 的 输出 是 
Optimization terminateG successful1ly。. 
X = 0.1365 
0.3343 
-0.1000 
-0.1000 
reSsnorm = 2.0333 
residual = 0.2532 
0.5596 
-1.2313 
-0.3741 
exitflag = 1 


Output = iterations: 4 
algorithm: 'medium-scale: active-set， 
firstorderopt: [] 
cg9iterations: [] 
lambaa = lower: [4xl double] 
Upper: [4xl doublel] 
eqlin: [0xl1 doublel] 
ineqlin: [3xl doublel] 


其 中 非 线性 不 等 式 约束 是 否 有 效 可 以 通过 lambda.ineqlin 取 值 查 看 。 
10.3 利用 极 值 画 包 络 线 
“ 包 络 线 ” 是 一 个 高 频 调 幅 信号 ， 它 的 幅度 是 按 低频 调制 信号 变化 的 。 如 果 把 高 频 调幅 信号 的 
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峰 点 连接 起 来 ， 就 可 以 得 到 一 个 与 低频 调制 信号 相对 应 的 曲线 ， 这 条 曲线 就 是 ( 上 ) 包 络 线 。 相 应 
地 把 所 有 谷底 的 点 按 次 序 连 起 来 就 是 ( 下 ) 包 络 线 。 在 很 多 振动 剧烈 的 曲线 的 包 络 往往 是 节奏 变化 
的 曲线 。 在 计算 包 络 线 的 时 候 上 面 提 到 的 峰值 点 和 谷底 点 就 分 别 是 数据 的 极 大 值 点 和 极 小 值 点 。 

Wang Leii 于 2003 年 发 布 了 一 个 绘制 包 络 线 的 程序 ， 该 程序 实现 了 如 图 10.8 所 示 中 虚线 框 以 
外 的 部 分 。 这 里 在 该 程序 基础 上 增加 了 端点 处 理 的 补充 ,使 得 上 下 包 络 线 完 全 夹 住 了 数据 。 光 盘 中 
完整 程序 文件 名 是 envelopeL.m。 


[ 概 大 舍 点 | 
-> 
图 10.8 计算 包 络 线 的 流程 
如 图 10.9 所 示 ， 一 组 变化 剧烈 的 数据 存在 着 一 个 明显 的 轮廓 线 。 该 曲线 的 函数 表达 式 是 
y=sinxsin(20x) 。 可 以 借助 上 面 的 envelopeL 程序 计算 其 上 下 包 络 线 。 这 里 只 显示 结果 ( 如 图 10.10 
所 示 ， 其 完整 程序 可 以 参阅 光盘 中 的 envelopeL_testm 文件 )， 其 中 包 络 线 用 红色 虚线 标识 。 


T 








三 7 8 9 


图 10.9 剧烈 振动 的 数据 





了 


生 
图 10.10 “不同 插值 参数 下 的 包 络 线 
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可 以 发 现 除了 插值 参数 nearest 下 的 包 络 线 类 似 台 阶 状 外 ， 其 他 参数 大 体 相同 ， 在 用 的 时 候 用 
户 可 以 根据 自己 的 喜好 进行 选择 。 接 下 来 ,考虑 一 种 存在 两 侧 极 大 值 的 情况 。 剧 烈 振荡 的 函数 表达 
式 如 下 : 


=|e 4 二 
5 








该 函数 的 曲线 如 图 10.11 所 示 。 





图 10.11 剧烈 振荡 的 函数 曲线 
画 出 外 层 极 大 值 对 应 的 包 络 线 ， 利 用 前 面 的 envelopeL 程序 ( 使 用 插值 参数 cubic ) 得 到 如 图 
10.12 所 示 的 图 形 。 








图 10.12 ”利用 函数 envelopelL 得 到 的 包 络 线 
10.12 不 是 我 们 需要 的 结果 。 在 图 10:11 中 , 一 些 极 大 值 是 不 需要 的 ， 只 需要 最 外 层 的 极 大 
值 。 而 程序 envelopeL 只 是 根据 所 有 极 大 值 计算 而 返回 上 包 络 线 ， 因此 这 个 程序 无 法 完成 要 求 。 为 
了 剔除 轮廓 内 部 的 极 大 值 , 可 以 使 用 计算 两 次 极 大 值 的 思路 处 理 ( 其 中 两 端点 处 理 使 用 一 次 函数 进 
行 拟 合 、 插 值 而 获得 )， 所 得 结果 如 图 10.13 所 示 。 





- 
图 10.13 ”两 次 计算 极 大 值 而 得 到 的 包 络 线 


如 图 10.13 所 示 正 是 所 期 望 的 。 相 关 计 算 由 光盘 中 的 envelopeL2.m 文件 完成 。 


本 晤 可 可 243 


MATLAB 科学 计算 与 可 视 化 仿真 宝典 > > > 戎 
10.4 小 结 


本 章 主 要 研究 了 离散 数据 和 连续 函数 的 最 值 问题 。 首先 介 绍 了 极 大 值 和 极 小 值 的 计算 方法 。 其 
中 连续 函数 的 极 值 点 可 以 通过 计算 函数 的 一 阶 ( 偏 ) 导数 获得 ， 通 过 计算 二 阶 { 偏 ) 导数 来 判断 极 
大 值 还 是 极 小 值 。 离散 情况 极 值 的 计算 主要 是 通过 差分 代替 导数 来 计算 的 ,此 外 基于 邻近 数据 的 大 
小 关系 也 可 以 确定 出 极 值 位 置 。 然 后 介绍 了 最 值 的 计算 方法 ， 离 散 数 据 的 最 值 可 以 通过 MATLAB 
中 的 两 个 基本 函数 max 和 min 来 计算 。 对 于 连续 函数 的 最 值 问题 ， 可 以 通过 规划 问题 结合 最 优化 
工具 箱 来 计算 函数 最 小 值 ， 最 大 值 可 以 通过 简单 的 数学 变换 用 求 最 小 值 的 办 法 获取 。 最 后 结合 极 值 
的 应 用 ， 介 绍 了 离散 数据 包 络 线 的 计算 方法 。 


合 全 全 
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第 中 章 随机 数 的 应 用 


9 随机 数 的 产生 方法 ”介绍 不 同 分 布 的 随机 数 、 随 机 排序 。 

人 随机 数 的 使 用 给 出 两 个 实例 介绍 使 用 方法 。 

@ 统计 量 的 计算 ”介绍 均值 、 方 差 、 协 方差 和 相关 系数 的 计算 。 
人 回归 分 析 介绍 线性 和 非 线 性 回归 分 析 。 


随机 数 在 信号 图 像 处 理 、 统 计 物 理 和 随机 过 程 等 问题 中 有 着 重要 的 应 用 。 尽管 计算 机 生成 的 随 
机 数 是 一 种 伪 随 机 数 ， 它 不 是 真正 意义 上 的 随机 数 ， 但 是 这 样 的 伪 随 机 数 仍 可 认为 是 随机 的 ， 它 具 
有 不 可 预测 性 。 本 章 对 于 各 类 分 布 形式 的 随机 数 给 出 了 详细 讲解 , 并 且 通 过 实际 例子 介绍 随机 数 的 
使 用 。 


11.1 随机 数 的 产生 


本 节 主 要 介绍 产生 不 同 概率 分 布 的 随机 数 及 其 使 用 方法 MATLAB 为 使 用 者 提供 了 多 种 随机 函 
数 ， 它 们 大 多 数 存 放 在 自 带 的 统计 工具 箱 之 中 ， 比 如 正 态 分 布 、Beta 分 布 和 泊 松 分 布 等 。 统 计 工 
具 箱 被 放置 在 路 径 \MATLAB6p5\toolbox\stats 中 ， 用 户 可 以 进入 这 个 路 径 查阅 更 多 信息 。 


11.1.1 一 般 的 随机 函数 调用 格式 


在 MATLAB 中 使 用 随机 数 时 ， 有 时 希望 每 次 开启 MATLAB 之 后 ， 运 行 随机 数 的 程序 都 得 到 同 
一 个 结果 。 为 此 建议 大 家 首先 设置 一 下 随机 函数 的 状态 ， 即 设 定 state 的 取 值 ( MATLABr 5.0 版 本 
之 前 称 为 seed， 之 后 的 版 本 seed 同样 可 以 使 用 )， 具 体 方法 如 下 : 


rand('State' ,ml) 
randn{('State' ,nl): 


这 里 m 和 nm 是 随机 函数 的 状态 , 它们 可 以 是 一 个 任意 的 数值 , 可 以 是 double 型 数据 , 此 如 1， 
3 等 ， 也 可 以 依据 当前 时 钟 数 值 取 值 ， 比 如 sum(100*clock)。 在 实际 应 用 中 我 们 希望 含 随机 数 
的 程序 每 次 开启 MATLAB 时 运行 结果 都 一 样 ， 所 以 应 设置 m 和 nm 为 定 值 。 


ESSAN 语句 “randCstate'm)j;” 可 以 控制 除 randn 以 外 贿 机 函数 的 状态 ， 语 各 
法 京 “randnCstatevn;” 可 以 控制 除 rand 以 外 随机 函数 的 状态 。 


在 实际 应 用 中 ， 经 常 使 用 的 随机 函数 是 rand， 它 产生 0~1 之 间 均 匀 分 布 的 随机 数 。 扩 展 到 在 
任意 两 个 数值 之 间 产 生 均 匀 分 布 随机 数 的 方法 可 以 采用 下 面 的 程序 : 


己 = 26; 
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瑟 = 县 7 
rand('state',12)) sg 设 定 状态 为 12 
x=a+(b-ah *rand(5) % 产 生 a 和 b 之 间 的 随机 数 


输出 如 下 : 


x= 14.4156 5.5101 19.0885 7.8407 24.2386 
9.4955 11.0821 15.8734 18.4781 6.2287 
11.3599 4.3799 10.7317 10.4987 5:9698 
4.7910 12.4768 25.9685 24.9660 9.7228 
23.6205 13.2365 13.8334 5.8182 24.5396 


这 里 a 和 b 取 值 不 等 即 可 ， 没 有 大 小 关系 限制 。rand 函数 可 以 用 下 面 几 种 调用 格式 : 


randQ 
rand(N) 

rand{(N,M) 

rand(N,M,P,...) 

它们 依次 产生 0 维 ( 单个 数值 ) 1 维 、2 维和 高 维 数组 。 产 生 正 态 分 布 ( 或 者 称 为 高 斯 分 布 ) 
的 函数 是 randn， 它 的 使 用 方法 类 似 于 rand 函数 ， 这 里 不 再 赣 述 。 在 MATLAB 中 ，rand 和 randn 
函数 是 开发 技术 人 员 骨 入 MATLAB 的 函数 ， 与 其 他 随机 函数 不 放 在 一 起 。 对 于 一 般 的 用 户 而 言 ， 
没有 特别 需要 统计 工具 箱 可 以 不 用 安装 。 

在 统计 工具 箱 中 ，random 函数 可 以 产生 多 种 分 布 的 随机 数 。 其 调用 格式 如 下 : 

R = random(' name' ,RM,N) 

其 中 name 是 分 布 的 名 称 , A 是 该 分 布 的 参数 ，M 和 N 表示 生成 矩阵 的 大 小 。 其 中 name 参数 
可 以 输入 Beta，Binomial，Chisquare，Exponential，F，Gamma，Geometric，Hypergeometric， 
Lognormal，Negative Binomial，Noncentral F，Noncentral t，Noncentral Chi-square，Normal， 
Poisson，Rayleigh，T，Uniform，Discrete Uniform ，Weibull。 

从 这 些 单词 可 以 看 出 相应 分 布 的 名 称 。 在 使 用 时 可 以 仔细 阅读 相关 帮助 文档 。 通 过 测试 ,可 以 
使 用 语句 “rand(state,m) ;” 来 控制 random 函数 的 状态 ， 而 “randnlstate',m) ;” 不 能 控制 random 
的 状态 。 在 实际 应 用 中 ， 确 定 随机 数 的 状态 还 可 以 使 用 下 面 的 方法 完成 ， 即 用 函数 save 把 当前 的 
随机 数 保 存 下 来 ， 以 后 使 用 该 随机 数 时 用 load 函数 读 入 即 可 ， 但 是 这 样 需要 产生 一 个 多 余 的 数据 
文件 。 


11.1.2 ”生成 其 他 分 布 的 随机 函数 


在 MATLAB 中 还 提供 了 一 些 专门 随机 函数 ， 如 表 11.1 所 示 ， 同 时 这 里 添加 了 关于 相应 分 布 的 
概率 密度 函数 的 数学 公式 。 


表 11.1 特殊 分 布 随机 数列 表 


函数 的 调用 格式 说 明 概率 密度 函数 
betarnd(A, B,m,m) 参数 为 A 
和 8 的 B 六 (xla, 思 = xx 和 Ju(z)/B(a.b) 
机 数 
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函数 的 调用 格式 
binornd(N,Pm,m) 


chi2rnd(N,m,m) 


exprnd(mu,m,m) 


frnd(lw,vzm,m) 


gamrnd(a,b,m,m) 


geornd(p,mm) 


hygernd(MK,Nm,m 


lognrnd(mu, sigmam,m) 


nbinrnd(p,m,m) 


说 明 
参数 为 N 
和 p 的 二 
项 分 布 
随机 数 
自由 度 
为 N 的 
卡 方 分 
布 随机 
数 
参数 为 
mu 的 指 
数 分 布 
随机 数 
第 一 自 
由 度 为 
Vi、 第 二 
自由 度 
为 v 的 F 
分 布 随 
机 数 
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( 续 表 ) 
概率 密度 函数 


Ju 人 jacorAaG 
不 (xl 上 到 xsew2/[2“2T(w/2)] 


天 


1 
1 国 = 一 en 
(xlh) 本 


加 
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函数 的 调用 格式 
ncfmd(vvz,delta,m,m) 


说 明 
参数 为 
Vi，vVva， 
delta 的 
非 中 心 F 
分 布 随 
机 数 


参数 为 v 
和 delta 
的 非 中 
心 T 分 布 
随机 数 
参数 为 v 
和 delta 
的 非 中 
心 卡 方 
分 布 随 
机 数 
参数 为 
mu 和 
sigma 的 
正 态 分 
布 随机 
数 
参数 为 
lambda 
的 泊 松 
分 布 随 
机 数 
参数 为 b 
的 瑞 利 
分 布 随 
机 数 
自由 度 
为 v 的 T 
分 布 随 
机 数 


nctrnd(vdeltam,m) 


ncx2rnd(v delta,m,m) 


normrnd(mu,sigma,m,m) 


poissrndllambdam,m) 


raylrndtb,m,) 


trnd(vm,m) 


参数 为 N 
的 均匀 
分 布 ( 离 
散 ) 随机 
数 


unidrnd(N,m,n) 
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( 续 表 ) 
概率 密度 函数 


于 + 大 


Te 


名 BOw/2vw/12+K)K 大 性 


世 
义 V2 开 02-H 
V2 十 类 


aa 








(xlv,5)= T 


VzT(w/12)2002(2+y 











1(xlua)= 
1(zDJ= 二 ea 
jx)= 斌 呈 

汪 
人 十 汪 
JIN) = 二 和 人 
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{ 续 表 ) 
函数 的 调用 格式 说 明 概率 密度 函数 
unifrnd (ab,m,n) 区 间 [a.b] | 
上 均匀 分 
布 | 连续 ) 了 (xl1a,b) = 人 (2) 
随机 数 
weibrnd(a,b,m,m) 参数 为 a 
和 b 的 威 了 
布尔 ( 韦 了 (xlabp)=abx ee” To-(z) 
伯 ) 分 布 
随机 数 
RSSN 。 函数 To (x) 确保 在 区 间 [0.1] 内 六 有 非 零 概率 值 。 工 (X) 是 Gamma 函 教 。 
) 王 忌 


人 (VE ) 是 第 一 类 贝 塞 尔 函 数 。 


表 11.1 中 所 列 函 数 的 使 用 类 似 于 rand 函数 ， 这 些 函 数 的 状态 亦 可 用 “rand(state,m);” 来 设 
定 。 这 些 分 布 往往 带 有 随机 分 布 参数 ， 在 使 用 之 前 需要 阅读 文档 ， 使 随机 数 正确 产生 。 

其 中 unidrnd 可 以 用 于 生成 随机 整数 ， 而 函数 unifnd 可 以 产生 指定 区 间 内 的 随机 数 ， 即 
unifrnd(A, B, M, N) 产 生 A 和 昌之 间 的 随机 数 ， 这 里 要 求 A<B。 如 果 A>B 系统 会 默认 为 错误 ， 返 
回 NaN。 例 如 使 用 unifrnd(40,26,3,5) 将 会 得 到 下 面 的 结果 : 
ans = NaN NaN NaN NaN NaN 


NaN NaN NaN NaN NaN 
NaN NaN NaN NaN NaN 


11.1.3 ”随机 排序 函数 类 型 
在 MATLAB 中 ，randperm 函数 可 以 用 来 生成 1 到 N 的 一 个 随机 序列 ， 如 : 


randperm(9) 
ans = 
2 9 4 8 6 3 了 5 1 


同样 地 ，randperm 函数 的 状态 需要 用 语句 “rand(state,m);” 来 控制 。 利 用 这 个 函数 可 以 对 向 
量 进行 随机 排序 ， 下 面 是 一 段 示例 程序 。 
RAR = [2,3,7,4,5,6,8,9,10]; 
randn('state' 1); s 轩 定 随机 数 的 状态 


se = randperm(length(A) ) 
RaAP = RA(se) 


输出 结果 是 : 
ap=- 10 8 4 7 6 3 .95 2 


Ap 是 A 的 一 个 随机 排列 。 类似 地 , 可 以 利用 这 个 函数 对 短 阵 的 行 或 者 列 的 顺序 进行 随机 排列 。 
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下 面 的 程序 可 以 根据 se 来 恢复 Ap 到 原来 的 向 量 A。 
[sp,Ik] = sort(se); sg#% 对 se 按 从 小 到 大 顺序 排列 


Rr = Rp(IKk) # 用 索引 ITk 把 ap 恢复 到 原来 的 顺序 
输出 结果 是 
Rr = 2 3 7 4 5 6 8 9 10 


可 以 发 现 向 量 Ar 与 A 是 相等 的 。 这 里 使 用 sort 函数 来 获得 恢复 至 原来 顺序 的 次 序 向 量 Ik。 读 
者 可 以 根据 上 面 的 方法 对 自己 的 数据 进行 排序 处 理 。 此 外 使 用 randperm 函数 还 可 以 实现 从 M 个 
数 中 选择 N 个 数 的 目的 ， 如 : 


rand('state',121) ; # 设 定 随机 函数 的 状态 

RAR = rand(1,8) g% 产生 1x8 的 随机 数 

chl = randperm(8) sg 产生 1:8 的 一 个 随机 排列 

chl = chl(1:2); g 把 chi 的 前 两 个 数 赋值 给 ch1 

ch2 = randperm(8);) 产生 1x8 的 随机 数 

ch2 = ch2{1:5); . # 把 ch2 的 前 5 个 数 赋值 给 ch2 

BL = RAR(chl)， 多 从 中 取出 chl 代表 位 置 处 的 2 个 数 . 

B2 = AM(ch2)， g 从 中 取出 ch2 代表 位 置 处 的 5 个 数 
输出 结果 是 : 

RARA= 0.6080 0.0238 0.2023 0.3817 0.1651 0.8335 “0.1721 0.2784 

BL = 0.3817 “0.1651 

B2= 0.1721 0.6080 0.3817 0.2784 “0.8335 


上 面 的 程序 实现 从 向 量 A 中 随机 地 取出 2 个 和 5 个 数 来 。 


11.1.4 计算 概率 密度 函数 的 MATLAB 函数 

给 定 x 是 随机 变量 ， 如 果 存 在 一 个 非 负 函 数 (x) ， 使 得 对 任意 实数 w bp(a<) 有 
P(a<X < 四 = 「 7/(z)dx， 则 称 (x) 为 x 的 概率 密度 函数 。 广 (x) 可 以 用 来 表示 随机 数 的 数 
字 特 征 。 概 率 密度 函数 具有 下 面 两 个 性 质 ， 

 jF(xz)>0 

e [全 7(z)dr=l 

利用 概率 密度 函数 的 第 2 个 性 质 可 以 计算 出 概率 密度 函数 中 的 未 知 参数 。 概 率 密度 函数 能 够 
给 出 随机 数 或 者 数据 取 不 同 幅 值 大 小 的 概率 ， 在 随机 振动 、 随 机 疲劳 实验 等 应 用 场合 ,常常 利用 它 


来 检测 采集 数据 的 正 态 性 及 了 解 幅 值 大 小 分 布 情况 。 
MATLAB 提供 的 计算 概率 密度 函数 列表 如 表 11.2 所 示 。 


表 11.2 计算 概率 密度 函数 的 MATLAB 函数 


调用 形式 说 明 
betapdf(x, a, b) 参数 为 a 和 b 的 B 分 布 概率 密度 函数 值 
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调用 形式 
binopdftx,n, p) 
chi2pdf(x, m) 
exppdf(x, Lambdal) 
fpdf(x, ni ns) 
gampdf(x, a, b) 
geopdffx, P) 
hygepdf(x, M, K, N) 
lognpdf(x, mu, sigma) 
nbinpdf(x, R, P) 
ncfpdf(x, ni nz, delta) 
nctpdf(x, n, delta) 
ncx2pdf(x, n, delta) 
normpdf(x, mu, sigma) 
poisspdf(x Lambda) 
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( 续 表 ) 
说 明 
参数 为 n 和 pp 的 二 项 式 分 布 概率 密度 函数 值 
自由 度 为 n 的 卡 方 分 布 概率 密度 函数 值 
参数 为 Lambda 的 指数 分 布 概率 密度 函数 值 
第 一 自由 度 为 ni、 第 二 自由 度 为 nz 的 F 分 布 概率 密度 函数 值 
参数 为 a 和 bb 的 Y 分 布 概率 密度 函数 值 
参数 为 p 的 几何 分 布 概率 密度 函数 值 
参数 为 M，K，N 的 超 几何 分 布 概率 密度 函数 值 
参数 为 mu 和 sigma 的 对 数 正 态 分 布 概率 密度 函数 值 
参数 为 R 和 已 的 负 二 项 式 分 布 概率 密度 函数 值 
参数 为 ni,，ns，delta 的 非 中 心 F 分 布 概率 密度 函数 值 
参数 为 n 和 delta 的 非 中 心 { 分布 概率 密度 函数 值 
参数 为 n 和 delta 的 非 中 心 卡 方 分 布 概率 密度 函数 值 
参数 为 mu 和 sigma 的 正 态 分 布 概率 密度 函数 值 
参数 为 Lambda 的 泊 松 分 布 的 概率 密度 函数 值 


raylpdf(x, b) 参数 为 b 的 瑞 利 分 布 概率 密度 函数 值 

tpdf(x, nm) 自由 度 为 n 的 T 分 布 概率 密度 函数 值 

unidpdf(x, m) 均匀 分 布 ( 离散 ) 概率 密度 函数 值 

unifpdf (x, a, b) [a, bj 上 均匀 分 布 { 连续 ) 概率 密度 在 x 处 的 函数 值 
weibpdf(x,a, b) 参数 为 a 和 b 的 威 布 尔 ( 韦伯 ) 分 布 概率 密度 函数 值 


此 外 还 可 以 通过 下 面 的 格式 计算 某 种 分 布 的 概率 密度 函数 
Y = pdf(name，X，R) 
其 中 name 是 分 布 的 名 称 ，X 是 变量 和 矩阵 ，A 是 分 布 的 参数 。 详 细 用 法 可 以 参考 pdf 函数 的 帮 
助 文档 。 
11.1.5 “累积 概率 值 


累积 概率 值 可 以 用 来 计算 产品 或 者 试 样 在 规定 条 件 ( 或 者 规定 参数 ) 下 符合 要 求 和 不 符合 要 求 
的 概率 。 因 此 借助 这 个 参数 可 以 来 检查 产品 的 生产 情况 、 比 较 方案 优 劣 、 确 定 项 目 可 行 性 和 风险 程 
度 ，MATLAB 提供 的 计算 累积 概率 值 的 函数 如 表 11.3 所 示 。 


表 11.3 专用 函数 的 累积 概率 值 函数 表 


调用 形式 说 明 

betacdflx, a, b) 参数 为 a 和 bb 的 帮 分 布 累积 分 布 函数 值 F)=P{X<X 
binocdf(x,n,p) 参数 为 n 和 的 二 项 分 布 的 累积 分 布 函数 值 F(X)=P{X 拓 X} 
chi2cdf(x, m) 自由 度 为 n 的 卡 方 分 布 累积 分 布 函数 值 Fx)=P{X<xX} 
expcdf(x, Lambda) 参数 为 Lambda 的 指数 分 布 累积 分 布 函数 值 Flx)=P{X<x} 
fcdf(x, ni, ns) 第 一 自由 度 为 mi、 第 二 自由 度 为 n 的 F 分 布 累积 分 布 函数 值 
gamcdf(x, a, b) 参数 为 a 和 bb 的 分 布 累积 分 布 函数 值 Fx)=P{X<x} 
geocdf(x,p) 参数 为 p 的 几何 分 布 累积 分 布 函数 值 F(x)=P{X<x} 
hygecdf(x,M,K,N) 参数 为 M，K，N 的 超 几何 分 布 累积 分 布 函数 值 

logncdf(x, mu， 参数 为 mu 和 sigma 的 对 数 正 态 分 布 累积 分 布 函数 值 

Sigmal) 

nbincdf(x, R, P) 参数 为 R 和 忠 的 负 二 项 式 分 布 概 累积 分 布 函数 值 F()=P{X<x} 


ncfcdf(x, ni na delta) “参数 为 m，na，delta 的 非 中 心 F 分 布 累积 分 布 函数 值 
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( 续 表 ) 


调用 形式 说 明 
nctcdf(x, n, delta) 参数 为 n 和 delta 的 非 中 心 了 分布 累积 分 布 函数 值 F(x)=P{X<x} 
ncx2cdf(x, n, delta) 参数 为 n 和 delta 的 非 中 心 卡 方 分 布 累积 分 布 函 数值 


normcdftx, mmu， 参数 为 mu 和 sigma 的 正 态 分 布 累积 分 布 函数 值 Flx)=P{X<x} 

sigma) 

poisscdf(x,Lambda) ”参数 为 Lambda 的 泊 松 分 布 累积 分 布 函数 值 Flx)=P{X<x} 

raylcdf(x, b) 参数 为 b 的 瑞 利 分 布 累积 分 布 函数 值 F(x)=P{X<X} 

tcdf(x, n) 自由 度 为 n 的 T 分 布 累积 分 布 函数 值 F(x)=P{X<x} 

unidcdf(x,m) 均匀 分 布 ( 离散 ) 累积 分 布 函数 值 FlxX)=P{X 三 x} 

unifcdf (x, a, b) [ab] 上 均匀 分 布 ( 连续 ) 累积 分 布 函数 值 Flx)=P{X<x} 

weibcdf(x, a, b) 参数 为 a 和 bb 的 威 布尔 { 韦伯 ) 分 布 累积 分 布 函数 值 Flx)=P{X 
私 X 





和 
累积 概率 函数 就 是 分 布 函数 F(X)=PIX 短 X} 在 x 处 的 值 。 


此 外 还 可 以 通过 下 面 的 格式 计算 某 种 分 布 的 累积 概率 函数 : 
Y = cdf (name，X，RA) ; 
其 中 name 是 分 布 的 名 称 ，X 是 变量 和 矩阵 ，A 是 分 布 的 参数 。 详 细 用 法 可 以 参考 cdf 函数 的 帮 
助 文档 。 函 数 ecdf 可 以 用 来 计算 经 验 ( Kaplan-Meier ) 累计 分 布 函数 。 
11.1.6 ” 逆 累 积分 布 函数 


在 已 知 概率 值 求 该 概率 的 分 布点 时 ， 就 要 用 到 逆 票 积分 布 函数 。 利用 这 个 函数 ， 可 以 根据 概率 
值 计算 相 关 参 数 的 取 值 ， 从 而 对 测试 对 象 的 性 能 等 指标 进行 有 效 的 估计 。MATLAB 提供 的 相关 函数 
如 表 11.4 所 示 。 


表 11.4 逆 累 积分 布 函数 


调用 形式 说 明 

betainv (x, a, b) 分 布 逆 累积 分 布 函数 
binoinv (x, n, p) 二 项 分 布 逆 累 积分 布 函数 
chi2inv (x, 站 卡 方 分 布 逆 累 积分 布 函数 
expinv (p, Lambda) 指数 分 布 逆 累积 分 布 函数 
finv (x, nu, na) F 分 布道 累积 分 布 函数 
gaminv (x, a, b) Y 分 布 逆 票 积分 布 函数 
geoinv (x, p) 几何 分 布 首 累积 分 布 函数 


hygeinv (x, M, K, N) 超 几何 分 布 送 累 积分 布 函数 

icdf(NAME, p, a, b) 计算 道 累积 分 布 函数 ， 其 用 法 类 似 于 cdf 
logninv (x, mu, sigma) ”对 数 正 态 分 布 逆 累 积分 布 函数 

nbininv (x, R, P) 负 二 项 式 分 布 送 累积 分 布 函数 

ncx2inv (x, n, delta) 非 中心 卡 方 分 布道 累积 分 布 函数 

ncfinv (x, ni, na, delta) 。 非 中 心 F 分 布道 标 积 分布 函数 

nctinv {(x, n, delta) 非 中 心 T 分 布 逆 累 积分 布 函数 
norminv(x, mu, sigma) 。 正 态 分 布 逆 昧 积分 布 函数 


poissinv (x, Lambda) 泊 松 分 布 的 逆 累 积分 布 函数 
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( 续 表 ) 
调用 形式 说 明 
raylinv (x, b) 琐 利 分 布 逆 累 积分 布 函数 
tinv (x, mn) T 分布 票 积 分 布 函数 
unidinv (p, m) 均匀 分 布 ( 离散 ) 逆 毗 积分 布 函数 ，x 为 临界 值 
unifinv (p, a, b) 均匀 分 布 ( 连续 ) 逆 栋 积分 布 函数 ( P=P{X<x}j， 求 x) 


weibinv (x,a, b) 威 布尔 ( 韦伯 ) 分 布道 累积 分 布 函数 


通过 下 面 的 格式 计算 某 种 分 布 的 逆 累 积 概率 函数 ， 


= icdf (name，X，R) 
= icdf (name，X，RA，B): 

其 中 name 是 分 布 的 名 称 ，X 是 变量 矩阵 ，A 和 日 是 随机 分 布 的 参数 。 具 体 使 用 一 个 参数 还 是 
两 个 参数 需要 根据 分 布 来 确定 。 使 用 者 可 以 根据 表 11.4 进行 选择 。 


11.2 ”随机 数 的 使 用 


在 这 一 节 中 ， 结 合 实际 问题 给 出 随机 数 使 用 的 例子 。 其 中 Galton 板 实验 是 二 项 分 布 的 一 个 经 
典 的 例子 ， 而 赌 徒 输 光 问题 是 人 们 早期 进行 概率 问题 研究 的 实例 。 


11.2.1 Galton 板 实验 


例 11-1: 模拟 Galton 板 实验 。 

一 个 8 级 Galton 板 实 验 系统 如 图 11.1 所 示 ( 该 图 由 作者 编写 的 Galton_board.m 和 
Galton_board2.m 程序 完成 在 图 (aj 中 ， 当 小 球 从 项 部 向 下 降落 时 ， 遇 到 第 一 层 坚 隔 板 ， 此 时 小 球 向 
左 落下 和 向 右 落下 的 概率 各 占 一 半 ， 即 小 球 向 左 和 向 右 运 动 的 概率 为 0.5; 当 小 球 继续 下 落 录 到 第 二 层 
坚 隔 板 时 ， 小 球 向 左 和 向 右 的 概率 仍 是 0.5， 以 后 每 一 层 情 况 都 是 如 此 ( 一 个 可 能 的 过 程 如 图 (b) 所 示 ) 
最 后 到 了 第 8 层 底 部 ， 小 球 将 落 入 底部 9 个 模 中 的 其 中 一 个 。 但 是 小 球 究竟 落 入 哪 一 个 模 内 的 概率 是 
不 一 样 的。 如 果 将 这 9 个 楼 编号 为 1，2，3，4，5，6，7，8，9， 计 算 小 球 落 入 9 个 槽 中 的 概率 。 

理论 分 析 : 这 是 一 个 经 典 的 二 项 分 布 概率 模型 。 考 虑 在 第 k 层 小 球 运动 方向 有 两 种 可 能 , 用 愉 ， 
表示 ， 则 X, 服从 两 点 概率 分 布 。 这 里 用 X, =1 表 示 竖 隔 板 向 右 侧 运动 ， 用 四 ,=0 表 示 竖 隔 板 向 
左 侧 运动 ， 它 们 发 生 的 可 能 性 都 是 50%。 


必 改 





图 11.1 Galton 板 实验 
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最 终 位 置 X 由 下 式 决定 ， 


各 三 力 : 天 
大 
可 知 X 满足 二 项 分 布 ， 即 叉 ~ 脏 (8,0.5) 。 该 二 项 分 布 的 概率 密度 可 用 下 面 的 程序 获得 ; 
bpdaf = binopdft(0:8,8,0.5); 
接 下 来 用 MATLAB 模拟 小 球 下 落 到 9 个 樟 内 的 概率 分 布 。 在 各 层 中 ， 用 0 和 1 分 别 表示 向 左 
和 向 右 运动 。 在 小 球 下 落 到 底层 的 槽 内 时 ， 一 个 8 位 的 二 进 制 数 就 完全 确定 了 。 而 所 落 入 槽 的 编 
号 应 该 是 这 个 8 位 二 进 制 数 各 数位 按 十 进 制 数 相 加 的 结果 。 重 复 模拟 小 球 下 落 过 程 8000 次 ， 可 以 


统计 出 小 球 落 入 各 覃 内 的 次 数 ( 即 频数 ) 画 出 9 个 频数 数据 的 直方 图 ， 如 图 11.2 所 示 。 相 应 程序 
如 下 : 


rapd('state',0) # 固定 随机 数 产生 状态 
R = unidrnd(2,8,8000)-1; # 产生 1-~7 的 随机 整数 
test = Sum(R) ; s 对 随机 数 求 和 
h = hist(test,9); gs 统计 各 数 出 现 的 频数 
bpdaf = binopdf(0:8,8,0.5)); # 计算 二 项 分 布 的 理论 值 
bpdf = bpdf/max(bpaf)*max(h) ; # 使 模拟 数据 与 理论 数据 保持 量 级 一 臻 
bl = bar(1:9, [hi;bpaf]')y; g 绘制 直方 图 
set (bl1(2)，'facecolor'，'w'); $% 设置 右 侧 的 直 条 填充 颜色 为 白色 
set (bl(1)，'facecolor',[0.4,0.4,0.4]); s 把 左 侧 直 条 填充 颜色 设置 为 灰色 
set (gca,'Position',[0.13 0.51 0.775 0.415]); % 重 置 坐标 轴 位 置 
上 面 程序 运行 结果 如 图 11.2 所 示 。 
2500 
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图 11.2 ”理论 与 模拟 的 频率 直方 图 比较 
在 图 11.2 中 ， 灰 色 线条 表示 模拟 值 ， 而 白色 线条 表示 理论 值 ( 其 中 把 概率 理论 值 的 最 大 值 调 
整 为 模拟 值 的 最 大 值 以 便于 比 对 ,该 程序 的 名 称 是 simulation11_1.m ), 可 以 发 现 二 者 符合 得 很 好 。 


11.2.2 ” 赌 徒 输 光 问题 


例 11-2: 赌 徒 输 光 问题 。 

两 个 赌 徒 甲 、 乙 将 进行 一 系列 赌博 。 在 每 一 局 中 四 获胜 的 概率 为 p， 而 乙 获胜 的 概率 为 q， 
p+q=1。 在 每 一 局 后 ， 失 败 者 都 要 付 一 元 钱 给 胜利 者 。 在 开始 时 甲 拥有 资本 a 元 ， 而 乙 有 资本 b 
元 ， 两 个 赌 徒 直到 甲 输 光 或 乙 输 光 而 停止 赌博 。 求 甲 输 光 所 有 钱 的 概率 。 

通过 理论 分 析 可 知 甲 输 光 所 有 钱 的 概率 是 : 
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中 
ap 2 万 
忆 = ) 和 
1 一 8 1 d 
GD 》 尸 关 亡 
1 一 8 2 


模拟 赌博 过 程 的 思路 : 在 每 一 次 模拟 中 ,随机 地 产生 1 个 数 ， 如 果 该 数 小 于 p， 说 明 峙 徒 甲 获 
胜 ， 相 应 甲 得 到 一 元 钱 ， 而 乙 付出 一 元 钱 ; 反之 甲 拿 出 一 元 钱 给 乙 。 这 里 对 甲 的 赌资 a、 乙 的 赌资 
b、 甲 亮 得 概率 p 取 不 同 数 值 进行 10000 次 赌博 过 程 模拟 ， 相 应 程序 如 下 : 


a=10); 
b=3) 
p=0.55; 
S=0; g% 计数 器 置 0 
N=10000; s 模拟 的 次 数 
m=6; gs 设 定 随机 数 状态 值 ， 改 变 这 个 值 可 以 进行 不 同 的 实验 
rand{'state'，m); s% 设置 随机 数 状态 
Etor k=1:N; 
at=a' g 初始 化 甲 的 赌资 
bc=b;  $ 初始 化 乙 的 赌资 


while at>0.5&bc>0.5); $ 模拟 整个 赌博 过 程 
r=[(rand<p)-0.5]*2;  # 算 输 启 


at = at+7 #% 交换 赌资 
bt = bt-r; 交换 赌资 
endQ 
S=S+(at<0.5); # 若 甲 输 ， 累 加 甲 输 的 次 数 
ena 
P=S/VN # 计算 甲 给 的 概率 值 
g=p/[1-p]; 
Po=[1-g^b]/[1-g^(a+b)] # 返回 甲 输 掉 所 有 赌资 概率 的 理论 值 


上 述 程 序 对 应 的 名 字 是 robbers.m。 所 有 计算 结果 如 表 11.5 所 示 。 


表 11.5 ” 赌 徒 输 光 问题 的 多 次 模拟 结果 
参数 与 理论 值 - m 


10,3,0.55 ”0.0656 0.0648 0.0648 0.0612 0.0676 0.0672 0.0638 
5,，9，0.6 0.1287 0.1227 0.1338 0.1207 0.1272 0.1269 0.1262 
5,， 7, 0.56 ”0.2584 0.2583 0.2628 0.2522 0.2599 0.2616 0.2555 
3,18,0.58 0.3790 0.3875 0.3846 0.3731 0.3890 0.3764 0.3724 
4，,15,0.55 0.4357 0.4313 0.4414 0.4347 0.4391 0.4346 0.4322 
3, 9, 0.54 ”0.5529 0.5546 0.5536 0.5439 0.5566 0.5543 0.5473 
8, 3, 0.41 “0.6768 0.6794 0.6721 0.6703 0.6777 0.6836 0.6717 
9, 3, 0.38 0.7719 0.7732 0.7728 0.7734 0.7706 0.7762 0.7737 
9, 6, 0.43 0.8278 0.8274 0.8307 0.8252 0.8300 0.8313 0.8192 


11.3 ”统计 量 的 计算 


本 节 介 绍 一 些 确定 随机 数 的 特征 参数 ,包括 均值 、 方 差 、 协 方差 和 相关 系数 等 。 它 们 对 于 随机 
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数 的 特征 描述 和 数据 分 析 等 具有 重要 的 意义 。 


11.3.1 ” 单 值 参数 


在 一 些 关 于 随机 数 或 者 实验 数据 分 析 的 时 候 ， 往 往 需要 知道 这 些 数据 的 平均 值 和 方差 等 于 多 
少 ， 以 便 和 预期 的 进行 比较 。 本 小 节 将 介绍 相关 参数 的 计算 。 


11.3.1.1 期 望 值 


函数 mean，mean2，nanmean，median，nanmedian，geomean，harmmean 的 用 法 介绍 如 下 。 
函数 mean 有 如 下 几 种 常用 的 调用 方法 ,相应 的 返回 值 都 是 平均 值 , 只 是 输入 量 有 一 定 的 差别 。 
mean (X) g 返回 向 量 X 的 均值 
mean (及 ) s 返回 矩阵 a 中 各 列 的 平均 值 
mean(&A,dim)  * 在 给 出 多 维 数组 A 相应 维 数 内 的 平均 值 
如 果 需 要 计算 矩阵 的 均值 ， 可 以 调用 格式 为 mean2(A)。 
Nanmean 函数 类 似 于 mean 函数 ， 只 是 忽略 了 nan 的 计算 。 如 : 


>> nanmean([3,nan,1]) 
ans = 2 


在 这 个 函数 中 把 nan 去 掉 ， 不 计 入 统计 平均 。 
如 果 需 要 返回 所 求 数据 的 中 值 ( 中 位 数 )， 就 可 以 调用 函数 median， 如 下 所 示 ， 


>> R=[3145;3246:;3115] 
及 = ， 1 入 5 
3 吕 : ,区 6 
3 1 5 
>> nanmedian (有 ) 
ans = 3 1 六 5 


函数 nanmedian 的 用 法 和 意义 分 别 类 似 于 函数 median 和 nanmean。 
十 TU 
geomean 函数 用 于 计算 几何 平均 数 ， 几 何平 均 数 的 数学 含义 是 : [Ts ， 其 中 路 表示 数 
K=1 
据 的 个 数 。 该 函数 的 用 法 同 mean 函数 。 


用 
harmmean 函数 计算 调和 平均 值 ， 调 和 平均 值 的 数学 含义 是 : 忆 1 ， 其 中 半 表 示 数 据 的 个 
1 
数 。 该 函数 的 用 法 同 mean 函数 。 
11,3.1.2 ”最 大 值 与 最 小 值 之 差 


range(,,.) 返 回 数 据 中 最 大 值 与 最 小 值 之 差 ， 用 法 类 似 于 mean 函数 。 该 函数 等 价 于 
max(A)-min(A)o 
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11.3.13， 方差 
方差 的 数学 定义 为 ， EX 其 中 是 数据 的 个 数 ， 交 是 相应 的 均值 。 函 数 var 
一 “大 = 


的 使 用 方法 如 下 : 


var(X) $% 返 回 向 量 X 的 方差 

var{(R) % 返 回 矩 阵 A 各 列 向 量 的 方 

var(X，1) ，$% 返 回 向 量 ( 矩阵 ) X 的 光 单方 ( 即 置 前 因子 为 1/7 的 方差 ) 
Var(X，Ww)  % 返 回 向 量 ( 和 矩阵 ) X 的 以 w 为 权重 的 方差 


口 口 口 口 
让 计 才 


11.3.1.4 标准 差 


标准 差 的 数学 定义 是 : 
1 也 了 
一 一 一 让 
iTI 生 (二 ) 
函数 std 使 用 方法 如 下 : 
std(X) s 返回 向 量 ( 矩阵 ) X 的 样本 标准 差 ( 置 前 因子 为 Y(n-l) ) 
stad(X,1) 返回 向 量 ( 矩阵 ) X 的 标准 差 ( 置 前 因子 为 1/m ) 
std(X，0) g 与 std{(X) 作用 相同 


std(X，flag，dim) #% 返回 向 量 { 矩阵 ) 中 维 数 为 dim 的 标准 差 值 ， 其 中 flag=0 时 ， 置 前 因子 为 
J/(n-1) ， 否 则 置 前 因子 为 1/m 


类 似 地 ， 函 数 nanstd 计算 忽略 NaN 的 标准 差 。 
11.3.1.5 “样本 的 偏 斜 度 
偏 斜 度 的 数学 定义 为 : 
E(x 一 /人 
Or3 
样本 数据 的 偏 斜 度 是 关于 均值 不 对 称 的 一 个 测度 , 如 果 偏 斜 度 为 负 , 说 明 均 值 左边 的 数据 比 均 


值 右边 的 数据 更 散 ; 如 果 偏 斜 度 为 正 ， 说 明 均 值 右边 的 数据 比 均值 左边 的 数据 更 散 ， 所 以 正 态 分 布 
的 偏 斜 度 为 0。 函 数 skewness 的 用 法 是 : 
skewness (X) % 返回 向 量 x 的 偏 斜 度 


skewness (R) g% 返回 矩 阵 A 各 列 的 偏 斜 度 
skewness (X,flag)  # flag=0 表示 偏 斜 纠正 ，flag=1 ( 默认 ) 表示 偏 斜 不 纠正 


可 
Y 
了 


11.3.1.6， 特 殊 分 布 的 均值 和 方差 
MATLAB 提供 了 相关 函数 计算 分 布 的 均值 和 方差 ， 这 些 函 数 一 般 的 调用 格式 为 ， 
[M，V] = functionname(P) $% NM 是 均值 ，V 是 方差 ，P 表示 分 布 的 参数 
具体 函数 的 使 用 如 表 11.6 所 示 。 
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表 11.6 “特殊 分 布 的 均值 和 方差 














调用 格式 说 明 ”均值 方差 
betastat (a， 及 分 G [ 古 
9 布 Q+D (ae+p+l)(a+b 
binostat (In， ”二 项 7 
加 
和 本 mP(1- 忆 ) 
chi2stat (x，。 卡 方 用 27 
m) 分 布 
expstat (p， ”指数 人 2 
mu) 分 布 4 
人 CT 信和 2 (w+ 一 2) 
2 
2 凡 一 2 (2) (w-4) 
分 

人 (a CD 2 
geostat (p) ”几何 加 国 2 

“人 (LI-P)/P 
hygestat 超 几 NK 天 MK AM -AN 
(MKN) 何 分  M M M Mr-l 

布 
lognstat 对 数 2 LU+202 2H+a2 
({ mu， 正 态 5 CE 6 
sigmal) 分 布 四 
和 人 r(l-P)/P r(1 一 P)/ 7 

分 布 
ncfstat 非 中 wm(5+wm) 人 (5+v) 六 +(26+w)(w -2) 
(nul, nu2， ” 心 F 分 ,>2 中 一 2 
delta) 布 (一 2) 1 多 

2 

Te (12)T(w-D2) (en] -ze rw-D712) 
delta) 几 汪 分 2 | 一 Fw2 

外 Tlv/2) v 一 2 2 T(y/2) 

yy>1 vv>2 

ncx2stat 非 中 V+O 2(v+20) 
(nu, deltaj ” 心 卡 

方 分 

布 


_  ----------- 
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( 续 表 ) 

调用 格式 说 明 均值 方差 
normstattmu， 正 态 分 “人 区 
sigma) 布 
poisstat 泊 松 分 入 入 
(ambda) 布 
raylstat ( b) 瑞 利 分 玉 FI 4-r ， 

布 一 -一 5 

2 

tstat ( T 分 布 0.v>l vv-2)， 0] 
unidstat (m) 均匀 分 2 

和 (a+pb)/2 (2=a) /12 

散 ) 
unifstat ( a， 均匀 分 2 
{a+zb)/2 (2-a) /12 

续 ) 
weibstat (a，” 威 布尔 了 7 
b ( 韦 TU+) w[F(+207)-P(+o)] 

伯 ) 分 

布 
11.3.2 ”多 值 参数 


在 比较 两 组 数据 的 相似 或 者 相关 程度 的 时 候 , 我 们 需要 对 整个 范围 内 的 情况 做 一 个 了 解 , 这 时 


仅 用 一 个 参数 是 无 法 完成 任务 的 ， 为 此 可 以 使 用 协 方差 和 相关 系数 来 描述 。 
11.3.2.1 协 方差 


协 方差 的 数学 描述 是 : [ (为 一 馈 )( 关 一 包 )] ,其 中 人 = Ex ， 色 = Exs 。 函 数 cov 的 用 


法 如 下 : 


COoV{(X) 当 返回 向 量 X 的 协 方差 
cov(R) % 返回 窍 阵 A 的 协 方差 矩阵 ， 该 协 方差 矩阵 的 对 角 线 元 素 是 aA 的 各 列 的 方差 
cov{(X,Y) ”g X 和 Y 是 等 长 列 向 量 ， 该 语句 等 同 于 cov{( [X,Y]) 


11.3.2.2， 相 关系 数 
CA 
相关 系数 的 数学 定义 为 COrrcOef 人 C=cov(X)。 
函数 corrcoef 的 调用 格式 如 下 ; 
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corrcoef (ARA) % 返回 矩 阵 a 的 列 向 量 的 相关 系数 矩 阵 
corrcoef (X,Y) sg% 返回 列 向 量 x 和 Y 的 相关 系数 ， 其 等 同 于 corrcoef ([X,Y]) 


11.4 回归 分 析 


回归 分 析 是 研究 变量 之 间 相 关 关 系 的 一 种 统计 方法 , 即 利用 统计 数据 寻求 变量 间 关 系 的 近似 表 
达 式 ( 或 者 称 为 经 验 公 式 )， 同 时 使 用 所 得 公式 进行 统计 描述 、 分 析 和 推导 ， 以 解决 预测 、 优 化 和 
控制 等 问题 。 回 归 分 析 可 以 分 为 线性 回归 和 非 线性 回归 两 种 类 型 。 

MATLAB 提供 的 回归 分 析 函 数 如 表 11.7 所 示 。 


表 11.7 回归 分 析 函 数 表 


分 类 函数 名 说 明 

线性 回归 regeress 多 元 线性 回归 
regstats 回归 统计 量 诊断 
ridge 岭 回归 
rcoplot 绘制 残 差 及 其 置信 区 间 曲 线 
frstool 多 维 响应 面 可 视 化 
robust 秽 稳健 回归 模型 拟 合 
stepwise 交互 式 逐 步 回 归 
x2fx 用 于 设计 矩阵 的 因子 设置 矩阵 

非 线性 回归 nlin 人 ff 非 线性 最 小 二 乘 数据 拟 合 ( 牛顿 法 ) 
nlintool 非 线 性 模型 拟 合 的 交互 式 图 形 工具 
nlparci 参数 的 置信 区 间 
nlpredci 预测 值 的 置信 区 间 
nnls 非 负 最 小 二 乘 

11.4.1 线性 回归 


线性 回归 包括 一 元 线性 回归 和 多 元 线性 回归 ， 这 种 回归 关于 未 知 参数 和 回归 变量 都 是 线性 关 
系 ， 其 变量 关系 可 以 表示 为 : 
7= 忆 + 有 X+DBX A++DX+E=E+ 克 +> 
大 =1 


其 中 友 被 称 为 回归 系数 ，2 是 随机 误差 ， 同 时 有 2 的 均值 和 方差 分 别 是 严 (E)= 0 和 
D(E)=@ 。 当 六 =1 时 上 述 问题 为 一 元 线性 回归 ， 当 六 >1 时 为 多 元 线性 回归 。 在 MATLAB 中 
提供 了 一 个 多 元 线性 回归 函数 regress， 该 函数 的 调用 格式 为 





[b，bint，Lr，zrint，Stats] = regress(yY，X，a) 


输入 参数 说 明 : y 为 观测 到 的 随机 变量 和 矩阵，x 为 自 变 量 矩 阵 。 若 回归 关系 中 包括 常数 项 ， 那 
么 x 的 第 一 列 应 该 全 部 等 于 1。x 和 y 应 该 有 相同 的 行 数 ，x 的 列 数 等 于 参数 的 个 数 。 当 x 为 两 列 
且 第 一 列 都 等 于 1 时 为 一 元 线性 回归 。A 是 输出 各 种 置信 区 间 用 到 的 显著 水 平 。 

输出 参数 说 明 : b 是 参数 的 点 估计 。bint 是 参数 的 区 间 估计 。r 是 残 差 的 点 估计 。rint 是 残 差 的 
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区 间 估 计 。 当 点 估计 落 在 区 间 估 计 之 外 时 ， 拒 绝 无 效 假设 。stats 中 包含 3 项 : 第 1 项 为 回归 方程 
的 决定 系数 R2?， 第 2 项 是 回归 方程 的 F 统 计量， 第 3 项 是 拒绝 无 效 假设 的 概率 。 
下 面 应 用 regress 函数 进行 回归 分 析 。 
例 11-3: 一 元 回归 分 析 。 
某 连 锁 公 司 对 其 子 公司 的 主要 产品 ( 各 不 相同 ) 进行 成 本 x 与 售 价 y 分 析 ， 得 到 10 个 不 同 地 
点 的 分 公司 的 相关 数据 ( 单位 : 元 )， 如 下 ; 
售 价 y 5.4 6.7 7.3 7.8 9.9 10.9 13.1 15.9 14.1 10.4 


成 本 x 1.5 2,1 3.2 46 7.5 9.2 10.2 12.1 11.1 8.4 


在 进行 回归 分 析 之 前 , 可 以 把 x 和 Yy 的 数据 点 用 图 形 表示 出 来 , 如 图 11.3 所 示 。 可 以 看 出 “ 斜 
十 字 ” 大 致 沿 一 条 直线 分 布 ， 因 此 我 们 考虑 进行 线性 回归 分 析 。 相 应 的 回归 分 析 程 序 如 下 : 


X = [oneg(10,1)，[1.572.1, 3.274.6,7.5,9.2，10.2,12.1, 211) 69.6]+]3> # 输入 x 数 据 
Y = [5.4,6.7,7.3,7.8,9.9,10.9,13.1,15.9,14.1,10.4]'; # 输入 Y 数 据 
[b,bint,r,rint,s]=regress(y，Xx，0.01); 多 进行 线性 回归 
b, Ss 
相应 的 输出 结果 为 : 
b = 4.1071 
0.8645 


s =0.9473 143.8458 ”0.0000 

上 面 显 示 的 计算 结果 表明 ，x 和 y 的 决定 系数 达到 了 R2=0.9473， 回 归 系 数 和 误差 都 达到 了 显 
著 水 平 ， 因 而 得 到 回归 方程 为 y=4.1071+0.864Sx 是 可 以 信赖 的 。 完 整 程序 名 称 为 
regression1.m， 数 据点 和 福 应 曲线 如 图 11.3 所 示 。 





0 2 4 6 8 10 12 14 
图 11.3 ”一 元 线性 回归 结果 图 
例 11-4: 多 元 回归 分 析 。 
某 研究 所 在 一 次 实验 中 测定 了 土壤 中 成 分 A 的 含量 x1， 成 份 B 的 含量 x2， 成 份 C 的 含量 x3， 
同时 得 到 某 农 作物 吸收 某 养 分 的 含量 y。 进行 x 和 y 的 回归 分 析 ， 建 立 x 和 Yy 之 间 的 关系 如 表 11.8 
所 示 。 
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表 11.8 多 元 回归 分 析 相 关 数 据 





X1 X2 X3 
64 0.4 53 158 
60 0.4 23 163 
71 3.1  ， 19 37 
61 0.6 34 157 
54 4.7 24 59 
77 1.7 65 123 
81 9.4 44 46 
93 10.1 31 117 
93 11.6 29 173 
51 12.6 58 112 
76 10.9 97 111 
96 23.1 46 114 
77 23.1 50 134 
93 21.6 44 73 
95 23.1 56 168 
54 1.9 36 143 
168 26.8 58 202 
99 29.9 51 124 


在 这 个 问题 中 , 自 变量 x 含有 3 个 分 量 。x 和 y 之 间 的 关系 可 能 是 线性 的 , 也 可 能 是 非 线性 的 。 
这 里 进行 多 元 线性 回归 分 析 的 尝试 ( 非 线性 回归 分 析 将 在 后 面 介绍 )， 用 下 面 的 程序 ( 完整 程序 文 
件 名 是 regression2.m ) 进行 回归 分 析 。 


[b,bint,r,rint,s]=regress(y，Xx，0.05); 多 进行 多 元 线性 回归 分 析 
b=b'，bint，s # 把 数据 b 转 置 并 显示 ， 同 时 显示 bint 和 s 


相应 的 结果 输出 为 : 


b= 43.6522 1.7848 -0.0834 0.1611 
bint = 5.0241 82.2803 
0.6315 2.9380 
-0.9793 0.8125 
-0.0784 0.4006 
鸟 = 0.5493 5.6885 0.0092 
根据 上 面 的 数据 ， 可 以 写 出 回归 方程 为 ， 
y=43.6522+1.7848x 一 0.0834x, 十 0.161125 
因为 Rz=0.5493，F=5.6885，p=0.0092<0.01， 所 以 方程 是 极 显 著 的 ， 但 未 必 每 一 个 变量 对 
y 的 贡献 都 是 极 显著 的 。 
为 了 求 出 所 有 显著 贡献 的 变量 , MATLAB 还 提供 了 一 个 逐步 计算 回归 的 函数 stepwise, 该 函数 
是 交互 图 形 工具 函数 ， 调 用 格式 是 : 


Stepwise(x，Y，inmode1l，alphal) ， 


输入 参数 说 明 : x 是 自 变 量 撼 阵 ， 其 列 数 为 自 变量 的 个 数 。 若 回归 中 有 常数 项 ， 则 x 的 第 1 列 
都 等 于 1。y 表示 函数 值 矩阵 。inmodel 为 输入 模式 ， 即 由 起 始 选择 的 自 变量 序号 组 成 ， 如 起 始 选 
择 xl 和 x3， 那 么 inmodel=[1, 3]。inmodel 的 默认 值 是 全 部 变量 ， 即 [1:size(x,2)-1]。alpha 是 显著 
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水 平 ， 表 示 排 除 和 选中 变量 用 到 的 显著 水 平 。 热 行 该 函数 后 将 会 弹出 3 个 Figure 窗口 ( 如 图 11.4 
所 示 ): 第 1 个 是 参数 估计 值 和 置信 区 间 , 决定 系数 R2 和 统计 量 F 等 ; 第 2 个 是 逐步 回归 的 历史 图 ; 
第 3 个 是 逐步 回归 诊断 表 ， 凡 是 系数 估计 值 距 0 刻度 线 很 近 且 置信 区 间 穿 越 0 刻度 线 ( 其 由 绿色 
虚线 表示 )， 人 属于 可 以 排除 的 变量 ， 反 之 远离 0 刻度 线 ， 同 时 置信 区 
间 不 穿越 0 刻度 线 ( 此 时 其 由 白色 实 线 表示 )， 那 么 该 系数 与 0 有 显著 差异 ， 该 变量 应 该 保留 ， 直 
间 和 汪 生生 人生 风 让 
执行 下 面 的 语句 : 
load hald; # 读 入 hald.mat 数据 文件 


stepwiselingredients,heat) 8% 交 互 式 的 回归 分 析 ，ingredients 相当 于 自 变量 ，heat 相当 于 函 
数值 














图 11.4 逐步 线性 回归 分 析 图 


11.4.2， 非 线性 回归 

很 多 实际 问题 往往 是 非 线性 的 ， 这 时 需要 进行 非 线性 回归 分 析 。 它 的 数学 描述 是 : 

F(xyD)=e 

其 中 是 函 数 关系 ， 工 是 自 变量 ( 它 代表 一 个 或 者 多 个 量 )，》 函数 变量 ， 克 是 待定 的 参数 ， 
E 是 随机 误差 。 假 设 已 知 样本 数据 (Xi, 关 ) , 其 中 1< 大 < 天 ， 肥 =[ 冯 、 攻 0 攻 ](a>1， 
表示 X 中 包含 参量 的 个 数 )， 那 么 可 以 得 到 下 面 的 系列 方程 

(和 有 )= 忆 

在 实际 问题 中 ， 最 常见 的 非 线性 回归 模型 为 Y 和 了 是 可 分 离 变量 的 ， 即 

(xyD)=y-8(D)=e 

这 里 8 (x,D) 被 称 为 期 望 函数 ， 在 回归 分 析 中 需要 根据 物理 意义 预先 定义 ， 它 可 以 是 多 项 


函数 、 分 式 、 指 数 函 数 以 及 三 角 函 数 等 。 
在 MATLAB 统计 工具 箱 中 提供 了 nlinfit 函数 来 实现 非 线 性 回归 分 析 ， 其 调用 格式 为 : 








[beta，r，j] = nlinfit(x，Y，modelname，beta0) ; 

参数 说 明 : 其 中 beta 是 返回 的 回归 系数 ,，r 是 残 差 ， 是 Jacoblan 和 矩阵。 输入 数据 x 和 y 分 别 
是 mxn 矩阵 和 n 维 列 向 量 , modelname 是 回归 模型 的 数学 表达 式 ，beta0 是 预先 设 定 的 回归 系数 
初 值 。 
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例 11-5: 一 元 非 线 性 回归 。 
根据 下 面 的 数据 进行 一 元 非 线 性 回归 分 析 : 
x 1 2 3 4 5 6 
y 0.39 0.44 0.45 0.46 0.47 0.48 
可 以 发 现 上 面 的 数据 之 间 不 满足 线性 关系 ， 相 关 数 据点 如 图 11.4 所 示 。 对 于 这 样 的 数据 分 布 
可 以 用 多 种 非 线 性 函数 作为 模型 。 在 这 里 选择 的 非 线性 模型 是 : 


-vi 让-_Uz 
>=8s(xD) > 


使 用 下 面 的 程序 定义 上 面 的 非 线 性 模型 ; 
funm = inline('b(1)*x./[bl2)+x]'，'b'，'x5) 7 


定义 非 线 性 函数 ， 也 可 以 写 一 个 函数 文件 来 定义 这 个 非 线 性 函数 ， 即 : 





function Y=funm(b,x) : 
Y = bl(1l)*x./[b(2)+X]7 


函数 nlinfit 可 以 用 来 完成 非 线 性 回归 分 析 , 利用 下 面 的 语句 可 以 完成 本 例子 的 非 线性 回归 过 程 
( 完整 程序 是 regression3.m )。 


X 156; 

Y [0.39，0.45，0.46，0.47，0.48，0.49]: 
beta0 = [1，1]; _ 

[beta,r,j]l = nlinfit(x，Y，funm，beta0) 
beta， 工 


0.5103 
0.3028 


-0.0017 
0.0068 
-0.0036 
-0.0044 
-0.0012 
0.0042 


相应 的 数据 和 回归 曲线 如 图 11.5 所 示 。 
对 于 上 述 问题 我 们 还 可 以 使 用 nlintool 进行 回归 分 析 , 执行 “nlintool(x, y funm, beta0); "语句 ， 
将 会 得 到 如 图 11.6 所 示 的 图 形 。 
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2 3 4 5 6 7 
图 11.5 非 线性 回归 结果 





图 11.6 ”交互 式 回归 分 析 


在 图 11.6 中 , 蓝 色 虚 线 的 位 置 可 以 用 鼠标 移动 , 同时 也 可 以 在 X{1 上 面 的 编辑 框 中 输入 数值 来 
移动 其 位 置 。 原 始 数据 分 布 在 两 条 红色 曲线 之 间 ， 在 Y 轴 上 实时 显示 当前 点 的 函数 值 和 残 差 ( 与 
红线 比较 )j 

例 11-6: 多 元 非 线 性 回归 。 

这 里 我 们 利用 MATLAB 提供 的 数据 reaction.mat 进行 多 元 非 线 性 回归 分 析 。 非 线性 模型 是 : 

二 一 局 姑 一 六 /1 羽 

人 tc) 1+ 忆 + 帮 如 十 

这 个 模型 被 称 为 Hougen-Watson 模型 ， 其 中 8 (zx,D) 被 称 为 hougen 函数 。 在 实际 问题 中 ， 
可 以 根据 各 个 参数 之 间 的 物理 意义 和 参数 对 输出 结果 的 影响 来 建立 函数 关系 模型 。 

在 MATLAB 中 hougen.m 是 计算 上 述 公式 的 函数 文件 。 
load reactioni g% 读 入 reaction.mat 数据 


betafit = nlinfit(reactants，rate，ehougen，beta)  #% 进行 多 元 非 线性 回归 分 析 
nlintool(reactants，rate，ehougen，beta) % 交互 式 多 元 非 线 性 回归 分 析 


输出 结果 是 ， 


betafit = 
1.2526 
0.0628 
0.0400 
0.1124 

1.1914 
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其 中 nlintool 函数 输出 如 图 11.7 所 示 的 图 形 。 





图 11.7 ”交互 式 多 元 非 线 性 回归 
窗口 中 显示 了 X 的 3 个 参量 分 别 与 Y 轴 的 关系 曲线 ， 用 鼠标 可 以 移动 某 子 图 当前 点 的 位 置 ， 
另外 两 个 子 图 的 曲线 进行 相应 移动 。 


11.5 “小 结 


在 科学 研究 中 经 常用 到 随机 数 , 尤其 是 一 些 随 机 过 程 和 现象 的 模拟 。 本 章 围绕 统计 工具 箱 介绍 
了 在 MATLAB 中 随机 数 的 产生 方法 ， 包 括 不 同 分 布 的 随机 数 的 产生 、 随 机 排序 、 概 率 密度 函数 、 
累积 概率 值 和 逆 累 积分 布 函数 。 通 过 Galton 板 实验 和 赌 徒 输 光 问题 的 求解 介绍 了 随机 数 的 使 用 方 
法 ， 同 时 介绍 了 关于 随机 数 和 离散 数据 统计 分 析 方 法 ， 给 出 了 均值 、 方 差 、 协 方差 和 相关 系数 等 计 
算 方 法 。 最 后 介绍 了 回归 分 析 ， 讨 论 了 线性 和 非 线性 回归 分 析 的 求解 方法 ， 其 在 分 析 数 据 、 建 立 经 
验 公式 和 验证 某 一 理论 等 方面 都 有 重要 应 用 。 


争 全 镶 
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@ 极限 介绍 利用 函数 im 计 求 解 极限 问题 。 

全 导数 介绍 函数 diff 和 jacobian 计算 全 导数 。 

dsolve 函数 介绍 利用 函数 dsolve 求解 微分 方程 (组 ) 的 解析 解 。 
ode 系列 函数 ”详细 介绍 利用 MATLAB 函数 计算 微分 方程 组 的 数值 解 。 
打靶 法 ”结合 实例 介绍 打靶 法 的 原理 和 求解 过 程 实现 。 

时 滞 微 分 方程 ”介绍 时 洁 微 分 方程 的 求解 方法 。 

偏 微分 方程 ”主要 介绍 利用 PDE 工具 箱 求解 含 微 分 方程 组 。 

利用 微分 算 积分 “介绍 利用 求解 微分 的 程序 来 实现 积分 的 计算 。 


9 


微分 是 高 等 数学 的 基础 内 容 , 在 很 多 问题 模型 中 经 常 出 现 。 在 科学 问题 和 工程 研究 中 , 极 少 数 
的 问题 可 能 得 到 解析 解 , 而 经 常 遇 到 函数 表达 式 本 身 未 知 ,需要 通过 实验 测量 数据 或 者 进行 数值 方 
式 的 模拟 。 用 户 熟练 掌握 微分 方程 方面 的 内 容 对 于 求解 一 些 问题 具有 重要 帮助 。 本 章 介 绍 极限 、 导 
数 以 及 微分 方程 ( 组 ) 的 解析 和 数值 解法 。 结 合 MATLAB 提供 的 一 些 函 数 来 说 明 不 同类 型 的 微分 
方程 ( 组 ) 的 解法 。 对 于 偏 微分 方程 组 ，MATLAB 提供 了 PDE 工具 箱 实现 一 些 典 型 方程 组 的 求解 。 


12.1 极限 


在 前 面 的 章节 介绍 了 可 以 用 函数 limit 来 计算 极限 ， 该 函数 的 调用 格式 为 : 


L=1imit(EF) 

L=1imit (EPE,a) 

L=1imit(E,Xx,a) 

L=1limit{(EF,x,a,'1Left') 或 者 L=limit(F,x,a,'right') 


参数 说 明 : L 是 返回 的 极限 值 。F 是 符号 表达 式 。a 给 出 变量 趋 近 的 位 置 。x 用 于 指出 对 表达 
式 中 的 变量 进行 求 极 限 运算 。left 和 right 分 别 表 示 对 表达 式 求 左 极限 和 右 极 限 。 
这 里 给 出 一 个 利用 函数 limit 求 三 角 函 数 sin(x) 导 数 的 例子 。 


SYmS X GX 
af = limit([sin(x+dx)=-sin(x)]/Vdx,dGx,0) 


输出 结果 为 : 
df = cos (X) 

这 个 结果 和 diff(sin(x)) 得 到 的 结果 是 一 致 的 。 读 者 可 以 用 函数 limit 来 解决 一 些 高 等 数学 中 的 极 
限 问题 。 
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12.2 ”全 导数 


ef(xyz) 和 


对 于 函数 / (xs ywz) 全 导数 的 计算 需要 得 到 下 面 3 个 导数 值 YSxa ， 
本 


2 。 利 用 MATLAB 中 的 函数 dff 和 jacobian 可 以 得 到 这 3 个 量 的 解析 结果 ,其 调用 格式 为 ， 


D1=diff(F1,xX); 
D2=jacobian(F2,v): 

参数 说 明 : D1 和 D2 分 别 是 函数 diff 和 jacobian 返回 的 导数 值 。F1 是 函数 表达 式 。F2 是 由 多 
个 函数 表达 式 组 成 的 向 量 。x 用 于 表明 对 表达 式 F1 中 变量 x 求 导数 。v 是 一 个 由 变量 组 成 的 向 量 ， 
jacobian 函数 逐个 对 其 中 的 变量 计算 导数 表达 式 。 

下 面 举 例 说 明 函数 dif 和 jacobian 的 用 法 ， 利 用 它们 计算 F(x, yz) = yzsin (x) 的 全 导数 分 量 。 
首先 给 出 利用 diff 函数 求解 的 程序 
SymS X Y 2Z 


上 = ywZwSin(X) 》 
dxf = diff(f,x) 


ayf = diff(f,y) 
dzf = diff(f,z) 
输出 如 下 : 


dGxft = YwZwCOS(X) 
Gyf =ZwSin(X) 
dzf =y*sin(x) 


用 户 还 可 以 使 用 函数 jacobian 来 计算 全 导数 的 3 个 分 量 ， 程 序 如 下 : 


Syms X Y Z 
人 = YAZwBTDntX) 2 
D = jacobian([E,E,fl,[x,y,z]) % 把 函数 向 量 的 分 量 写 为 同样 函数 ， 算 出 各 个 变量 的 导数 ， 从 而 得 
到 全 导数 
dxf = D(1,1) 
Gyft = D(2,2) 
dzf = D(3,3) 
输出 为 : 
D = [Yr*zZxcos(XxX)， zx*sjin(X)， Y*sin(X) ] 
[ Y*Zrcos(X)， zw*sin(x)， Y*sin(X)] 
[ YwzZwCos(X)， zxwSin(X)， Y*Ssin(X)] 
dxf =y*ZxwCoSs(X) 
Gyf =zx*sin(X) 
dzf =y*Sin(X) 


可 见 函数 jacobian 不 但 计算 出 了 全 导数 的 3 个 分 量 ， 这 3 个 分 量 位 于 矩阵 D 的 主 对 角 线 上 ， 
而 且 其 他 的 偏 导数 也 给 出 来 了 。 
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12.3 dsolve 函数 


函数 dsolve 可 以 用 来 求解 一 些微 分 方程 ( 组 ) 的 解析 解 ， 其 调用 格式 为 : 


S=dqsolve('eqnl'，'eqn2'，...); 
S=dsolve('eqn1l' ，'eqn2'，...，'cl'，'c2:，。.。); 


参数 说 明 : S 为 求解 的 输出 结果 。eqn1 和 eqn2 等 表示 微分 方程 。 在 微分 方程 中 各 阶 微分 项 


业 ， 史 古 0 5 和 对 和 于 了 可 以 用 下 面 的 形式 来 表达 : Df，D2f，D3f 和 Dnf。c1 和 c2 等 是 定 解 条 件 ， 
即 在 某 些 特殊 位 置 处 的 了 数值 或 者 导数 值 。 
下 面 来 举例 说 明 函数 dsolve 的 用 法 。 求 下 面 几 个 微分 方程 的 解 。 


全 和 =7+2i 
2 
全 滞 - 8+sint ， 定 解 条 件 为 8(D)=2，8"(0)=1 
4 皮 - 1+sinf ， 定 解 条 件 为 hH(0)=1，N(0)=2， 居 (0)=3， 入 (0)=4 
人 
2 
4 让 ， 定 解 条 件 为 上 0)=1，jJ(0)=1， 户 (0)=2 
- 
相关 程序 如 下 ; 
f = dsolve('Df=f+2v*t') sg 求 关 于 f 的 微分 方程 
g = dsolve('D2g=g+sin(t)'，,'g(1)=2''Dg(0)=1') ss 求 关 于 g 的 二 阶 微分 方程 


h = dsolve('D4h=t+sin(t)''h(0)=1'，'Dh(0)=2','D2h(0)=3'5,'D3h(0)=4') % 求 关 于 h 的 
4 阶 微分 方程 

[fl,f2] = dsolve('D2f1=t^2'，'Df2=t' fl(0)=1) DEL(0)= 1'，'f2{0)=2') % 求 关于 f 
和 fa 的 微分 方程 组 


输出 如 下 ， 


上 =-2-2wL+exDp (七 ) <*C1 

9 
=1/2*exp(t)/(exp(1)+exp(-1))*(4+3xexp(-1)+sin(1))-1/2*exp(-t)*(3xexp(1)-4-sin( 
1))V/V(exp(1)+exp{(-1L))-1/2x*sin(t) 

h =1/120x*t^5+Sin(t)+5/76xw 七 ^3+372Y^2+ 七 + 工 

ElL =17/12w 七 ^4+ 蕊 +1 

f2 .=172w^2+2 


当 没有 定 解 条 件 时 ， 函 数 dsolve 会 给 出 一 个 含有 常数 的 结果 。 当 有 定 解 条 件 时 ， 函 数 dsolve 
不 能 给 出 一 个 简单 的 解析 结果 ， 比 如 : 


= dsolve('Df=sin(E)*f') 
= dsolve('D2G=Gq^2') 
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执行 上 面 两 条 语句 后 输出 为 : 


P = RootOof(t-Int(1/sin(_a)/_a, _a = .，_2Z)+C1) 
Warning: Explicit solution could not be foundj implicit solution returned. 
> In dsolve at 315 
In jacobian_test at 24 
SG =[ Int(3/ (6*_a^3+3wC1I)^(172)，_a=..gq)-~t-C2=0， 
Int (-3/(6*_a^3+3w*C1)^(1/2)，_a=..G) -上 -C2=0] 


可 见 MATLAB 不 能 给 出 一 个 简单 的 结果 ， 此 时 给 出 了 一 个 相关 的 积分 表达 式 。 其 中 int 表示 求 
积分 运算 ， 而 函数 RootOf 是 一 个 特殊 函数 ， 用 户 利 用 mhelp 可 以 查看 它 的 信息 。 在 使 用 dsolve 
求解 一 些 稍微 复杂 一 点 的 微分 方程 { 组 ) 的 时 候 , 结果 可 能 会 出 现 一 些 特殊 函数 , 用 户 可 以 用 mhelp 


来 查看 这 些 特 殊 函 数 的 用 法 和 含义 。 更 复杂 的 微分 方程 需要 考虑 数值 方法 进行 计算 , 这 方面 的 内 容 


将 在 后 面 介绍 。 


12.4 _ode 系列 函数 


一 些 科 学 研究 和 工程 设计 中 需要 建立 微分 数学 模型 , 一般 情况 下 这 些微 分 方程 找 不 到 合适 的 解 


析 解 ， 因 此 需要 考虑 数值 方法 求 得 问题 的 近似 解 。 
对 于 微分 方程 的 数值 解法 ,MATLAB 提供 了 相关 的 求解 函数 ,用户 可 以 利用 它们 方便 地 求解 微 
分 方程 ( 组 j。 首 先 给 出 MATLAB 提供 的 求解 微分 方程 组 的 函数 及 用 法 说 明 ， 如 表 12.1 所 示 。 


函数 名 
ode45 


ode23 


ode113 


ode15s 
ode15i 
ode23s 


ode23t 
ode23tb 


表 12.1 求解 微分 方程 组 的 MATLAB 函数 
说 明 
高 阶 ( 4~5 ) 的 显 式 单 步 龙 格 - 库 塔 法 求解 微分 方程 组 ， 其 可 以 求解 中 等 精度 要 求 的 非 刚 
性 问题 
低 阶 ( 2~3 ) 的 显 式 单 步 龙 格 - 库 塔 法 求解 徽 分 方程 组 ， 其 可 以 求解 弱 刚 性 、 低 精度 要 求 
或 者 原 函 数 不 光 滑 ( 比如 不 连续 ) 等 问题 
可 变 阶 ( 1--13 ) 的 多 步 Adams-Bsahforth-Moulton PECE 求解 微分 方程 组 。 其 可 用 于 求 
解 中 等 精度 或 者 较 高 精度 要 求 的 非 刚性 问题 ， 还 包括 原 函 数 较 难 计算 的 情况 。 但 是 不 适 
用 于 原 函 数 不 光 滑 的 情况 ( 即 不 连续 或 者 低 阶 导数 不 连续 ) 
可 变 阶 ( 1~5 ) 的 隐 式 多 步 法 求解 微分 方程 组 ， 其 适用 于 中 等 精度 要 求 的 刚性 问题 。 在 
使 用 ode45 函数 求解 失败 或 者 计算 速度 低 时 ， 用 户 可 以 尝试 使 用 这 个 函数 
可 变 阶 ( 1~5 ) 阶 的 隐 式 法 求解 微分 方程 组 ， 其 可 以 用 来 求解 形 如 让 (4 yy)=0 的 一 类 
方程 
修正 的 隐 式 单 步 Rosenbrock 二 阶 法 求解 微分 方程 组 ， 其 适用 于 低 精 度 要 求 或 者 原 函 数 
不 连续 的 刚性 问题 
低 阶 的 梯形 法 求解 适当 刚性 的 微分 方程 和 微分 代数 方程 
低 阶 的 方法 求解 难度 较 大 的 微分 方程 


刚性 问题 是 指 基 本 时 间 常 数 按 几 个 数量 级 变化 的 问题 。 


12.4.1 odeset 函数 
在 介绍 这 些 函 数 用 法 之 前 ， 先 介绍 一 下 odeset 函数 的 用 法 ， 这 个 函数 可 以 设置 这 些微 分 方程 
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求解 函数 的 一 些 参 数 。odeset 函数 调用 格式 如 下 : 
options = odeset ('namel',valuel,'name2' ,value2,，...):; 


参数 说 明 : options 是 返回 的 一 个 结构 体 ， 其 中 包含 了 求解 过 程控 制 参数 。namel 和 name2 
是 属性 名 。value1 和 value2 是 对 应 的 取 值 。 下 面 把 所 有 属性 名 及 含义 列 成 表格 形式 ， 如 表 12.2 所 


不 o 


表 12.2 odeset 函数 的 属性 名 及 含义 





属性 名 
RefTol 


AbsTol 
NormControl 


Refine 


OutputFcn 


OutputSel 


Stats 
Jacobian 


JPattern 


Vectorized 
Events 


Mass 


MStateDependence 
MassSingular 
MvPattern 
InitialSlope 
InitialStep 

MaxStep 
NonNegative 

BDF 

MaxOrder 


说 明 

解 的 相对 容许 误差 ， 每 步 估 计 误差 满足 ef)<=max(RelTol*abs(y()),AbsTol())。 
其 默认 值 为 1e-3 

解 的 绝对 容许 误差 。 当 函数 值 接近 于 0 时 ， 存 在 控制 误差 。 其 默认 值 为 1e-6 
相对 于 解 的 范 数控 制 误差 ,可取 参数 为 on 和 off。 当 取 on 时 ， 误 差 满足 条 件 较 
弱 的 标准 ， 即 norm(e) <= max(RelTol*norm(y),AbsTol) 

输出 优化 因子 ， 其 值 为 正 整数 。 执 行 中 按 给 定 的 因子 用 连续 扩展 公式 对 内 部 解 
进行 插值 来 增加 输出 点 数 以 产生 更 光滑 的 输出 。 例 如 当 这 个 参数 等 于 4 时， 每 
| 产生 4 个 等 间距 的 输出 点 。 当 采样 点 数 大 于 2 时 ， 这 个 参数 不 
起 作用 

每 步 计 算 后 求解 程序 输出 的 函数 。 当 用 输出 参数 调用 求解 程序 时 ，[ty]=solver(…,)， 
这 里 solver 指 求解 微分 方程 的 函数 ， 此 时 OutputFcn 是 一 个 空 的 字符 串 。 当 无 
输出 参数 时 ，OutputFcn 的 默认 值 为 odeplot 

输出 选择 下 标 ， 传 给 OutputFcn 解 分 量 的 下 标 。 如 
options=odeset(OutputSel',[1,3]) 的 含义 是 把 第 1 个 和 第 3 个 解 分 量 传递 出 来 ， 
作为 输出 ， 

完成 计算 时 ， 显 示 消 耗 的 统计 。 可 取 参 数 为 on 和 off， 默 认 值 为 of 

控制 求解 微分 方程 函数 解析 雅 可 比 和 矩阵 。 可 取 参 数 为 on 和 off， 黑 认 值 为 off。 
利用 odefile(t,y' Jacobian) 可 得 到 雅 可 比 和 矩阵 

控制 odefile 中 得 到 雅 可 比 答 阵 的 系数 模式 可取 参数 为 on 和 off, 黑 认 值 为 off。 
odefile(ty' JPattern') 可 得 到 含 1 的 系数 矩阵 ， 用 于 显示 雅 可 比 矩 阵 的 非 零 模式 
快速 计算 数值 雅 可 比 矩 阵 的 向 量化 odefile。 可 取 参 数 为 on 和 off， 默 认 值 为 of 
事件 期 望 位 置 。 可 取 参 数 为 on 和 off， 默 认 值 为 of。 当 这 一 项 等 于 on 时 ， 
odefiletty' Events ) 返 回 事 件 函 数 结果 

从 odefile 中 得 到 块 矩 阵 。 可 取 参 数 为 on 和 off， 默 认 值 为 off。 当 这 一 项 等 于 
on 时 ，odefilelty' Mass) 返 回 块 矩 阵 

块 矩 阵 的 置信 度 ， 可 取 参 数 为 none、weak、strong， 默 认 值 是 weak 

块 矩 阵 是 奇异 和 矩阵， 可 取 参 数 为 yegs、no、maybe， 默 认 值 是 maybe 

系数 矩阵 dMvdy 

初始 斜率 ， 其 值 满足 关系 (t0,yO)*yp0 = Flto,y0) 

初始 步 长 ， 如 果 不 合适 将 自动 选择 更 好 的 步 长 

最 大 步 长 ， 默 认 值 为 变量 整个 采样 区 间 长 度 的 1/10 

非 负 解 分 量 _ 

在 ode15s 函数 中 采用 向 后 差分 公式 ， 可 取 参 数 为 on 和 off， 默 认 值 为 of 
设置 ode15s 和 ode15i 函数 的 最 大 阶 数 ， 可 取 数 值 为 1，2，3，4，5， 其 中 默 
认 值 是 5 


下 面 开 始 介绍 微分 方程 求解 函数 的 使 用 。 在 表 12.1 中 , 除 ode15i 以 外 的 所 有 ode 系列 函数 的 


调用 格式 为 ， 


[tout ,yout]】 = solver(odefun, 上 span,y0) 1; 
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solver(odefun,tspan,y0,options); 
solver(odefun, 上 span,y0,options,p1,P2,-) 7 


[tout ,Yout] 
[tout,yout] 

参数 说 明 : tout 是 输出 的 变量 采样 点 系列 。yout 是 对 应 的 函数 的 数值 解 。solver 指 求解 微分 方 
程 的 MATLAB 函数 。odefun 是 定义 微分 方程 组 的 函数 ， 它 可 以 用 函数 inline 或 者 一 个 函数 文件 来 
定义 。 tspan 是 变量 的 求解 区 间 。y0 是 初始 条 件 。optoins 是 求解 过 程控 制 参 数 ， 其 用 odeset 函数 
来 定义 。 参 数 p1，p2 等 表示 传递 到 定义 微分 方程 的 函数 中 进行 计算 。 


12.4.2 ”函数 ode15i 
函数 ode15i 可 以 用 来 求解 一 类 形 如 fwy)=0 的 微分 方程 ， 其 调用 格式 如 下 : 


[tout ,yout] = odel5i(odefun,tspan,y0,yp0)， 
[tout ,yout] = odqel5i(odefun, 上 span,y0,yp0,options) 1; 
[tout ,yout] = odel5i(odefun, 上 span,y0,Yyp0,options,p1,p2,...)，; 


参数 说 明 : 参数 yp0 是 导数 y 的 初始 条 件 ， 其 他 参数 的 含义 与 别 的 ode 系列 函数 的 调用 形式 
相同 。 
12.4.3 ”举例 说 明 

下 面 举例 来 说 明 这 些 函 数 的 用 法 。 

例 12-1: 求 下 面 微分 方程 在 区 间 [0,5] 的 解 ( 初始 条 件 为 ，y(0)=1，y(0)=0 )。 

y "+47=3sin9r 


分 析 : ode45 函数 不 能 直接 求解 这 个 方程 , 用 户 需 要 把 这 个 方程 转化 为 一 阶 方程 组 形式 从 而 成 
为 矩阵 形式 便于 计算 。 本 问题 中 的 这 个 二 阶 微分 方程 可 以 等 价 地 写 为 下 面 两 个 一 阶 微分 方程 组 ( 初 


始 条 件 为 : (0)=1，)(0)=0 )。 


三 功 
另 =3sin9t 一 4 

其 中 四 (0) 对 应 于 函数 y(0) ， 而 交 (#) 对 应 于 yY (0) 。( 这 里 补充 高 阶 微分 方程 的 转化 方法 ， 对 
于 阶 的 微分 方程 用 户 可 以 考虑 类 似 地 来 转化 。 用 中 (D) ， 交 (0) ， 六 (D，…，%(t) 来 代替 ?(1) ， 
Y (0 4 y (0 2 yo 人 (D) 4 前 -1 个 方程 是 光 = 交 ， 六 三 轨 ， 六 号 期 昌 基 = 多， 最 后 一 
个 方程 是 用 %(0 ， 六 (0 ， 太 (0，… 思 (来 替换 高 阶 微分 方程 中 的 各 阶 导 数 ， 从 而 得 到 壮 个 一 阶 
微分 方程 组 。)} 然后 用 户 可 建立 函数 文件 来 定义 这 个 微分 方程 组 或 者 使 用 函数 inline 来 定义 一 个 函 
数 。 下 面 分 别 介绍 这 两 种 方式 来 定义 微分 方程 组 。 

首先 介绍 使 用 函数 文件 定义 微分 方程 组 的 方法 ， 相 关 程 序 如 下 ; 
function Gy = tfys(tvy) 7 人 
dy(1,1) = Y(2); % 对 应 于 方程 组 中 的 第 一 个 微分 方程 
dy(2,1) = 3*8in(9w) -4*Y(T) # 对 应 于 方程 组 中 的 第 二 个 微分 方程 

上 面 的 函数 文件 tfys.m 用 来 定义 微分 方程 组 ， 其 中 输出 结果 dy 要 求 必须 是 列 向 量 。 接 下 来 就 
可 以 调用 函数 ode45 来 求解 微分 方程 了 ， 程 序 如 下 : 


tspan = [0,5]; 8 定义 变量 求解 区 间 
Y0 = [1,0]; g 定义 初 值 
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[t,y] = ode45(@Lfys,tspan,y0); % 调用 函数 ode45 求解 方程 
figure: 


plot(t,y1:，1)，'k-7)， # 画 出 函数 Y(t) 的 曲线 
hold on; 
plot(tt,y(:,2)，'k:'); gs 画 出 函数 Y(t) 的 导数 曲线 
set (gca, 'Fontsize',12); g 重 置 坐 标 轴 字 体 大 小 
xlabel('\itt'，'Fontsize',16); g 标注 X 轴 含 义 
面 给 出 使 用 函数 inline 结 二] 合 函数 ode45 的 程序 代码 ， 
tspan = [0,5]; sg 定义 变量 求解 区 间 
Y0 = [1,0]， # 定义 初 值 
fun = 半生 作 [Y(2)7 2 4x*Y(1) 7 ty) 多 定义 微分 方程 组 
[t,y] = ode45(fun,cspan,Yy0 针 调用 函数 cde45 求解 方程 


多 此 处 略 去 绘图 程序 ， 角 记 村 以 复制 上 面 的 语句 来 绘图 
上 面 使 用 函数 inline 定义 微分 方程 的 程序 得 到 如 图 12.1 所 示 的 图 形 。 
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在 
图 12.1 函数 ode45 求解 结果 
例 12-2: 在 区 间 [0,14] 求 解 下 面 含 系数 的 微分 方程 组 。 
蚤 = 一 px 

人 

其 中 ae=2，b=0.01，c=0.001，d=0.7。 初 始 值 为 愉 (0)=300 ，2(0)=100。 

分 析 : 在 这 个 问题 中 ,直接 是 一 阶 微分 方程 组 成 的 方程 组 ， 用 户 不 必 再 进行 转化 了 。 不 同 的 是 
这 里 含有 4 个 不 同 的 系数 参数 ， 并 给 出 一 种 传递 系数 参数 的 方法 ， 同 时 利用 函数 文件 和 函数 inline 
来 定义 微分 方程 组 。 求解 微 分 方程 的 函数 仍然 使 用 ode45。 首先 给 出 使 用 函数 的 文件 来 定义 这 个 微 
分 方程 组 ， 具 体 程序 如 下 


function dGx=preyer(t,x,flag,a,b,c,d)y; 
Gx(1,1) = ax*xf{(1)-bxx(1)xx(2)7 s 定义 微分 方程 组 中 第 一 个 方程 
dx(2,1) = cwx(1)w*x(2)-Gx*x(2)7 gs 定义 微分 方程 组 中 第 二 个 方程 


在 这 个 例子 中 ， 要 传递 的 参数 按 顺序 依次 写 在 输入 参数 flag ( 用 户 也 可 以 写 入 其 他 名 称 ， 但 不 
能 和 变量 名 重复 ) 后 面 。 这 里 flag 只 是 一 个 标记 ， 在 函数 的 计算 中 没 用 到 它 。 用 下 面 的 程序 就 可 
以 来 求解 微分 方程 了 。 


tspan = [0,14]; s# 定义 变量 求解 区 间 
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x0 = [300,100]; g% 定义 初 值 

a = 2; g 参数 赋值 

b = 0.01; $% 参数 贼 值 

c = 0.001; # 参数 赋值 

da=0.7; #% 参数 赋值 

options = odeset('RelTol' ,1le-6); # 设置 相对 误差 
[t,x] = ode45('preyer' ,tspan,x0,options,avb,c,d); sg 调用 函数 ode45 求解 方程 
figurey; 

plot(t,x(:,1)，'Kk- 7 $ 画 出 函数 xl(c) 的 曲线 

hold on; 

plot(t,x(:,2)，'k:')7 当 画 出 函数 x2(t) 的 曲线 

set (gca, 'Fontsize',12); % 重 置 坐标 轴 字 体 大 小 


xlabel('N\itt'，'Pontsize',16); g% 标注 X 轴 含义 

L=legendG('{\itxj_1fNitxj_2 70)7 g% 标注 线性 对 应 的 函数 值 

set (L,，'Fontname' :Times New Roman') ; gs 设置 legend 标注 文字 的 字体 名 

set (gcf, 'color', 'w' ,Position',[121 233 1121 406]);  # 重 转 图 形 窗口 的 背景 色 、 位 置 和 
大 小 


上 述 程序 输出 结果 如 图 12.2 所 示 。 








一 - 上 
ft 
图 12.2 ode45 函数 求解 微分 方程 组 的 结果 
如 果 把 上 面 程序 中 的 “options = odeset(RelTol,1e-6); ” 改 为 语句 “options = 
odeset(RelTol,1e-3);”"， 结 果 如 图 12.3 所 示 。 
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图 12.3 ode45 函数 求解 微分 方程 组 的 结果 ， 使 用 不 同 的 相对 误差 控制 
对 比 图 12.2 和 图 12.3 中 实 曲线 的 第 3 个 峰 可 以 发 现 : 相对 误差 RelTel 较 大 时 ,结果 有 一 个 平 
顶 。 因 此 需要 使 用 相对 误差 小 的 结果 来 求解 这 个 问题 。 微 分 方程 可 以 采用 下 面 的 代码 : 
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tspan = [0,14]1; # 定义 变量 求解 区 间 
x0 = [300,100]1; sg 定义 初 值 

a = 2; % 参数 赋值 

b = 0.01; s# 参数 赋值 

c = 0.001; gs 参数 赋值 

ad-=0.7; # 参数 赋值 


options = odeset('RelTol' ,le-6); % 设置 相对 误差 
funs=inline('fa*x(1)-b*xft1)*x(2);cr*x(1)*x(2)-Gx*x(2)] tx flag' ab'y， 
号 ee (funs,tspan,x0,options,a,b,c,d); $ 调用 函数 ode45 求解 方程 

上 面 这 段 程序 所 得 结果 和 用 函数 文件 定义 的 微分 方程 组 的 结果 一 样 。 在 例 12-2 中 , workspace 
里 面 的 变量 可 以 传递 到 微分 方程 组 的 计算 程序 中 。 这 样 的 形式 用 户 可 以 再 使 用 其 他 程序 来 调用 这 个 
求解 微分 方程 的 程序 ， 更 换 微分 方程 中 的 系数 来 比较 不 同 参数 对 于 结果 的 影响 。 

从 例 12-1 和 例 12-2 中 可 以 发 现 : 利用 函数 inline 定义 的 代码 可 以 使 程序 代码 简化 ， 并 且 可 以 
在 同一 个 文件 中 完成 微分 方程 的 求解 ， 便 于 文件 的 保存 。 但 是 利用 函数 inline 会 使 程序 的 执行 速度 
降低 。 利 用 函数 文件 定义 的 微分 方程 程序 不 能 作为 一 个 子 函数 和 ode45 函数 文件 放 在 一 起 ， 函 数 
文件 定义 微分 方程 组 的 好 处 是 : 可 以 用 来 定义 比较 复杂 的 微分 方程 ， 同 时 计算 速度 较 函 数 inline 定 
义 的 方式 快 。 


的 微分 方程 旦 没有 参数 传递 的 情况 。 对 于 初次 使 用 ode 系列 函数 的 用 户 ， 建 议 使 


起 利用 引号 标识 对 于 不 同情 况 都 是 适 所 的 ,而 利用 符号 @ 标 识 只 能 用 于 函数 文件 定义 
用 引号 标识 odefun。 


例 12-3: 用 ode23 和 ode23s 解 微分 方程 组 。 

函数 ode23 和 ode23s 可 以 分 别 用 来 求解 能 刚性 和 不 连续 刚性 的 微分 方程 , 它们 的 调用 格式 为 
以 12.4.1 节 介 绍 的 统一 格式 。 下 面具 体 来 说 明 它 们 的 用 法 。 

让 十 只 y2 

曙 = 世 一 多 六 

分 析 : 在 这 个 问题 中 含有 变化 的 参数 4& 和 尹 仍 然 需要 进行 参数 传递 。 同 时 这 里 考虑 使 用 函数 
ode23 和 ode23s 来 计算 这 个 微分 方程 ， 并 进行 求解 方程 时 间 的 比较 。 首 先 给 出 定义 微分 方程 组 的 
函数 文件 内 容 : 


function dy = adans(ty,flag,ab); 


， 其 中 a=500 ，b=2。 初 始 条 件 为 : nm(0)=3 ，y(0)=4。 


Gy(1,1) = ar-(b+l)*y(I)+y(1).^2*y(2); g% 对 应 第 一 个 微分 方程 
dy(2,1) = bx*y(1)-y(1).^2*y(2); % 对 应 第 二 个 微分 方程 
在 下 面 调用 ode23 求解 这 个 微分 方程 组 的 程序 中 ， 加 入 了 函数 cputime 计算 花费 的 时 间 。 
tspan = [0,10]:; gs 定义 变量 求解 区 间 
Y0 = [3,4]; s% 定义 初 值 
a = 500) # 参数 赋值 
b = 2; # 参数 赋值 


options = odeset(t'RelTol',1le-3);  # 设置 相对 误差 

t0 = cputime': 

[t,y] = oae23('adans',tspan,y0,options;a,b);  % 调用 函数 ode23 求解 方程 
time = cpUuULime-t0 
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figure; 


plot(t,y(:,1)，'k-'); % 画 出 函数 yl1{(t) 的 曲线 
hold on; 

plot(t,y(:，2)，'k: 7 ; sg 画 出 函数 y2 (t) 的 曲线 
set (gca,'Fontsize',12); # 重 置 坐标 轴 字 体 大 小 
Ylim([0,600]); #% 重 置 Y 轴 范 围 


xlabel('\itt','Fontsize',16); % 标注 X 轴 含义 
set(gcf,'color'，'w') ; 


上 述 程序 中 调用 ode23 函数 花费 的 时 间 !( 单位 : 秒 ) 是 : 
time = 392.4375 

上 面 的 计算 时 间 会 因 计算 机 条 件 不 同 而 异 , 对 于 同一 台 计 算 机 也 会 因为 调用 应 用 程序 的 情况 不 
同 而 不 同 。 这 个 例子 中 ,使 用 ode45 函数 计算 也 会 花费 较 长 的 时 间 。 如 果 把 函数 ode23 换 为 ode23s， 
所 求 得 的 微分 方程 的 结果 相同 ， 但 是 花费 的 时 间 是 : 
上 ime .= 0.6250 

此 外 ， 用 户 如 果 利 用 函数 ode15s，ode23t 和 ode23tb 也 可 以 较 快 地 得 到 计算 结果 ， 其 花费 时 
间 和 函数 ode23s 相差 不 多 可 见 当 计算 速度 较 慢 的 时 候 , 用 户 可 以 考虑 更 换 求 解 的 MATLAB 函数 。 
利用 函数 ode23 求解 花费 的 时 间 会 随 着 byVa 的 比值 增 大 而 快速 增加 。 从 图 12.4 中 可 以 看 出 结果 变 
化 很 快 ， 因 此 这 个 问题 属于 刚性 问题 ， 应 该 使 用 那些 适合 求解 刚性 微分 方程 的 MATLAB 函数 。 对 
于 不 同 的 问题 ， 用 户 需要 根据 实际 情况 来 选用 求解 函数 。 








在 
图 12.4 利用 ode23 计算 结果 
例 12-4: 用 ode23tb 函数 求 下 面 的 微分 方程 组 在 区 间 [0,20] 上 的 解 。 
函数 ode23tb 使 用 低 阶 方法 求解 难度 较 大 的 微分 方程 ， 一 些 特殊 的 微分 方程 可 以 尝试 使 用 这 
个 函数 求解 。 下 面 给 出 相关 的 例子 。 


ee 。 初 始 条 件 是 : 

双 = 入 8 人 (1) 一 加 

(0)=1，a(0)=2。 
分 析 : 这 个 问题 与 前 面 的 不 同 在 于 微分 方程 中 有 两 个 分 段 函数 , 可 以 在 函数 文件 中 计算 这 两 个 

分 段 函数 ， 用 户 可 结合 前 面 介绍 的 分 段 函数 的 定义 方法 。 


这 里 先 给 出 定义 微分 方程 组 的 程序 ; 


sin(t)，t< 4 oO- 1<7r/2 


， 其 中 10 这 2cosy 1>7m12 
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function dx = odeppiece(t,X) 


ft = 0; % 代表 函数 E(t) 
gt = 0) g 代表 函数 gtt) 
斌 E 上 <4*Pi 
EL = 2x*Sin(t); 
ena 
if 上 >pi*3.5 
gt = cos(t) 7; 
enaQ 
dx(1,1) = X(2)-fty g% 定义 第 一 个 微分 方程 


dx(2,1) = xX(1)*gt-x(2);  % 定义 第 二 个 微分 方程 
上 面 程序 中 , 半 语 句 用 来 定义 两 个 分 段 函 数 。 下 面 调用 ode23t 函数 来 计算 这 个 微分 方程 


tspan = [0,20]; g% 定义 变量 求解 区 间 

x0 = [0,1]， % 定义 初 值 

[t,x] = ode23tb('odqeppiece',tspan,x0); % 调用 函数 ode23tb 求解 方程 
figure; 

plot(t,x(:v1)，k-); g 画 出 函数 xl tt) 的 曲线 

held ony; 

plot(t,x(:,2)，'k:'); sg 男 出 函数 x2(t) 的 曲线 

set (gca, 'Fontsize',12)) g 重 填 坐标 轴 字 体 大 小 


L=legend('{Nitx}_1'，'{fNitx)_27，0) 

set (L，'Fontname'，'Times New Roman') 
xlabel{('\itt','Pontsize',16); sg 标注 X 轴 含义 
Set(gcf，'color'，:w'); 


所 得 结果 如 图 12.5 所 示 。 无 论 求解 微分 方程 如 何 复杂 ， 用 户 都 可 以 根据 关系 在 函数 文件 中 建 
立 微分 方程 的 模型 。 
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图 12.5 ”函数 ode23t 求 得 结果 的 曲线 
函数 ode15i 可 以 用 来 求解 隐 式 格式 的 微分 方程 ， 如 (zx)=0。 下 面 给 出 一 个 隐 式微 分 方 
程 的 例子 。 
例 12-5: 求解 下 面 微分 方程 的 数值 解 。 
| 全 cos(41)- 如 ]-x 攻 =0 
rsiniz 18-- 2 =0 
初始 条 件 为 %(0)=1， (0)=1，x 交 (0)=-02， 关 (0)=04。 
先 定义 这 个 隐 式 的 微分 方程 组 ,其 与 前 面 介绍 的 定义 微分 方程 的 方法 不 同 。 具 体 程序 内 容 如 下 : 
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function D = impfun( 人 t,x,xp); 
D = [xp(2)*[cos(tx4)w*x(2)-X(T)^3]-xp(2)*XP(1L)w;。。。 
twsin(x(2))/8-xp(2)*x(2)*2]; s# 定义 隐 式 微分 方程 组 
上 述 微 分 方程 组 的 定义 是 按照 已 = jz 大 ) 格式 输入 的 ， 把 每 个 等 式 的 左 侧 内 容 按 语 法 格式 
输入 。 函 数 文件 中 的 x 和 xp 分 别 为 原 函 数 分 量 组 成 的 向 量 和 原 函 数 的 导数 分 量 组 成 的 向 量 。 如 果 
存在 需要 传递 的 系数 ， 可 以 按 前 面 的 方式 来 定义 ， 即 “D = impfun(tx,xp,flag,p1,p2,…J);"。 
然后 调用 ode15i 函数 就 可 以 来 求解 这 个 隐 式 微分 方程 组 了 。 


tspan = [0,30]; s# 定义 变量 求解 区 间 
x0 = [1 1]47 gs 定义 初 值 
xp0 = [-0.2,0.4] :7 $% 定义 初 值 


[t,x] = odel5i('impfun', 上 span,Xx0,xp0) 
# 调用 函数 ode15ti 求解 方程 
figure; 


plot tt,x(:,1)，k- # 画 出 函数 xl (t) 的 曲线 
holda ony; 
plot(t,x(:,，2)，k:) 7; % 画 出 函数 x2 (t) 的 导数 曲线 


set (gca, 'Fontsize',12) 7; g 重 置 坐标 轴 字 体 大 小 
L=legend('{fNitxj_1'，fNitxl_25 0) 7 

set (L，'Fontname'，'Times New Roman') 
xlabel{('\itt'，'Fontsize' ,16)》 sg 标注 X 轴 含义 
Set (gcf,'color'，w') 1; 


上 述 程序 所 得 结果 如 图 12.6 所 示 。 
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图 12.6 函数 ode15i 求解 结果 的 曲线 

下 面 介绍 微分 代数 方程 ( differential algebraic equation,， 缩写 为 DAE ) 的 解法 。 在 这 类 方程 中 ， 
一 些 变量 要 受到 代数 方程 的 约束 。 在 这 类 方程 组 中 同时 含有 微分 方程 和 代数 方程 , 这 时 用 户 不 能 直 
接 利 用 前 面 介 绍 的 ode 系列 函数 求解 。 一 般 地 ， 微 分 代数 方程 可 以 写 为 下 面 的 形式 : 

M(Lz)z= 和 (kxr) ( 12-1 ) 

其 中 zx 是 由 自 变 量 组 成 的 列 向 量 M (zx) ,是 一 个 奇异 矩阵 ， 这 一 项 对 应 函数 odeset 属性 里 面 
的 变量 mass。 利 用 这 个 参数 就 可 以 求解 这 类 方程 了 。 

例 12-6: 求解 下 面 的 微分 方程 的 数值 解 。 
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旭 = 一 0.33 一 2 丁克 妨 
六 = 一 总 +0.5xy 一 0.2sin0.6f 可 二 车 相 必 
玫 =_02 和 十 ， 初 值 条 件 是 5%(0)=-1，(0)=1，z(0)=1，(0)=0。 
1 = 为 十 六 一 为 一 如 
分 析 : 其 中 最 后 一 个 方程 是 一 个 代数 方程 ， 来 约束 4 个 分 量 之 间 的 关系 ， 而 前 3 个 方程 是 典 
型 的 一 阶 微分 方程 。 这 个 问题 的 方程 可 以 转 为 下 面 的 形式 : 


1 0 0 0] 和 一 0.3 和 0 一 2 如 妈 十 妈 苔 

0 1 0 0| 癌 | | -e+05x 一 0.2sin0.6 

0010||z 一 0.2 和 为 十 罗 双 (12-2 ) 
0 0 0 0|x 为 十 六 一 六 一 苔 十 1 


这 个 表达 式 和 式 ( 12-1 ) 是 一 致 的 ， 因 此 可 把 前 面 的 系数 矩阵 放 在 odeset 的 Mass 属性 里 。 
根据 上 面 的 分 析 来 建立 定义 微分 方程 的 程序 以 及 调用 ode 系列 函数 的 主 程序 。 首 先 给 出 定义 微分 
方程 的 函数 文件 程序 ， 内 容 如 下 : 
function dx = daefun(t,x); 

dx = [-0.3*xx(1)-2*Xx(2)*x(3)+X(2)wX(4) 7 

-X(2)+0.5*x(4) -sin(tx0O.6)*0.2)1..。 

-X(2)*x(TI)w0.24X(3)*X(4) 7 。。 

Xf{IL)+x(2)-Xxf{3)-Xx(4)+1]7 

上 述 这 段 程序 对 应 着 式 ( 12-2 ) 右 侧 的 部 分 ， 与 前 面 定 义 微分 方程 组 的 格式 一 样 。 

在 定义 完 上 述 函数 文件 之 后 ， 用 户 就 可 以 调用 ode15s 函数 来 计算 这 个 微分 代数 方程 了 ， 具 体 
程序 内 容 如 下 ; 


tspan = [0,20]:; # 定义 变量 求解 区 间 
x0 = [-1,1,1;0]157 s# 定义 初 值 
M=eye(4); 

MI{4,4)=07 #% 定义 系数 和 矩阵 M(t,yY) 


options = odeset('Mass'yM) 
[t,x] = odel5s(edaefun,tspan,x0,options);  % 调用 函数 oael15s 求解 方程 


figurey 

Subplot (121); 

plot (tv,xt:v1)，'k-) 7 % 画 出 函数 xl (t) 的 曲线 
hold on; 

plot(t,xt{t:,2)，'k:j7 #% 画 出 函数 x2{t) 的 导数 曲线 
set (gca,'Fontsize',12); # 重 韦 坐标 轴 字 体 大 小 


L=1legend('fNitxj_15，fN\itxl_ 2 0) 
Set (TL,，'Fontname'，'Times New Roman') 


xlabel('\itt'，'Fontsize',16); # 标注 X 轴 含义 

subplot (122)7 1 
plot(t,x(tiv3)，'k- 1 g 画 出 函数 x3{t) 的 曲线 
hold on; 

plot(t,x(3 4) ks) s% 画 出 函数 x4 (t) 的 导数 曲线 
set (gca, 'Fontsize',12); g% 重 置 坐标 轴 字 体 大 小 


L=JIegend('{N\itxl_34，7 Nitxl_450)7 

set (L,'FEontname'，'Times New Roman') 

xlabel('Nitt'v Fontsize'y16); 入 标注 X 轴 含 义 
Set (gcf，'Ccolor' WwW') 7; 
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上 述 程序 执行 之 后 得 到 的 结果 如 图 12.7 所 示 。 


1 





图 12.7 ”用 函数 ode15s 求解 微分 代数 方程 的 结果 


这 里 需要 补充 两 点 : 一 是 这 里 可 以 使 用 函数 ode15s 和 ode23t 得 到 正确 的 结果 ， 其 他 ode 系 
列 函数 ， 如 ode23s，ode23tb ，ode45，ode23 和 ode113 不 能 得 到 正确 结果 二 是 odefun 的 表 
示 方 法 需要 使 用 符号 @， 而 用 户 如 果 把 语句 “[tx] = ode15s(@daefun,tspan,x0,options); ” 改 为 
“[tx] = ode15s(daefun,tspan,x0,options);)”， 则 会 弹出 如 下 错误 提示 : 
??? SWITCH expression must be a scalar or String Constant . 
Error in ==> odemass at 98 
Switch (mass) 
Error in ==> odel5s at 267 
[Mtype，ML，Mfun，Margs，dMoptions] = odemass(FcnHandlesUsed,odqeFcn,t0,yY0,.,， 


ETrLOr in ==> exampel2_6 at 7 
[t,x] = odel5s('daefun',tspan,x0,options);  # 调用 函数 odel15s 求解 方程 


例 12-7: 用 ode15i 求解 下 面 隐 式 微分 代数 方程。 
-0.39x' +cos 刀 sin0.1xc =0 
妈 cost 十 居 3 cos 为 二 cos6L=1 
为 + 如 =1 

分 析 : 这 里 把 这 个 微分 方程 转化 为 下 面 的 形式 : 
-0.39 忆 +cosx sin0.14 =0 

志 cost 十 居 coOs 汉 十 cOS6L=1 

此 时 上 面 的 方程 是 一 个 隐 式 微分 方程 形式 ， 而 分 量 为 可 以 用 1- 国 来 计算 。 为 了 编程 方便 ， 建 

立 如 下 的 映射 关系 : 只 一 六 和 六 一 为 。 对 应 的 方程 为 : 

-0.39y +cosyisin0.1y: =0 

cost+ yi cos 咏 +cos6[=1] 

首先 给 出 定义 这 个 隐 式 微分 方程 的 函数 文件 内 容 : 


function D = impdaaef(t,y,yp)， 
D = [-yp(1)*0.39+cos(y(1)^2)*sin(0.L1*YyPp(2));..。 
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-ypP(2)*cos(t)+Yy(2)*cos{(y(2))+Ccos (te6)-1]; 


使 用 下 面 的 程序 调用 ode15s 函数 来 计算 这 个 隐 式 微分 方程 ， 


tspan = {0,10]， sg 定义 变量 求解 区 间 
yY0 = [0.5,0.2]'; g% 定义 初 值 
YpP0 = [0,0]'; 


options = odeset('RelTol' ,1e-5) 1; 
[t,y] = odel5i('impdaef' tspan,y0,Yyp0,options): 
figure; &% 调用 函数 ode15i 求解 方程 


plot(E,y(:,1)，'K- 75) s 画 出 函数 x2(t) 的 曲线 
hold on; ， 
plot(t,y(:，2)，'k:'); s 画 出 函数 x3 (t) 的 导数 曲线 


set (gca, 'Fontsize',12);  s 重 置 坐 标 轴 字 体 大 小 
L=legend('{Nitxj_2'，'{Nitxl_3'，0) 

set (L，'Fontname'，'Times New Roman' ) 
xlabel('\itt'，'Fontsize',16); g% 标注 X 轴 含义 
Set (gcf，'color'，'w') 


上 述 程 序 所 得 结果 如 图 12.8 所 示 ， 其 中 为 分 量 的 结果 没有 在 这 里 显示 ， 可 以 通过 简单 的 代数 
关系 得 到 。 从 这 个 例子 中 可 以 发 现 求解 微分 代数 方程 的 另 一 个 思路 就 是 : 把 其 中 的 代数 方程 转化 为 
另外 一 种 形式 ， 即 用 其 他 分 量 来 表示 其 中 的 一 个 分 量 ， 如 六 = 8 ( 厂 , 和 -sh 加) ， 再 把 这 
个 结果 带 入 其 他 微分 方程 进行 消 元 处 理 , 从 而 可 能 得 到 一 个 隐 式微 分 方程 组 , 继而 调用 函数 ode15i 
来 计算 。 











[ 
图 12.8 隐 式 微分 代数 方程 求解 结果 
除了 上 面 的 例子 ,用 户 还 可 以 指定 采样 点 的 位 置 , 即 tspan 是 很 多 个 采样 点 组 成 的 向 量 。 下 面 
举例 说 明 这 种 情况 的 解法 。 


例 12-8: 求 下 面 两 个 微分 方程 在 区 间 [0,10] 内 的 解 。 


AS 初 值 条 件 为 为 尽 (0)=2， (0)=0。 


如 =-0.Lx +3cost 
多 -0.1(y 依 -0.3ytcos5t=0 ， 定 解 条 件 为 yY(10)=0 ，yY(10)=-0.2。 
分 析 : 第 一 个 方程 是 一 个 标准 的 初 值 问题 ， 使 用 函数 ode45 即 可 求解 。 在 第 二 个 问题 中 ， 给 
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定 的 定 解 条 件 是 在 终点 位 置 的 函数 值 和 导数 值 ， 这 里 将 引入 负 步 长 的 概念 求解 ， 这 样 就 可 以 使 用 
ode45 函数 求解 。 相 应 的 程序 如 下 ， 


funl = inline{'[-x(2)*0.2-sin(2xt);-x(1)*0.1+3*cos(t)] 和 tx')7 gs 定义 第 一 个 微 
分 方程 组 

tspanl = linspace(0,10,400) % 生成 采样 点 

x0 = [2,0]'; # 设置 初 值 

[tx,x] = ode45(funl,tspanl,x0); 人 调用 ode45 函数 求解 

fun2 = inline('*[y(2);yY(2)^4*0.140.3*y(1)x*txcos(5wt)]vit yy')r sg% 定义 第 二 个 微分 
方程 组 


tspan2 = fliplr(tspan1) 贡生 成 负 步 长 采样 点 

Y0 = [0,-0.2]， g% 设置 初 值 

[ty,y] = ode45(fun2, 必 span2,Y0); # 调用 ode45 函数 求解 
figurey; 
Subplot (121)7 

BIOLE (EXvXK 人 于 大 7 下 1 四 画 出 xl {t) 对 应 的 曲线 
hold on; 和 
plot (tx,x(:,2)，'k:4); # 画 出 x2(t) 对 应 的 曲线 
set (gca, 'Fontsize',12); # 重 置 坐标 轴 字 体 大 小 

L1 = legend('{fN\itxl_1'，'fNtxl_27，0)7 
xlabel('Nitt'，'FPontsize' ,16)) s# 标注 X 轴 含 义 
Subplot (122) 

plot(ty,y(3v1)，'Kk')7 % 画 出 Y(t) 对 应 的 曲线 
set (gca, 'Fontsizet,12); 第 敌 刘 从 标 名 字体 大 小 


L2 = legend('{f\ity}' 0)7 

set([L1,L2], Fontname'，'Times New Roman'); g% 设置 标注 字体 
xlabel('\itt','Fontsize',16); gs 标注 X 轴 含义 
Set (gcf，'color'，'w') ; 


上 面 程序 计算 结果 如 图 12.9 所 示 。 





-一 一 一 一 07 天 一“ 一 

















图 12.9 设置 采样 点 的 求解 结果 
输出 的 变量 点 kk 和 ty 分 别 等 于 tspan1 和 tspan2。 对 于 ode 系列 函数 ， 当 tspan 含 2 个 元 素 
的 时 候 ，tspan 的 第 2 个 元 素 值 也 可 以 小 于 第 1 个 元 素 ， 程 序 正常 执行 。 
在 实际 应 用 中 ， 用 户 需要 把 微分 方程 进行 一 定 的 变形 ， 使 之 适合 MATLAB 来 求解 。 大 多 数 带 
有 初 值 条 件 的 微分 方程 使 用 ode 系列 函数 是 可 以 求解 的 。 同 时 微分 方程 可 能 受到 求解 步 长 、 初 值 
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以 及 方程 中 参数 的 影响 而 结果 变化 很 大 , 有 时 用 户 需要 结合 自己 的 专业 知识 来 检查 结果 的 物理 意义 
正确 与 否 。 


12.5 _ 打 靴 法 


前 面 介绍 的 ode 系列 函数 只 能 直接 用 来 求解 初 值 问题 ， 而 不 能 直接 用 于 求解 边 值 问题 。 有 时 
会 遇 到 这 样 一 类 情况 ， 即 知道 开始 时 刻 和 结束 时 刻 的 函数 值 ， 比 如 热传导 问题 ， 在 初始 时 热源 情况 
已 知 ， 一 定时 间 后 温度 达到 均匀 分 布 ; 再 如 弦 振 动 问题 ， 端 点 的 位 置 是 国定 的 。 这 类 问题 被 称 为 边 
值 问题 ， 可 以 使 用 如 下 方程 来 描述 

(xxz)=0， ( 12-3 ) 

其 中 定 解 条 件 为 : 从 x(0)=a，x(m)=b,x(0)=cx(o)=d 四 式 中 的 两 个 端点 4=0 和 上 = 力 
处 各 取出 一 个 式 子 而 得 到 端点 的 两 个 式 子 。[0,m ] 为 求解 区 间 ，a ， ，c 和 d 为 已 知 数 。 下 面 将 
介绍 求解 这 类 方程 的 打靶 法 。 

打靶 法 的 原理 如 图 12.10 所 示 。 假 设 检 和 靶子 分 别 放 在 :=0 和 上 = 如， 而 在 tf=0 平 面 上 枪 的 位 
置 和 俯仰 角 可 以 分 别 认 为 是 函数 值 和 其 导数 值 。 对 于 边 值 问题 ， 在 上 =0 处 ， 函 数值 或 者 导数 值 是 
已 知 的 , 也 就 是 说 枪 的 位 置 或 者 俯仰 角 是 已 知 的 。 持 枪 者 通过 调整 枪 的 位 置 或 者 俯仰 角 就 可 以 打 中 
目标 了 。 因 此 把 这 种 思路 称 为 打靶 法 。 





12.10 “打靶 法 原理 
线性 边 值 问题 可 以 用 下 面 的 公式 来 描述 : 
六 =P(Dy(O+9g(O7+r(O) ( 12-4) 
y(aj=4 ，y(D)= 屯 在 区 间 [ap] 上 有 了 唯一 解 y》= y(1) 。 


求解 步骤 为 : 


ED 求 出 下 面 的 齐 次 微分 方程 在 区 间 [a,b] 上 的 解 并 得 出 (5) 的 值 : 
史 =p(D)X+9g(D)， 初 值 条 件 为 MX(a)=1，yY(a)=0。 

求 出 下 面 的 齐 次 微分 方程 在 区 间 [wbj 上 的 解 并 得 出 内 () 的 值 ; 
只 =P(D 关 +d 人 (六 ， 初 值 条 件 为 (a)=0， 到 (oa)=1。 

求 出 下 面 的 微分 方程 在 区 间 [c,b] 上 的 解 并 得 出 闪 (b) 的 值 ; 
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如 =P( 基 +9g( 人 (0 六 +r(r) ， 初 值 条 件 为 mn(a)=0，(a)=0。 
计算 参数 几 的 值 ( 性 是 初 值 中 的 导数 值 )， 其 表达 式 如 下 : 
34 (一 为 (加 
?2(Db) 


外 若 见 (=0， 方程 无 唯一 解 。 


原 方程 组 的 解 表示 为 ， 交 = P(OJY (0)+9g(0)y+r(i) ， 初 值 条 件 为 y(a)=4 ，yY(a)=m。 
根据 上 面 的 计算 步骤 ， 可 以 编写 出 线性 打靶 法 的 计算 程序 ， 如 下 : 
function [t,yY] = lineshoot (fl,f2, 上 span,x0f,varargin) ; 
s 线性 打靶 法 求解 程序 
[t,ylL] = ode45(f2,tspan, [1,0] ,varargin)y g% 计算 函数 yl1(t) 
[t,YyY2] = odqe45(f2,tspan, [0,1] ,varargin) 多 计算 函数 Y2(t) 
[t,Yy3] = ode45(fl,tspan,[0,0] ,varargin); ， % 计算 函数 v3 (t) 
m = [x0f(2)-xof(1)*yl(end,1)-y3tend,1)]/Vy2(end,1); ss% 求 参数 mn 
[Et,y] = ode45(f1l,tspan, [x0f (1) ,m] ,varargin) g 求 出 原 微分 方程 的 解 
参数 说 明 : 输出 t 为 变量 离散 数据 。 输出 y 为 函数 分 量 的 离散 数据 。f1 为 齐 次 微分 方程 的 函数 。 
f2 为 原 微分 方程 对 应 的 函数 。tspan 为 求解 区 间 。x0f 为 边 值 条 件 。 其 中 ，4 次 调用 ode45 函数 求 
解 方程 。 参 数 varargin 对 应 于 微分 方程 其 他 输入 参数 ， 如 options 和 传递 到 微分 方程 中 的 参数 。 
例 12-9: 求 下 面 边 值 问题 在 区 间 [0,4] 上 的 解 ， 初 值 条 件 为 : >(0)=1，y(4)=2。 
多 =2y cost- ysin 4! 一 cos3t 
分 析 : 这 是 一 个 边 值 问题 ， 其 中 系数 函数 p(0)=2cost ，4d(I)=-sin4f ，r(f)=-cos3t 。 利 用 
前 面 建立 的 函数 文件 ineshoot.m 可 以 求解 这 个 微分 方程 的 解 。 在 求解 的 时 候 需要 把 这 个 二 阶 微分 
方程 转化 为 一 阶 微分 方程 组 。 方 便 起 见 ， 这 里 使 用 函数 inline 来 定义 微分 方程 组 。 求 解 程序 如 下 : 


fl =inline('[y(2);2*cos(t)x*y{2)-sin(4x*t)*y(1)-cos(3tt)]''t'vy'); ss 定义 原 微分 
方程 

f2 =inline('fIy(2);2*cos{t)x*y(2)-sin(4xt)*y(1)] cy 7 g% 定义 其 次 微分 方程 
tspan = [0,4]; gs 求解 区 间 

x0f=[1,2]; # 边 值 条 件 


[t,y] = lineshoot(fl,f2,tspan,x0f); % 调用 线性 打靶 法 求解 函数 1ineshoot 
Eigure; 

plot(tt,y(:,1),t,Y(:，2)，k: )7 

set (gcf,，'color'，WwW'); 


上 述 程序 所 得 结果 如 图 12.11 所 示 ， 其 中 实 曲线 表示 函数 (7) ， 虚 曲线 对 应 其 导数 。 
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图 12.11 边 值 问题 求解 结果 
下 面 来 研究 另 一 类 线性 边 值 问题 ， 其 可 以 用 如 下 公式 来 描述 : 
六 =p(D)yY(D)+g(t)y+r(D) ( 12-5 ) 
y(a)=4，y(b)= 甩 在 区 间 [wp] 上 有 唯一 解 》= y(r) 。 求 解 的 4 个 步骤 为 ; 


只 =P()X+d(D)， 初 值 条 件 为 (oj=1，yY(a)=0。 

ET 求 出 下 面 的 齐 次 微分 方程 在 区 间 [o,b] 的 解 并 得 出 YX (b) 的 值 : 

如 =P()X+d() > ， 初 值 条 件 为 交 (a)=0， 光 (a)=1。 

求 出 下 面 的 微分 方程 在 区 间 [w,b] 上 的 解 并 得 出 六 (z) 的 值 : 

呈 =P()+9q(0) +r(t) ， 初 值 条 件 为 加 (a)=0，X(a)=0。 
计算 出 参数 M 的 值 ( M 是 初 值 中 的 导数 值 )， 其 表达 式 如 下 : 
_ 了 -47 (b) 一 天 () 

yb) 


R 若 光 ()=0， 方 程 无 唯一 解 。 


原 方程 组 的 解 表示 为 : 交 = p(i)y(D)+q(D)y+r(t) ， 初 值 条 件 为 y(aj=4，y(a)=M。 
根据 上 面 4 个 步 又， 可 以 建立 如 下 程序 : 


function [t,y] = lineshoota(fl,f2,tspan,x0of,varargin); % 线性 打靶 法 求解 程序 边 值 条 件 
数 


ED 求 出 下 面 的 齐 次 微分 方程 在 区 间 [.j 上 的 解 并 得 出 站 () 的 值 ; 
II 


aM4 


= ode45(f2,tspan, [1,0] ,varargin); $% 计算 函数 yl1(t) 
[t,y2] = ode45(f2,tspan, [0,1],varargin); #% 计算 函数 Y2(t) 

= ode45(fl,tspan, [0,0],varargin); % 计算 函数 y3 (t) 
M = [xof(2)-x0f(1)*y2(end,2)-y3(end,2)]/yl(end,2); 求 参 数 M 
[t,y] = ode45(fl, 上 span, [m,x0f(1)],varargin) ; # 求 出 原 微 分 方程 的 解 


参数 说 明 : 这 个 函数 和 前 面 定义 的 lineshoot 基本 相似 ， 除 参数 M 的 定义 不 同 外 ， 其 他 参数 相 
似 ， 这 里 不 再 歼 述 。 
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例 12-10: 求 下 面 边 值 问题 在 区 间 [0,4] 上 的 解 ， 初 值 条 件 为 : Y(0)=0，yY(4)=0。 

多 =2y cost 一 ysin 4 一 cos31 

分 析 : 在 这 个 问题 中 , 边界 条 件 使 用 导数 来 限定 ， 因 此 需要 调用 函数 ineshootd 来 计算 这 个 微 
分 方程 。 相 应 的 程序 也 和 例 12-9 类 似 ， 可 以 建立 起 相应 的 程序 ， 计 算 程序 如 下 : 


fl =inline('[y(2);2*cos(t)*y(2)-sin(4xt)xy(1)-cos(3xt)]'t'vy')) ss 定义 原 微分 
方程 


f2 =inline('fy(2):2*cos(t)*y(2)-sin(4xt)*y(1)] ty')7 g% 定义 其 次 微分 方 
程 

tspan = [0,4]; gs 求解 区 间 

x0f=[0,0]; # 边 值 条 件 

[kt,y] = lineshootd(fl,f2, 上 span,x0f); 调用 函数 1ineshootd 来 求 


BlLot(ty(3,1) ,ty(2,2)，X:)3? 
Set (gca,，'Fontsize',12); 
set (gcf,'color'，w') ; 


上 述 程序 所 得 结果 如 图 12.2 所 示 。 














图 12.12 ”导数 型 边 值 条 件 求解 结果 


在 图 12.12 中 , 实 曲线 对 应 着 函数 y(t) ， 虚 曲线 表示 (] 。 边 界 条 件 中 Y(0)=0 ，yY (4)=0， 
图 12.12 中 两 端点 的 函数 (tb) 都 等 于 0， 从 而 说 明 这 种 方法 求解 的 精度 是 很 高 的 ， 也 验证 了 程序 
的 正确 性 。 

前 面 介 绍 了 两 种 类 型 的 边界 条 件 ， 即 函数 值 和 导数 值 的 情况 。 此 外 还 存在 一 类 混合 边界 条 件 ， 
即 ，y(a)+cy(aj=4，y(b)+cy(p)=B。 

对 于 这 类 边界 条 件 用 户 可 以 根据 前 面 介绍 的 两 种 情况 组 合 起 来 计算 。 感 兴趣 的 读者 可 以 考虑 这 
个 问题 

前 面 介绍 了 线性 打靶 法 的 求解 过 程 ， 然而 在 实际 问题 中 还 存在 着 一 些 非 线 性 微分 方程 , 此 时 微 
分 方程 应 该 写 为 一 般 的 形式 : 好 = (zz 1 边 值 条 件 为 xf(a) =A4， x(b) = B。 

现在 需要 求 出 一 个 参数 请 =x(a) ， 使 得 x(b) = 她 成 立 ， 简 记 为 x( 久 略 )= 屯 。 这 是 一 个 复杂 的 
超越 方程 ， 可 以 考虑 引入 牛顿 迭代 法 求解 参数 疾 。 迭 代 关 系 式 为 : 


xm 一 有 _ Ai(O 一 妇 
大 1 类 ax(bmm) 二 大 加 (中 { 12-6) 
9m 
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其 中 员 = 关 (大 ) ， 凡 = 区 (有 ] ， 风 =9x(m )19m ， 册 =9x'(5m )/9m 。 通 过 上 述 关系 可 以 
建立 关于 Www 用 和 V4 的 方程 。 


由 = 必 

凡 =F(hvwwm) 

另 = 册 { 12-7 ) 
， af(tvyy of (wy 

Ca] tn am 


初始 条 件 为 : w(aj=4，vm(a)=m，w(aj=0 和 wmw(e)=1lo。 

在 进行 迭代 求解 时 , 用 户 可 以 任意 给 定 灵 一 个 值 ， 然后 来 求解 微分 方程 组 ( 12-7 ) 在 区 间 [e.j] 
上 的 解 ， 把 所 得 结果 带 入 公式 { 12-6 ) 中 ,直至 内 -mw =[w(O)-B]/(b) 满 足 要 求 的 精度 为 止 。 
然后 采用 上 面 得 到 的 严 即 可 用 求解 初 值 方程 来 计算 边 值 问题 。 

根据 上 面 的 分 析 可 以 建立 相关 的 非 线性 打靶 法 程序 ， 程 序 内 容 如 下 ， 


function [t,y] = nlshoot (fl,fv,tspan,xb,tol,varargin) ; g 非 线性 打靶 法 求解 微分 方 
程 
m=0; # m 的 初 什 
m0=157 % 过 程 变 量 m0 
while abs (m-m0)>tol; 
mO=m7 gs 更 新 过 程 量 的 数值 
[kt,v] = ode45(fv,tspan, [xb(1),m,0,1],varargin) ; s# 计算 迭代 式 
m = m0-[viend,1)-xb(2)]/v(end,3)， g 更 新 m 的 数值 
end 
[t,y] = ode45(fl;tspan, [xb(1),m],varargin) g 利用 得 到 的 初 值 求 解 方程 


用 户 可 以 利用 上 面 的 函数 文件 nlshoot 求解 一 些 带 有 边 值 条 件 的 微分 方程 ， 其 中 参数 tol 用 于 
控制 参数 m 的 误差 ， 其 他 参数 同 前 面 的 lineshootd.m 文件 。 

例 12-11: 求解 下 面 的 非 线性 边 值 问题 。 

米 =cosx'sinx ， 边 值 条 件 为 x(0)=1，x(6)=2。 

分 析 : 这 里 函数 Flkhxx)=cosxsinx ， 对 应 的 偏 导 数 f(hwm)/or=cosx'cosxr ， 
of(tvwvm )/ar =-sin xsinx。 

这 样 可 以 得 出 方程 组 ( 12-7 ) 中 第 4 个 方程 为 w =Wcoswcosw -wsinvw sinw ， 如 此 就 可 以 很 
容易 地 建立 函数 nlshoot 中 的 两 个 函数 模型 fE 和 fv 了 。 求 解 程序 如 下 : 


fl = inline('[x(2);cos(X(2))*sin(x(1))] tx 7 # 定义 函数 fl1 

tv = 
inline('[v(2);costv(2))*sin(v(1));v(4)IVvV(3)*cos(V(2))*cos(v(1))-v(4)*sin(tv(2) ) 
*Sin(V(I))] cvV'); 


[t,x] = nlshoot(fl,fv,[0,6],[1,2],1e-6); s% 调用 函数 nlshoot 求解 非 线 性 边 
值 问题 
Ploct(t,X(:,1),t,x(:，2)，k:) # 画图 


set (gcay'Fontsize' ,12)7 
set (gcf,，'Ccolor'，w'); 


上 述 程序 得 到 如 图 12.13 所 示 的 曲线 。 
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图 12.13 ” 非 线性 边 值 问题 求解 结果 
从 图 12.13 中 可 以 看 出 结果 在 边界 上 满足 题目 要 求 的 条 件 。 


12.6 ”时 滞 微 分 方程 


时 灌 微 分 方程 是 指 在 微分 方程 表达 式 中 含有 一 些 滞后 作用 的 项 ， 即 形 如 : 

好 = 大 (和 (一 在) (一 右 ) wx( 一 所 )) ( 12-8 ) 
其 中 心 … >0， 是 时 间 延 迟 常 数 。 

在 MATLAB 中 提供 了 函数 dde23 来 求解 这 类 方程 ， 其 调用 格式 为 : 


sol = dde23 (ddefun,1ags,history,tspPan) ; 
sol = dde23 (ddaefun,1lags,history,tspan,options); 


参数 说 明 : sol 是 输出 的 求解 结果 ， 其 为 结构 体 数据 ，sol.x 表示 时 间 变 量 采 样 值 ，sol,y 表示 函 
数值 分 量 的 取 值 。ddefun 表示 时 滞 微 分 方程 。lags 表示 时 间 延 迟 常数 。history 表示 在 求解 时 间 区 
间 上 的 变量 值 的 函数 ， 如 果 是 一 个 函数 形式 ， 可 以 用 MATLAB 的 函数 文件 形式 定义 ， 如 果 是 变量 
则 直接 赋值 即 可 。tspan 是 求解 时 间 范 围 。options 是 控制 过 程 参数 的 结构 体 ， 其 由 函数 ddeset 来 
设置 ， 即 options=ddeset， 用 法 类 似 函数 odeset。 下 面 结合 实例 来 介绍 这 个 函数 的 使 用 。 

例 12-12: 求解 下 面 时 灌 微 分 方程 的 解 。 

好 (1)=0.5m (一 3)+0.5z (tjcost 
总 (和 =0.35(L-D+0.725 (tsint 
妆 {(t=(t+cos21 

当 r<0 时 ，2(D=0，z(t)=0， 蚊 (=1o。 

分 析 : 在 这 个 方程 中 , 函数 (f) 和 为 (1) 存在 着 不 同 的 时 间 延 迟 ,因此 需要 考虑 使 用 函数 dde23 
来 求解 。 方 程 自 身 就 是 一 阶 微分 方程 组 的 形式 ,不 必 再 进行 转化 , 根据 关系 建立 起 各 个 参数 即 可 进 
行 求解 。 定 义 时 滞 微 分 方程 的 函数 文件 内 容 如 下 : 
function dx = ddqefunl (t,x,1ags)， 

xld = lags(:,1); # Y 提取 第 一 延 时 常数 对 应 的 列 向 量 


x3d = lags(:,2); # Y 提取 第 二 延 时 常数 对 应 的 列 向 量 
dx = [0.5*x3d(3)+0.5*X(2)*cos(t) 7 ... 
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0.3*xld(1)+0.7*xl(3)*sin(t);..， 
x(2)+cos{2xt)]， s# 定义 微分 方程 


用 户 可 以 根据 上 面 的 例子 对 照 原 微 分 方程 组 来 理解 参数 的 对 应 关系 。 调 用 下 面 的 程序 即 可 求解 
这 个 时 滞 微 分 方程 。 


lags = [1,3]:; gs 定义 延 时 常数 

history = [0,0,1]; % 历史 数据 

tspan = [0,8])% sg 求解 时 间 范 围 

sol = dde23('ddefunl' ,1lags,history,tspan); % 调用 dde23 函数 求解 
上 = sol.x; ， g 提取 变量 采样 数据 
Xx = sol.y; g 提取 函数 分 量 的 离散 值 
subplot (131) ;plot(t,x(1,:))， g% 绘制 xl (t) 对 应 的 曲线 
xlabel('\itt');yliabel('f\itxlj_1'); g 标注 

subplot (132) ;plot(t,x(2,:)); g% 绘制 x2 (t) 对 应 的 曲线 
xlabel('\itt');ylabel('ftNicx)_2'); 多 标 ; 

subplot (133) ;plot(t,x(3，:)); g 绘制 x3 (t) 对 应 的 曲线 
xlabel('\itt');ylabel('{\itx)_3')， gs 标注 


人 378 959 2521); s#% 重 置 图 形 窗口 的 背景 色 、 位 置 和 大 
小 

所 得 图 形 如 图 12.14 所 示 。 这 里 在 3 个 坐标 轴 内 给 出 了 罗 (t) ，xz() 和 罗 () 相 应 的 曲线 ， 其 中 
ai(t) 初始 一 段 时 间 内 发 生 振荡 现象 ， 随 后 逐渐 增 大 ， 而 xa 0) 和 风 () 初 始 阶段 数值 增加 ， 随 后 函数 
值 很 快 衰减 。 
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图 12.14 ”时 滞 微 分 方程 组 求解 结果 


12.7” 偏 微分 方程 


在 描述 流体 运动 和 场 的 分 布 的 大 多 数 数 学 模型 时 , 微分 方程 模型 是 根据 质量 连续 和 能 量 守恒 等 
基本 原理 推导 出 来 的 ,再 加 上 适当 的 初始 条 件 或 者 边界 条 件 所 构成 。 在 一 维 问题 中 ,它们 是 常 微分 
方程 ， 而 在 二 维 或 三 维 问题 中 ， 它 们 就 是 偏 微分 方程 。 本 节 来 介绍 偏 微分 方程 的 求解 方法 。 

MATLAB 提供 了 PDE 工具 箱 来 专门 求解 一 些 典型 的 偏 微分 方程 , 如 椭圆 形 方程 、 抛 物 形 方程 、 
双 曲 线 方程 、 特 征 值 方程 、 椭 圆 形 方程 组 以 及 非 线性 椭圆 形 方程 等 。 首 先 来 介绍 一 下 PDE 工具 箱 
的 工作 界面 。 

用 户 在 命令 窗 输入 pdetool 即 可 调 出 对 话 窗口 , 如 图 12.15 所 示 。 下 面 介 绍 菜单 中 各 部 分 功能 : 
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File 菜单 功能 介绍 如 表 12.3 所 示 ，Options 菜单 功能 介绍 如 表 12.4 所 示 ，Draw 菜单 功能 介绍 如 表 
12.5 所 示 。 




















yp PCE spotn om go pop rnv 


图 12.15 _PDE 工具 箱 窗口 





表 12.3 File 菜单 功能 介绍 








菜单 名 功能 菜单 名 功能 

New 新 建 模型 Save As 保存 结果 到 另 一 个 文件 夹 中 
Open 加 载 M 文件 Print ， 打印 图 形 

Save 保存 结果 Exit 退出 界面 





在 Edit 菜单 中 含有 一 些 基 本 的 Windows 操作 ， 如 撤销 ( Undo )、 剪 切 ( Cut )、 复制 ( Copy 外 
粘贴 ( Paste )、 删 除 ( Clear )、 全 选 ( Select All ) 等 。 


表 12.4 Options 菜单 功能 介绍 








菜单 名 功能 菜单 名 功能 

Grid 开启 /关闭 栅 格 Turn off Toolbar ”关闭 工具 栏 按钮 的 帮助 文档 
Grid Spacing 调整 栅 格 大 小 _ Zoom 图 形 缩放 的 开启 和 关闭 
Snap 捕捉 栅 格 开启 /关闭 Application 应 用 模式 

Axis Limits 改变 坐标 轴 比 例 Refresh 重新 显示 图 中 实体 


Axis Equal 控制 X 轴 和 Y 轴 的 比例 关系 
表 12.5 Draw 菜单 功能 介绍 











菜单 名 功能 

Draw Mode 开始 绘图 模式 

Rectangle/Square 角 点 方式 画 矩 形 ( 操作 :， Ctrl+ 鼠标 ) 
Rectangle/Square ( centered ) 中 心 方式 画 矩 形 ( 操作 :， Ctrl+ 鼠标 ) 
Elipse/Circle 德 形 角 点 方式 画 椭圆 ( 操作 ， Ctrl+ 鼠标 ) 
Ellipse/Circle (centered ) 中 心 方式 画 椭圆 ( 操作 : Ctrl+ 鼠 标 ) 

Polygon 画 多 边 形 ， 右 键 自动 封闭 多 边 形 

Rotate 旋转 选 定 实体 

Export Geometry Description, Set Formula， 导出 几何 描述 、 公 式 、 标 注 等 信息 到 workspace 
Labels 
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Boundary 菜单 功能 介绍 如 表 12.6 所 示 ,，PDE 菜单 功能 介绍 如 表 12.7 所 示 ,， Mesh 菜单 功能 介 
绍 如 表 12.8 所 示 ，Solve 菜单 功能 介绍 如 表 12.9 所 示 ，Plot 菜单 功能 如 表 12.10 所 示 。 


表 12.6 ”Boundary 菜单 功能 介绍 








菜单 名 功能 
Boundary Mode 开始 边界 模式 
Specify Boundary Conditions 指定 为 已 选 边界 按 已 输入 的 边界 条 件 处 理 
Show Edge Labels 显示 边界 区 域 标注 
Show Subdomains Labels 显示 子 区 域 标注 
Remove Border Subdomain 删除 已 选取 的 子 区 域 边 界 
Export Decomposed Geometry, Boundary 导出 几何 矩阵 和 边界 条 件 矩 阵 到 workspace 
Cond's 
Specify boundary conditions 指定 边界 条 件 
表 12.7 PDE 菜单 功能 介绍 

菜单 名 功能 

PDE Mode 开始 偏 微分 方程 模式 

Show Subdomain Labels 显示 子 区域 标 注 

PDE Specification 输入 PDE 参数 和 类 型 


Export PDE Coefficents 当前 PDE 参数 输出 到 workspace 
表 12.8 ”Mesh 菜单 功能 介绍 


菜单 名 功能 菜单 名 功能 
Mesh Mode 开始 网 格 模式 Display Triangle Quality ”演示 三 角形 网 格 的 质量 
Initialize Mesh 初始 化 三 角形 网 格 Show Node Labels 显示 网 格 节点 标注 
Refine Mesh 加 密 当 前 三 角形 网 格 Show Triangle Labels 显示 三 角形 网 格 标注 
Jiggle Mesh 优化 网 格 Expoert Mesh 导出 网 格 参数 到 workspace 
Undo Mesh Change ”返回 到 前 一 次 网 格 模式 Parameters 参数 设置 
表 12.9 Solve 菜单 功能 介绍 
菜单 名 功能 
Solve PDE 求解 当前 设 定 的 偏 微分 方程 
Parameters 参数 设置 
Export Solution 导出 求解 结果 到 workspace 
表 12.10 ”Plot 菜单 功能 介绍 
菜单 名 功能 


Plot Solution 画 出 求解 结果 
Parameters 设置 绘图 参数 


Export Movie 若 动画 被 录制 ， 则 动画 矩阵 将 输出 到 workspace 
从 Window 菜单 中 ， 用 户 可 以 选择 当前 打开 的 所 有 MATLAB 图 形 窗口 ， 或 选择 后 面 的 窗口 到 
最 前 面 。 在 Help 菜单 中 ， 可 以 选择 简洁 帮助 窗口 和 带 有 一 些 程序 信息 的 窗口 。 
在 主 菜单 下 面 ， 一 些 图 标 按钮 ( 如 图 12.16 所 示 ) 可 以 快捷 地 运行 PDE 函数 和 各 菜单 中 的 主 
要 功能 。 按 钮 的 功能 从 左 到 右 按 序 排 列 : 左边 5 个 按钮 为 绘图 模式 ， 其 余 6 个 为 边界 、 网 格 、 解 
方程 和 图 形 显示 控 制 功能 ， 最 右边 的 是 图 形 缩放 功能 键 。 具 体 功能 如 表 12.11 描述 。 
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1 2 3 4 5 6 7 8 9 10 1l1 12 
图 12.16 _PDE 工具 箱 中 的 按钮 


表 12.11 ”按钮 功能 介绍 


序号 ”功能 序号 ”功能 

1 角 点 方式 画 矩 形 ( 操作 : Ctrl+ 鼠 标 ) 了 打开 PDE 对 话 框 

2 人 方形 ( 操作 : Ctrl+ 鼠 8 初始 化 三 角形 网 格 
3 矩形 角 点 方式 画 椭圆 ( 操作 : Ctrl+ 限 标 ) 9 加 密 三 角形 网 格 

4 中 心 方式 画 椭圆 / 圆 ( 操作 :Ctrl+ 鼠标) 10 解 偏 微分 方程 

5 画 多 边 形 ， 右 键 自动 封闭 多 边 形 11 画 出 解 的 三 维 图 形 
6 开始 界面 模式 12 缩放 图 形 


下 面 介 绍 典型 微分 方程 和 边界 条 件 。 


人 椭圆 形 方程 : -VCcu) 二 QUL= 上 

争 抛物 形 方程 :dou/ot-V:(cVa)+auk= 丰 
银 双 曲 线 方程 ，dDzu/o2 -V.(cu)+ax= 丰 
争 特征 值 方程 : -V.(cVr)+at= 4du 


Q 是 平面 有 界 区域 ，c ，4 ，j ，d 以 及 未 知 函 数 & 是 定义 在 QQ 上 的 实 或 复 函 数 。 下 面 以 椭 
圆 形 偏 微分 方程 为 例 说明 PDE 工具 箱 的 使 用 。 
例 12-13: 求 下 面 的 椭圆 形 偏 微分 方程 在 矩 形 区 域 ( 05Sx<s3，0<sy<s4 ) 内 的 解 。 


090 9 天 ol 
+ 一 0， 边 界 条 件 为 : Ul =0，o -=xz，o| =sin 了， 一 | =0。 


on | _， 
分 析 : 这 是 一 个 梢 圆 形 偏 微分 方程 ， 用 户 可 以 调用 PDE 界面 上 的 组 件 来 求解 这 个 微分 方程 。 
下 面 详 细 介绍 这 个 方程 的 求解 步骤 。 求 解 过 程 如 下 : 





设 定 方程 类 型 。 单 击 图 12.16 中 第 7 个 按钮 选择 方程 类 型 并 输入 参数 ， 如 图 12.17 所 示 ， 
最 后 单 击 OK 按钮 确认 。 

设置 区 域 。 单 击 图 12.16 中 的 第 1 个 按钮 来 设置 求解 区 域 ， 得 出 一 个 矩形 之 后 在 和 矩形 内 
部 双击 左 键 ， 在 相应 的 位 置 填 好 参数 ， 如 图 12.18 所 示 。 

















图 12.17 ”方程 类 型 设置 对 话 框 图 12.18 ”实体 的 参数 设置 对 话 杠 
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其 中 ，Left 指 算 形 区 域 最 左 侧 的 坐标 值 ，Bottom 指 最 下 面 的 坐标 值 ，Width 指 和 矩形 区 域 
的 宽度 ，Height 指 矩 形 区 域 的 高 度 ，Name 是 矩形 对 象 的 标注 ( 这 一 项 用 户 可 以 使 用 默 
认 值 )。 设置 好 参数 之 后 单 击 OK 按钮 可 以 确认 区 域 的 定义 。 

输入 边界 条 件 。 用 户 可 以 单 击 图 12.16 中 的 第 6 个 按钮 ， 此 时 算 形 边界 变 为 红色 边界 线 ， 


用 户 分 别 用 左 键 双 击 4 条 线 来 设置 边界 条 件 。 其 中 |-。= 0 ，L,-。=*，U|-, =sin 二 是 





狄 利克 菜 ( Dirichlet ) 条 件 ， 参 数 h 等 于 1,r 分 别 对 应 于 0,，x，sin(pi*y/2)， 而 2 


是 诺 依 曼 ( Neumann ) 条 件 ， 参 数 9=0，q=0。 输 入 的 界面 如 图 12.19 所 示 。 用 户 按 条 
件 正确 输入 就 可 以 了 。 











图 12.19 边界 条 件 输入 对 话 框 
单 击 图 12.16 中 第 8 个 按钮 ， 可 以 得 到 三 角形 剖 分 网 格 。 其 由 蓝 色 线段 构成 ， 这 里 略 去 ， 
感 兴趣 的 用 户 可 以 深入 研究 。 
用 户 单 击 图 12.16 中 的 第 10 按钮 可 以 进行 偏 微分 方程 的 求解 , 同时 MATLAB 会 利用 默认 
设置 把 结果 显示 出 来 。 
用 户 可 以 单 击 图 12.16 中 的 第 11 按钮 来 绘制 结果 的 曲面 图 。 单 击 这 个 按钮 之 后 会 出 现 一 
个 对 话 框 ， 如 图 12.20 所 示 , 在 这 个 对 话 框 中 可 以 进行 参数 的 设置 。 设 置 完毕 后 单 击 Plot 
按钮 就 可 以 画 出 图 形 来 了 ， 如 图 12.21 所 示 。 


























图 12.20 ”绘图 参数 对 话 框 


这 里 补充 一 下 关于 坐标 轴 范 围 设 置 的 技巧 ， 用 户 可 以 选择 菜单 Options/Axes Limits 弹出 如 图 
12.22 所 示 的 对 话 框 。 
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图 12.21 ”绘图 结果 图 12.22 ”坐标 轴 范 围 设置 对 话 框 

这 里 用 户 可 以 勾 选 两 个 Auto 复 选 框 ，MATLAB 将 会 自动 地 根据 坐标 轴 内 的 对 象 范围 来 选择 坐 
标 轴 范 围 。 

除了 前 面 介 绍 的 PDE 工具 箱 的 界面 形式 ，MATLAB 还 提供 了 函数 pdepe 来 求解 一 类 形 如 下 式 
的 偏 微分 方程 : 

c(nnwau/anj 呈 = 时 [erCsrwmau/an]+s(sewan1an ( 12-9 ) 

这 样 的 微分 方程 的 定义 需要 按 下 面 的 格式 : 
function [c,f,s] = pdefunname (X,,uv,uUx) 


用 户 需要 建立 一 个 名 为 pdefunname.m 的 函数 文件 ， 其 中 ux 对 应 于 9u19x ， 这 个 函数 文件 将 
作为 pdepe 的 输入 函数 中 的 偏 微分 方程 的 定义 。 边 界 条 件 的 一 般 描 述 是 : 

P{(x,bha)+g(xbu)F(xtutoue1or)=0 ( 12-10 ) 

公式 ( 12-10 ) 需要 建立 函数 文件 pdebcname.m 来 定义 ， 其 输入 和 输出 参数 如 下 面 的 形式 


function [pa,Gqa,pb,Gb] = pdebcname{(x,t,u,uXx) 


其 中 输出 参数 pa 和 qa 为 a 端点 的 值 ， 输 出 参数 pb 和 qb 为 b 端点 的 值 。 
而 初始 条 件 可 以 描述 为 &(x,m)=w ， 用 户 编写 下 面 形 式 的 函数 文件 即 可 : 


function uU0 = pdeicname (X) 


下 面 给 出 函数 pdepe 帮助 文档 中 例子 的 改编 版 本 来 说 明 该 函数 的 使 用 ， 程 序 代码 如 下 : 


ClLcCc; 

Clear; 

Close al1l; 

x = linspace(0,1,30); “ sg 定义 变量 x 的 采样 点 

t = linspace(0,2,30); sg 定义 变量 t 的 采样 点 

sl = pdepe(0,epdexlpde,epdexlic;epdexlbc,x,t);  $% 调用 函数 ddepe 求解 偏 微分 方程 
mesh(x, 上 ,sol); * 画图 

colormap([0,0,0])7 g% 设置 网 格 颜色 为 黑色 

set (gcf,'Ccolor'w') 7 s# 设置 背景 色 为 白色 


函数 pdex1pde，pdexiic 和 pdex1bc 为 MATLAB 自 带 函 数 ， 其 表达 式 用 户 可 参阅 帮助 文档 ， 
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所 得 图 形 如 图 12.23 所 示 。 该 图 形 关于 位 置 x=0.5 平面 对 称 ， 同 时 随 着 参数 t 的 增加 函数 值 的 起 伏 
程度 降低 。 
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图 12.23 ”利用 函数 pdepe 求 得 偏 微分 方程 结果 


12.8 利用 微分 算 积 分 


一 般 地 ， 积 分 表达 式 可 以 表示 为 ; 


1= |/(x)dr (12-11 ) 
上 面 的 积分 也 可 以 表示 为 7= F(b)- 严 (ae) ， 其 中 严 (z) 和 JP(x) 之 间 的 关系 是 : 
业 思 -7 人 (12-12 ) 


因此 只 要 求 出 函数 F{(x) ， 用 户 就 可 以 根据 7= 天 (b)- 民 (a) 来 计算 这 个 积分 结果 。 而 求解 式 
( 12-12 ) 可 以 使 用 ode 系列 函数 来 计算 F(x) 在 区间 [a,b] 上 的 数值 解 ， 求 出 所 得 结果 在 两 端点 的 
差 值 就 可 以 得 到 积分 结果 ,其 中 初 值 用 户 可 以 自行 设置 而 不 影响 求解 结果 。 下 面 举例 说 明 计算 方法 。 
例 12-14: 计算 下 面 的 定 积分 结果 。 
1 2 2 3 
二 三 话 Sin xdxr ， 靖 = zainz+ 上 | (x)dx ， 五 = beiaat 上 {x)drx 





分 析 ; 第 一 个 积分 可 以 直接 通过 求解 微分 方程 j/= ] 廿 二 sin x ( 求解 区 间 为 [0,] ) 得 到 。 而 第 


了 沾 这 ， 
二 个 积分 对 应 的 微分 方程 可 以 通过 两 边 对 x 求 导数 来 得 到 , 即 忆 =sinx+xcosx ,求解 区 间 为 [0,2] ， 
其 中 初始 条 件 随 意 设 定 。 
根据 上 面 的 分 析 可 以 建立 如 下 程序 来 计算 微分 方程 ， 为 方便 起 见 ， 这 里 使 用 函数 inline 来 定义 
微分 方程 。 程 序 代 码 如 下 : 





I1 = inline('(1+x^2)7(1+x^3) wsin(x)' xy I1')7 gs 建立 微分 方程 


I2 = inline('sin(x)+xwcos (xj 1x5y TI2)7 g% 建立 微分 方程 
[x,I1] = ode45(I1, [0,1],，2)7 # 调用 函数 ode45 解 微 分 方程 
[x,I2] = ode45(I2, [0,2],2); 调用 函数 ode45 解 微分 方程 


本 本 二 本 295 


MATLAB 科学 计算 与 可 视 化 仿真 宝典 ,> 和 


I1 = Il(end)-I1(1) 
I2 = I2(end)-I2(1) 


输出 结果 为 ， 


I1 = 0.4949 
I2 = 工 .8186 


更 换 第 一 个 微分 方程 和 第 二 个 微分 方程 的 初始 条 件 , 所 得 结果 并 不 改变 ,这 证 明了 前 面 的 观点 。 
此 外 用 户 可 以 用 options = odeset(RelTol,y) 来 设置 求解 精度 ， 其 中 v 是 一 个 较 小 的 正 数 。 


12.9 小 结 


微分 方程 模型 是 科学 研究 中 经 常 遇 到 的 问题 , 本 章 主要 介绍 了 微分 方程 的 求解 方法 。 首 先 介绍 
了 极限 的 符号 求解 方法 ， 接 下 来 介绍 了 利用 函数 diff 和 jacobian 计算 函数 的 全 导数 。 函 数 dsolve 
可 以 用 来 计算 一 些 简单 的 微分 方程 的 解析 解 o12.4 节 详 细 介绍 了 MATLAB 中 ode 系列 函数 的 用 法 ， 
通过 实例 给 出 了 不 同类 型 微分 方程 的 解法 。 本 章 在 后 面部 分 分 别 介绍 了 利用 打靶 法 求解 边 值 问题 ， 
其 中 包括 两 种 类 型 边 值 条 件 的 微分 方程 的 解法 ;介绍 了 利用 函数 dde23 来 求解 时 滞 微 分 方程 ; 结 
合 偏 微分 工具 箱 介绍 了 利用 MATLAB 求解 偏 微分 方程 ， 以 及 如 何 用 函数 pdepe 来 求解 一 类 偏 微分 
方程 ;最 后 介绍 了 利用 求解 微分 的 方法 来 计算 数值 积分 。 


人 全 会 
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急 级 数 求 和 ”介绍 利用 函数 symsum 级 数 求 和 的 方法 。 
人 离散 积分 的 计算 介绍 计算 积分 的 MATLAB 自 带 的 求解 积分 函数 以 及 一 些 数值 算法 。 
多 奇异 积分 计算 介绍 一 些 含 有 麻 异 点 的 被 积 函 数 对 应 的 积分 计算 。 


微 积分 思想 是 高 等 数学 的 基石 ， 很 多 科学 问题 中 都 存在 着 不 同类 型 的 积分 公式 模型 。 积 分 的 计 
算 在 很 多 学 科 中 都 有 着 重要 的 应 用 。 本 章 将 介绍 利用 MATLAB 求解 积分 的 问题 。 在 MATLAB 的 库 
函数 中 ,提供 了 两 种 方式 来 计算 积分 问题 ， 即 符号 积分 和 数值 积分 。 对 于 一 些 简单 的 函数 ， 用 户 可 
以 进行 符号 积分 运算 来 求解 结果 ,而 数值 积分 可 以 用 来 求解 不 同类 型 的 积分 。 人 们 研究 了 多 种 数值 
积分 方法 , 在 实际 应 用 中 需要 根据 被 积 函数 的 性 质 来 选择 数值 积分 方法 。 本 章 重 点 介绍 一 些 数 值 积 
分 算法 ， 帮 助 用 户 解决 常见 的 积分 问题 。 


13.1 级 数 求 和 
级 数 是 一 系列 与 自然 数 站 有 关 的 函数 集合 ， 其 可 以 表示 为 : 
a = 厂 (m ( 13-1 ) 


这 里 j(m) 是 一 个 与 4 有 关 的 函数 。 半 是 不 连续 的 ， 其 步 长 为 1， 而 级 数 求 和 可 以 认为 是 一 种 
比较 粗糙 的 积分 模型 ， 即 积分 步 长 dn 不 是 趋 于 0， 而 是 等 于 1。 


13.1.1 symsum 函数 
在 MATLAB 中 提供 了 symsum 函数 来 计算 级 数 求 有 限 项 或 者 无 穷 项 的 和 ， 其 调用 格式 为 ， 


Symsum(S) 

SYmsum(tS,V) 7 

Symsum{(S,a,b) 

symsum(S,Vv,a,b) ， 

参数 说 明 : s 是 返回 的 计算 结果 。S 是 级 数 的 表达 式 。v 用 来 指定 求 和 的 符号 变量 。a 和 b 用 
来 指定 对 [a,b] 区 间 内 的 自然 数 求 和 ,其 中 a 和 b 可 以 是 负数 或 者 小 数 。 当 a 或 者 b 为 小 数 时 ,MATLAB 
将 它们 向 零 取 整 ， 即 fx(a) 或 者 fx(b)， 这 一 点 用 户 在 使 用 时 需要 特别 注意 。 

下 面 举 例 说 明 函 数 symsum 的 用 法 。 


钱 有 页 田 
革 外 人 上 


Syms 了 卫 

s1 = symsum(1/n,1,inf) 

s2 = symsum(1/Vn^2,1,inf) 
= SYymsum(1/n^m,1,int) 
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S1 =Inf 
S2 =176*pi^2 
S3 =Sum(1lI/(n^m),nR = 1 .。Inf) 
可 见 在 计算 Vn” 时 ，MATLAB 不 能 给 出 一 个 数值 结果 ， 但 当 m 为 已 知 数 时 可 以 得 到 一 个 确定 
的 值 。 在 数学 上 ， 有 如 下 关系 式 : 
< 1 
在 MATLAB 中 用 户 可 以 直接 调用 函数 zeta 来 计算 此 类 级 数 无 穷 项 之 和 ， 调 用 格式 为 : 


Y = Zekta(k) 


此 外 还 可 以 用 函数 symsum 来 计算 仿 变 化 参数 的 级 数 ， 比 如 求 级 数 q, = 人 -的 无 穷 项 之 和 ， 
从 1 到 无 穷 。 程 序 如 下 : 
s4 = SYmsumt (-~m)^n/n,1vinf) 
输出 结果 为 : 
S4 =-1Log(1+m) 
13.1.2 taylor 函数 
这 里 再 介绍 关于 泰勒 级 数 展开 的 函数 taylor， 其 调用 格式 为 : 


taylor (E) 

taylor (上 ,mn) ; 

taylor(f,nvx0); 

上 taylor (f,Vv)， 

参数 说 明 : t 是 返回 的 泰勒 级 数 。f 是 函数 的 符号 表达 式 。n 为 整数 时 ，MATLAB 将 进行 麦克 劳 
林 级 数 展开 而 得 到 n-1 阶 多 项 式 ，n 的 默认 整数 值 是 6。 当 n 为 一 个 小 数 时 ， 返 回 在 n 处 展开 的 一 
个 次 多 项 式 形 式 。x0 表示 在 x0 处 展开 多 项 式 。v 用 来 指定 对 符号 变量 v 进行 泰勒 级 数 展开 。 

例 13-1: 调用 该 函数 求解 代数 函数 F (xnJ=tsinx。 


fT IT ITT CT 
中 中 中 


SymS X 七 ; 
f = sin(x) xc) & 输入 函数 的 表达 式 


tl = taylor:(f) % 计算 0 点 处 的 泰 勘 级 数 

t2 = taylor(f,6) ， s$ 计算 0 点 处 的 6 次 多 项 式 展开 泰勒 级 数 
t3 = taylor(f,6,3) * 计算 在 x=3 处 的 5 次 多 项 式 展开 泰勒 级 数 
t4 = taylor(f,) 计算 0 点 处 的 泰勒 级 数 ， 变 量 名 为 上 

ts5 = taylor(f,4.1) $% 选择 输入 参数 为 一 个 小 数 的 情况 


输出 为 : 


蕊 戎 XA 臣 一 工 太 有 机 起 叶 凑 人 忆 二 下 1 人 0 二 三 六 X 人 呈 

t2 =Xwt~1LW6NEwXA SAILXTZDAEWXA SS 

t3 
=sin(3)*t+Ccos{(3)*tw(X-3)-172w8in(3)xtx(X-3)^2-1V6*Cos(3)*t* (xX-3)^3+17V24wSsin(3) 
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七 w(X-3)^4+17120* 

cos (3)*Ew(x-3)^5 

t4 =Sin(X) * 七 

七 到 
sin(41/10)*t+cos(41710)*xtxr(X-41V/10)-1/2*sin(41/10)*tr(x-4l/10)^2-1/6*xcos(417110 
) *t 上 wx (X-41/10)^3+17/24x*sin(41710)*t*(X-41/A10)^4+17120*cos(41/10)*tw(X-41710)^5 


对 于 给 定 的 周期 为 7 的 函数 j(x) 可 以 存在 傅 里 时 级 数 。 对 于 定义 在 区 间 [a,a+7] 的 非 周期 函 
数 8(x) ， 用 户 可 以 进行 周期 解析 延 拓 ， 从 而 得 到 一 个 周期 函数 。 定 义 在 区 间 [0,7] 的 函数 (zx) 的 
傅 里 叶 级 数 可 以 表示 式 为 : 


27TCX 2 














1 (= 全 + 壮 oeos 志 , Sin 交 ( 13-2 ) 
其 中 系数 w 和 乌 可 以 表示 为 : 

2 7 217TXK 
Qi = 地 je 地 dx 4 7 二 01L2.. { 13-3 ) 
尼 =2 jrjaa 2 2 (13-4) 
， ,2， 


可 以 看 出 只 要 系数 q. 和 久 确 定 了 就 可 以 得 到 傅 里 时 级 数 的 结果 了 。 


13.1.3 ”人 和 傅 里 叶 级 数 


在 MATLAB 自 带 函数 中 ， 没 有 函数 来 计算 傅 里 时 级 数 的 系数 ， 用 户 需要 自己 编写 程序 来 计算 。 
下 面 的 函数 文件 Fseries.m 可 以 用 来 计算 。 
function [an,bn] = Fseries(f,T,R) 
an(1) = quadl (inline(E),0,T): 当 计算 a0 
for k=1l3sn; 
fc = inline([' (5fE,) .xcos(' num2str(2*kx*pi/T)，'*x)']); sg 定义 被 积 函数 
fs = inline(['(,f,') .xsin('num2str(2*k*pi/T)，'*xi'])) ss 定义 被 积 函数 
an{(k+1) = quadl(fc,0,T); % 调用 积分 函数 quadl 计算 系数 an 
bn{(k) = quadl(fs,0,T)， # 调用 积分 函数 auadl 计算 系数 bn 
end 


参数 说 明 : an 和 bn 是 返回 的 傅 里 叶 系数 数值 ， 其 中 = [ao,a…*a,] ， 包 = 岂 …, 儿 ] 。f 是 原 
函数 在 区 间 [0,7] 内 表达 式 对 应 的 字符 串 ， 需 要 说 明 的 是 f 中 需要 支持 对 变量 x 进行 向 量 计 算 。T 
是 函数 的 周期 en 表示 展开 的 项 数 ,总 项 数 为 2n+1oe 在 这 个 函数 的 定义 中 用 到 MATLAB 函数 quadl， 
该 函数 的 详细 用 法 将 在 后 面 的 章节 详细 介绍 。 

下 面 的 程序 是 计算 函数 /(x*)= xtanhx 在 区 间 [0,3] 的 傅 里 时 级 数 ， 


上 = 'Xowtanh(X) 7 
[an,bn] = FSseries(f,3,5) 


输出 为 : 


an = 2.3093 -0.2510 -0.0656 -0.0268 -0.0146 ， -0.0092 
bn = -0.3590 -0.2334 ， -0.1583 ” -0.1188 “-0.0950 
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13.2 ”离散 积分 的 计算 


本 节 来 介绍 积分 问题 的 求解 方法 。 首 先 来 介绍 MATLAB 提供 的 一 些 计 算 积 分 的 函数 ， 如 int， 
quad，quadl 等 ， 然 后 介绍 一 些 典型 的 数值 积分 算法 。 
13.2.1 函数 法 


在 MATLAB 中 ， 提 供 了 两 种 计算 积分 的 函数 ， 一 类 是 符号 积分 ， 由 函数 int 来 实现 ; 另 一 类 是 
数值 积分 ， 由 quad 和 quadl 等 函数 来 实现 。 下 面 详 细 介绍 这 些 函数 的 使 用 。 


13.2.1.1 函数 int 
函数 int 可 以 得 到 积分 问题 的 符号 解 , 包括 不 定 积分 和 定 积分 两 种 形式 的 积分 , 其 调用 格式 为 : 


I = int(S) g 格式 1 

I = int(S,v) 当 格式 2 
I = inc(S,a,b) $ 格式 3 
I = int(S,v,a,b) sg 格式 4 


参数 说 明 : | 是 输出 的 积分 结果 , 其 为 一 个 符号 型 数据 , 如 果 用 户 希 望 得 到 一 个 double 型 数据 ， 
可 以 使 用 函数 double 转化 。S 为 被 积 函 数 的 符号 表达 式 或 者 用 符号 表达 式 构成 的 矩阵 。v 用 于 指 
定 积分 变量 。a 和 b 用 来 定义 积分 的 上 下 限 。 

其 中 格式 1 和 格式 2 用 来 计算 不 定 积分 ， 而 格式 3 和 格式 4 用 来 计算 定 积分 。 下 面 举 例 介绍 
int 函数 的 用 法 。 


例 13-2: 求 下 面 的 函数 在 指定 区 间 的 积分 结果 : 厂 (x)= -三 ,计算 不 定 积分 ; 户 (x*)=sin ax ， 





1 上 + 
计算 不 定 积分 ; 户 (x)= sin(2cosx) ,积分 区 间 为 [0,x/2] ; 户 (xz)=cos(asinx) ,积分 区 间 为 [0,r/2] ; 
式 XCOSQX 
广 = 1 3+Ssinx |， 职 分 区 间 为 [0,x] 。 














2+sinx 2 二 COS 式 

分 析 : 本 问题 中 对 万 (z) 和 上 万 (zx) 计算 的 是 不 定 积分 ， 可 以 使 用 函数 int 的 第 1 种 调用 格式 和 第 
2 种 调用 格式 。 而 对 上 户 (x) 和 上 凡 (x) 计 算 的 是 定 积分 ， 此 时 需要 调用 的 是 第 3 种 调用 格式 和 第 4 种 
调用 格式 。 函 数 方 (x) 是 一 个 2x2 的 符号 函数 矩阵 , 需要 计算 其 定 积分 。 相应 的 求解 积分 程序 如 下 ， 


SYmS X ai; 
fl = x^3/[1+x^4];  $ 定义 函数 E1(x) 

f2 = sin(a*x) g 定义 函数 E2 (x) 

f3 = sin(2*cos(x));  g% 定义 函数 f3 (x) 

f4 = cos(axsin(x)); 当 定义 函数 f4(x) 

f5 = [x,xr*cos(ax*x);1/[2+sin(x)j],[3+sin(x)]/[2+cos(x)]]; % 定义 符号 函数 于 矩阵 5(x) 
F1 = int(ftl) 

F2 = int(f2) 

F3 = int(f3,0,pi/2》 

F4 = int(f4,x,0,Pi/V2) 

F5 = int(f5,x,0,pi) 


输出 积分 结果 为 ， 
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F1 =1/4*1og(1I+X^4) 
PF2 =-1/axcos (BawX) 
F3 =1/2*pi*StruveH(0,2) 
F4 =1/2*pixbesselj(0,a) 
F5 =[ 1/2*pi^2，(-1+cos (Pixa)+sin(pPi*a)*axpi)/a^21] 
[【 2/9s*pie3^(1V2)， 1og(3)+pPi*3^(17V2)] 

可 见 MATLAB 可 以 快捷 地 给 出 一 些 函数 的 不 定 积分 和 定 积分 结果 ， 利 用 MATLAB 的 这 个 功能 
可 以 节省 一 些 公式 的 理论 推导 工作 。 

众 所 周 之 ， 不 定 积分 的 结果 要 出 现 一 个 常数 ， 而 MATLAB 得 到 的 结果 中 这 个 函数 缺 省 了 ; 在 
被 积 函 数 中 存在 多 个 符号 变量 时 ， 如 果 用 户 不 指定 积分 变量 ， 则 x 被 认为 是 积分 变量 ; 一 些 积分 问 
题 的 结果 可 能 会 与 某 些 特殊 函数 有 关系 , MATLAB 给 出 一 个 利用 特殊 函数 表达 的 结果 , 前 面积 分 结 
果 中 的 StruveH 和 besselj 是 两 个 特殊 函数 ， 用 户 在 命令 窗 中 输入 "mhelp StruveH" 和 "help besselj" 
可 以 查看 它们 的 帮助 信息 ， 使 用 函数 double 作用 于 积分 结果 ， 即 double(F3) 和 double(F4) 就 可 以 
得 到 一 个 数值 了 ;， 当 被 积 函数 不 存在 解析 解 时 ，MATLAB 将 输出 一 个 积分 表达 式 ， 比 如 计算 函数 


cos(asinx) 在 区 间 [0,1] 的 定 积分 ， 即 ; 


SYmS X 己 
int(cos(a*sin(Xx)),0,1I) 
执行 后 在 命令 窗 会 提示 用 户 ， 


Warning: Explicit integral could not be ftound, 
> In Sym.int at 58 
ans =int(cos(arsin(x)),x = 0 .。 1) 

此 时 用 户 需要 考虑 使 用 数值 方法 来 计算 积分 问题 ， 积 分 的 上 下 限 还 可 以 使 用 inf 和 -inf 来 表示 
正 负 无 穷 大 ,积分 限 还 可 以 用 符号 变量 来 表示 ， 如 此 可 以 计算 变 上 ( 下 ) 限 积分 以 及 一 些 复杂 的 上 
下 限 形式 。 

例 13-3: 求 下 面 的 积分 。 


8 (zx) 天 za 
go= VEadr 


分 析 : 这 两 个 积分 是 变 上 限 积分 ， 其 中 8: (x) 的 上 下 限 是 三 角 函 数 。 对 于 这 样 的 积分 ， 用 户 仍 
可 以 利用 函数 int 来 求解 。 在 对 应 的 上 下 积分 限 把 三 角 函 数 形式 写 进去 就 可 以 了 。 
相应 的 计算 程序 如 下 
SYmS X 上 7 
gl1 = int(sin(Xx)/Vx,x,0,sin(t)) 
g2 = int(sqrt(1+X^2),x,cos(t) ,sin(t)) 


输出 结果 为 : 


gl1 = sinint(sin(t)) 
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3 ~1/2*asinh(cos(t))+1/2wsin(t)w(1L+sin(tct)^2)^(172 
)+172*asinh(sin(t)) 

其 中 asinh 是 反 双 曲 正 弦 函 数 , 而 函数 sinint 是 特殊 函数 , 其 定义 为 sinint(x) =int (sin(b/tt,0,x)。 
可 见 MATLAB 对 于 第 一 个 变 上 限 积分 没有 计算 ， 而 是 以 一 个 特殊 函数 给 出 来 。 

例 13-4: 利用 函数 int 来 计算 下 面 函数 对 所 有 变量 的 多 重 定 积分 。 

hn (xy>)=sin(xy?) ， 变 量 取 值 范围 是 xye[0]] 。 

几 (zz)=sin(xy)+xsinz ， 变 量 取 值 范围 是 m ye[0,1] ，ze [0,2]。 

凡 ({x yz)= 聊 cosz ， 变 量 取 值 范围 是 xs[0.]] ，x+ye[01] ，zs[0 。 

分 析 : 上 述 3 个 函数 的 多 重 积 分 ， 用 户 可 以 调用 函数 逐个 变量 求 积 分 。 前 两 个 函数 用 户 在 求 
积分 的 时 候 可 以 以 任意 顺序 对 多 个 变量 积分 , 在 第 3 个 函数 中 , 变量 x 和 >y 之 间 不 是 独立 的 ,存在 
着 一 定 的 关系 ， 用 户 需要 按照 顺序 来 计算 ， 而 变量 z 是 独立 的 。 在 计算 函数 请 (x) 的 积分 中 ， 可 以 
按 ? 一 < 一 z 的 顺序 来 求解 积分 ， 其 中 变量 》 的 积分 范围 是 [0,1-x] ， 而 变量 x 和 z 的 积分 范围 是 
[0,1] 。 求 解 程序 如 下 ， 


SYmS XY Zz7 
hl = int(sin(xx*Yy^2),x,0,1) 1; # ”对 变量 x 积分 
hl = int(hl,y,0,1) # 对 变量 y 积分 
h2 = int(sin(x^2x*y)+x*sin(z),x,0,1); $ 对 变量 x 积分 
h2 = int(h2,yY,0,1)， # 对 变量 Y 积分 
h2 = int(h2,z,0,2) gs 对 变量 z 积分 
h3 = int(xwywcos(Z),Yv,0,1-Xx); 外 对 变量 y 积分 
h3 = int(th3,x,0,1); sg ”对 变量 x 积分 
h3 = int(h3,z,0,1) # 对 变量 z 积分 
上 述 程序 输出 为 : 


hl =-1+cos(1)+2^(1/2)*pi^(1712) *FresnelS(2^(1/2)V/pi^(1/2)) 
h2 =1/2+1/3*hypergeom([3/4，1],[3/12，7/4，2],-1/4)-1/2*cos(2) 
h3 =1/24xsin{(1) ， 
其 中 FresnelS 和 hypergeom 是 特殊 函数 ， 用 户 在 命令 窗 输入 mhelp FresnelS 和 mhelp 
hypergeom 可 以 查阅 这 两 个 函数 的 帮助 信息 。 使 用 下 面 的 语句 可 以 得 到 相应 的 数值 解 
V123 = double([hl,h2,h3]) 
输出 为 : 
Vv123 = 0.1608 1.0298 0.0351 
在 第 12 章 介绍 了 利用 MATLAB 求解 微分 方程 数值 解 的 函数 来 计算 积分 问题 ， 本 节 考 虑 使 用 
MATLAB 中 的 函数 dsolve 来 计算 MATLAB 的 积分 问题 ， 其 原理 也 是 求 被 积 函数 对 应 的 微分 方程 的 
解 ， 即 下 面 的 微分 方程 : 
dF() 
dr 
其 中 (zx) 表示 被 积 函数 的 表达 式 。 严 (x) 是 对 应 的 原 函 数 。 对 于 不 定 积分 ， 函 数 dsolve 得 到 
的 结果 就 是 积分 的 结果 ， 而 定 积 分 的 计算 可 以 通过 积分 限 的 差 值 来 得 到 积分 结果 。 函 数 dsolve 的 
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用 法 已 经 在 第 12.3 节 进行 了 介绍 。 下 面 举 例 说 明 利用 函数 dsolve 计算 积分 问题 。 

例 13-5: 利用 函数 dsolve 来 求 下 面 的 积分 : 

6， 及 = 

分 析 : 在 例 13-4 中 的 两 个 积分 分 别 是 不 定 积分 和 定 积分 。 对 于 定 积分 的 求解 ， 微 分 方程 的 初 
值 可 以 任意 选择 而 不 影响 计算 结果 。 其 中 的 微分 方程 是 一 阶 微分 方程 ， 它 们 为 : 


帮 (x)=sinz/2+D ， 厅 (=es 





计算 程序 如 下 : 
F1 = dsolve('DF1 = sin(t)/(t^2+1) ')1 s# 求解 微分 方程 
富 RE = sin(t)/t''F2(0)=0')7  $% 求解 微分 方程 
P2 = subs(F2,pi)-subs(F2,0) # 带 入 积分 限 求 差 
输出 结果 为 : 


P1 = 
-1L/V2*i*sinint(t-i)*cosh(1)+1V/2x*cosint(t-i)x*xsinh(1I)+17/2*ixsinint(t+i)*xcosh(1)+1 
/2*xcosint (t+i)*sinh(I)+CI 

P2 = 1.8519 


外 过 程 结果 Fl 和 F2 是 符号 型 变量 ， 而 在 不 定 积分 中 也 可 以 得 到 一 个 积分 常数 C1 。 


前 面 介绍 了 符号 法 求解 积分 问题 ， 下 面 介绍 MATLAB 提供 的 函数 计算 数值 积分 。 

对 于 变化 缓慢 的 被 积 函数 , 使 用 等 间距 离散 采样 步 长 可 以 保证 整体 计算 的 精度 。 然 而 如 果 被 积 
函数 在 某 个 范围 内 变化 很 剧烈 , 则 为 了 保证 计算 精度 就 需要 使 用 更 小 的 采样 步 长 。 因 此 如 果 设 计 一 
种 算法 能 在 被 积 函数 变化 范围 比较 大 的 时 候 采 样 点 密集 , 而 在 函数 值 变化 缓慢 的 区 间 采 用 较 稀疏 的 
采样 点 , 就 可 以 在 使 用 较 少 的 采样 点 数 得 到 很 高 的 求解 精度 。 这 种 算法 也 相应 地 被 称 为 自 适应 积分 
法 。 下 面 介绍 一 些 实现 自 适应 积分 的 MATLAB 函数 。 


13.2.1.2 ”函数 quad 


MATLAB 中 的 函数 quad 采用 自 适应 辛普森 ( Simpson ) 积分 公式 来 计算 数值 积分 问题 ， 该 函 
数 可 以 用 来 计算 一 元 定 积分 问题 ， 其 调用 格式 为 : 
= quad(fun,a,b) 
= quad(fun,a,btol)， 
= quad(funva,b,tol,race)， 
qq,fcnt] = quad(fun,a,b,tol,trace) : 
参数 说 明 : q 是 计算 的 积分 结果 。fcnt 是 被 积 函数 计算 的 次 数 。fun 是 函数 的 句柄 。a 和 b 分 
别 是 积分 的 下 限 和 上 限 ， 对 于 a 和 b 的 大 小 关系 没有 限制 ， 如 果 用 户 交换 a 和 b 位 置 ， 所 得 结果 
是 前 面 加 一 个 负 号 。tol 是 精度 控制 量 ， 其 为 一 个 较 小 的 数 ， 默 认 值 是 1e-6。 参 数 trace 用 于 在 迭 
代 过 程 中 表示 向 量 [fcnt,a,b-a,q]。 其 中 输入 参数 fun，a 和 b 是 必需 的 。 下 面 举例 来 说 明 该 函数 的 
用 法 。 
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例 13-6: 计算 下 面 的 积分 : 

J= [sin3xedr， 户 = [sin(V-Pjtx， 太 = 【srar， 太 = Tee( 5 

分 析 : 被 积 函数 可 以 有 两 种 方法 来 定义 , 即使 用 一 个 函数 文件 来 定义 和 使 用 函数 inline 来 定义 。 
在 第 3 个 和 第 4 个 积分 中 还 存在 着 常数 c 和 de 下 面 给 出 的 程序 分 别 使 用 这 两 种 方法 定义 ， 需 要 注 
意 的 是 函数 表达 式 中 的 乘 、 除 、 乘 方 等 运算 需要 支持 向 量 计算 ， 否 则 要 出 现 错误 提示 。 

下 面 两 个 函数 文件 intfun1.m 和 intfun2.m 的 内 容 是 分 别 用 来 定义 第 1 个 和 第 4 个 积分 表达 式 
中 的 被 积 函数 的 。 





function Y = intfunl(X) 


y = sin(3x*x) .*exp(-4xx); % 被 积 函数 表达 式 


function Y = intfun2(x,G) 7; 


Y = cos(2./[x+d]); g% 被 积 函数 表达 式 
第 2 个 和 第 3 个 被 积 函数 在 主 文件 中 定义 ， 主 程序 内 容 为 : 


c=2; sg% 参数 赋值 

d=3; % 参数 赋值 

fun2 = inline('sin(sqrt(x)-x.^2)')， g 定义 第 2 个 积分 中 的 被 积 函 数 

fun3 = inline('[1+cos(x)]./[c+exp(x)]''x'vrc'); sg% 定义 第 3 个 积分 中 的 被 积 函数 
fl = quad('intfun1',0,2) 

f2 = quad{(G@(x)fun2 (xX),0,2,1e-5) 

f3 = quad{@(Xx)fun3 (x,c),0,2,1e-5) 


于 4 quad{(G@(x)intfun2(x,d),0,2) 
输出 结果 为 : 

fl = 0.1200 

f2 = -0.3331 

f3 = 0.6837 

f4 = 1.7397 

NA 用 户 可 以 用 引号 和 符号 @ 来 标识 函数 句柄 ， 但 是 需要 注意 它们 的 用 法 和 使 用 范围 。 

SR 


注 辟 引号 方式 适用 于 函数 文件 定义 的 被 积 函数 。 符 号 @ 适 用 于 两 种 定义 被 积 函数 ， 但 应 
注意 需要 使 用 下 面 的 格式 : @(x)funname(X) 或 者 @(x)funname(X,c)。 为 了 不 发 生 错误 ， 
不 熟练 的 用 户 可 以 都 使 用 符号 @ 来 标识 函数 句柄 。 下 面 的 语句 是 不 正确 的 ,会 出 现 
错误 提示 信息 。 
f2pP = quad(efun2,0,2) 
ft2gG = quad('fun2',0,2) 


13.2.1.3 函数 quadv 


函数 quadv 和 函数 quad 的 功能 类 似 ， 不 同 的 是 quadv 可 以 求解 被 积 函数 中 含 向 量 参数 的 情 
况 。 函 数 quadv 的 调用 格式 为 : 
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SG = quadv(fun,a,b): 
G = quadv(fun,a,b,tol); 
SG = quadv (fun,a,b,ol,trace); 
[q,fcnt] = quadv(fun,a,b,tol,trace) 

参数 说 明 : 该 函数 的 输入 和 输出 参数 与 函数 quad 的 参数 含义 和 用 法 类 似 ， 不 同 之 处 是 对 于 函 
数 quadv, 被 积 函数 fun 中 还 有 向 量 或 者 是 由 多 个 表达 式 组 成 的 向 量 函数 ,因此 输出 积分 结果 q 的 
行 数 和 列 数 与 输入 参数 fun 的 行 数 和 列 数 相同 。 下 面 举例 来 说 明 该 函数 的 用 法 。 

例 13-7: 求解 下 面 的 积分 ， 其 中 参数 "是 一 个 向 量 ， 其 值 为 v= [1,2,3,4,5] 。 


1 1 
内 = 人 cos(yr)jdr ， 心 = | cos(2x),sin(x)]dr， 
0 0 


屋 冯 下 和 机 
0 cosX YYCcOS2X 

分 析 : 这 两 个 积分 中 ， 第 1 个 积分 含有 一 个 向 量 参数 ， 第 2 个 积分 被 积 函数 是 由 两 个 函数 组 
成 的 向 量 函 数 ， 第 3 个 积分 被 积 函 数 是 一 个 矩阵 形式 。 这 里 给 出 一 种 直接 输入 被 积 函数 的 形式 ， 
即 不 用 编写 函数 文件 或 者 调用 inline 函数 来 定义 积分 函数 。 相 应 的 计算 程序 如 下 ， 
ul = quadv(@(x)x.^3.*cos([1:5]*x),0,1) $% 计算 积分 区 ， 参 数 v 以 向 量 形式 输入 
u2 = quadv(8@(x) [x.^2.x*cos(2*X),x.^3.*sin(x)],0,1) # 计算 积分 ro 
u3 = quadv (8@(Xx) [x,*cos(X),x.^2.*sin(x);x.^2.*Sin(x),x.*cos(2*X)],0,1) $% 计算 积分 
13 ，4 个 函数 以 矩阵 形式 输入 


输出 为 : 


UL = 0.1717 -0.0084 -0.1669 -0.2021 -0.1048 
U2 = 0.0193 0.1771 
U2 = 0.3818 0.2232 


0.2232 0.1006 


可 见 利用 函数 quadv 可 以 同时 计算 多 个 积分 ， 这 一 点 在 实际 应 用 中 是 非常 便利 的 ， 若 要 用 函 
数 quad， 则 需要 使 用 循环 结构 计算 。 


13.2.1.4 函数 quadl 
函数 quadl 采用 自 适应 洛 巴 托 { Lobatto ) 积分 法 来 计算 数值 积分 ， 其 调用 格式 为 : 


G = quadl (fun,a,b); 
G = quadl (fun,a,b,tol); 
G = Guadl(fun,avb,tol,trace) ; 
[q,fcnt] = quadl (fun,a,b,tol,trace); 

参数 说 明 : 从 上 面 介绍 的 调用 格式 可 以 发 现 函 数 quadl 和 函数 quad 完全 相同 ， 它 们 的 输入 、 
输出 参数 的 意义 也 相同 ， 这 里 不 再 袭 述 。 函 数 quad 一 般 对 于 不 光滑 函数 较 低 精 度 有 效 。 而 函数 
quadl 对 于 光滑 函数 较 高 精度 有 效 。 下 面 举 例 来 说 明 这 个 函数 的 用 法 。 

例 13-8: 求 下 面 函 数 的 积分 ， 其 中 参数 a=2.3 ，=1.5。 


一 
(xz-2 +5 5 ” (x+2) "+ 
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分 析 : 这 个 问题 中 ， 两 个 被 积 函 数 都 是 分 式 形 式 ， 而 第 2 个 积分 中 含有 两 个 参数 。 这 里 分 别 
考虑 使 用 两 种 方式 来 定义 被 积 函 数 。 
利用 下 面 的 函数 文件 intfun3.m 来 定义 积分 9 中 的 被 积 函数 ， 内 容 如 下 ， 


function Y = intfun3 (X,avb): 


Y= (x+2) .^a+bi s 被 积 函数 表达 式 
第 1 个 被 积 函数 使 用 MATLAB 函数 inline 来 定义 ， 同 时 写 入 主 程 序 。 主 程序 内 容 如 下 : 


funl = inline('(X-2) .^2+5')7 

tol = le-8'; sg 定义 积分 精度 
a=2.3; % 对 参数 a 赋值 

b=1.5; # 对 参数 b 赋值 

q91L = quadl (@(x)Eunl(x),0,2) 

q2 = quadl(G@(x)intftun3(x,avb),0,2) 


输出 结果 为 : 
ql = 12.6667 
q2 = 29.4111 
这 里 需要 说 明 的 是 函数 quad 和 quadl 的 积分 限 不 能 包含 无 穷 大 ， 比 如 下 面 的 例子 : 
ff = inlinel('1./x.^2') 7 8 定义 被 积 函数 
qd3 = quad(@(x)ff(x),1,inft)  s% 调用 函数 quad 计算 从 1 到 无 穷 的 积分 
q4 = quadl(@(x)Ef(x),1,inf)  $% 调用 函数 quadl 计算 从 1 到 无 穷 的 积分 


输出 为 : 


Warning: Infinite or Not-a-Number function value encountered . 
> In quad at 109 
In examplel3_6 at 11 
G93 三 NaN 
warning: Minimum step size reached; singularity possible. 
> In quadl at 101 
In examplel3_6 at 12 
9q4 = Inf 


众所周知 ， | 点 dx =1， 显 然 上 面 两 个 计算 积分 的 函数 quad 和 quadl 对 于 这 样 的 积分 是 无 能 
为 力 的 。 
13.2.1.5 函数 quadgk 


函数 quadgk 采用 自 适应 高 斯 -克朗 罗 德 ( Gauss-Kronrod ) 积分 法 来 计算 数值 积分 ， 该 函数 可 
以 用 来 解决 含有 无 穷 区 间 端 点 的 积分 、 端 点 中 等 奇异 的 积分 以 及 沿 分 段 线性 路 径 的 路 径 积 分 。 其 调 
用 格式 为 : 


G = quadgk(Eun,arb)i; 
[aq, errbnd] = quadagk(fun,ayb,paraml,vall,pParam2,Val2，...); 


参数 说 明 : q 是 输出 的 结果 。errbnd 是 一 个 绝对 误差 的 近似 范围 。fun 是 被 积 函 数 对 应 的 句柄 。 
a 和 是 积分 的 上 下 限 。param1 和 param2 表示 属性 名 。val1 和 val2 是 属性 相应 的 取 值 。 其 中 的 
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属性 名 包括 AbsTol 是 绝对 误差 范围 , 其 默认 值 是 1e-10; RelTol 是 相对 误差 范围 , 其 默认 值 是 1e-6， 
输出 参数 erbnd 不 大 于 max(AbsTol,RelTol*|q|);， Waypoints 是 积分 区 间 内 所 有 中 断 点 按 单调 递增 
或 者 递减 顺序 组 成 的 一 个 向 量 ， 其 中 奇异 点 不 能 包含 在 Waypoint 向 量 里 面 ， 奇 异 点 只 能 是 区 间 端 
点 ; MaxlntervalCount 是 允许 区 间 的 最 大 数目 ， 其 默认 值 是 650， 超 过 这 个 数值 MATLAB 将 会 以 警 
告 的 方式 通知 用 户 。 下 面 举 例 说 明 函 数 quadgk 的 用 法 。 

例 13-9: 计算 下 列 积分 的 数值 。 

Wi = 太 ，W2 = Ja 和， = 斥 5e 

其 中 ， 函 数 p(x) 和 参数 如 下 定义 : 





思 xe [0,]] 1+i 


sinx， xxel(l2) 殉 : 


P(x)= 瑟 2 心 


cosr， xe[2.3)” 
22 一 3x， Xe [3,4] yy 
分 析 : 这 是 3 种 不 同类 型 的 积分 ， 即 积分 W 的 上 积分 限 是 无 穷 大 ， 积 分 w? 是 一 个 分 段 不 连续 
函数 ， 积 分 内 是 一 个 路 径 积 分 。 下 面 调用 函数 quadgk 来 求解 这 3 个 积分 的 数值 。 
这 里 使 用 函数 文件 intfun4.m 来 定义 w 中 的 被 积 函数 ， 具 体 如 下 : 


function yY = intfun4 (X) : 

Y = X.^2-3*X7 

Y(x>=0&x<=1) = x(x>=0&x<=1);  % 被 积 函 数 表 达 式 
Y(x>l&x<2) = sin(x(x>1&x<2)) 7 g 被 积 函数 表达 式 
Y(x>=2&x<3) = cos (x(x>=2&x<3)); % 被 积 函数 表达 式 


其 中 针对 不 同 区 间 的 取 值 进行 了 计算 , 此 外 用 户 还 可 以 使 用 间 语 句 来 定义 这 个 分 段 函数 。 其 他 
两 个 函数 在 主 程序 中 定义 ， 主 程序 内 容 如 下 : 


funl = inline('"1./X.^2')7 #% 定义 第 一 个 积分 中 的 被 积 函 数 
wl = quadgk{(@(x)funl(x),1,inf) g% 求 第 一 个 积分 
format Long 
w2 = quadgk(@(x)intfun4(x),0,4，'absTol' ,1e-3) s# 求 第 二 个 积分 
w2p = quadgk(e@{x)intfun4(x),0,4,'Waypoints', [1,2,3],'RbsTol' ,le-3) s# 求 第 二 个 积分 
w2qg = quad(e(x)intfun4(x),0,4) # 求 第 二 个 积分 
Q = quadgk(e@(z)1,./(2x*z-1),0,0,，'Waypoints', [1+i,1-i]) g 求 第 三 个 积分 
format Short 

输出 结果 如 下 : 
则 1 = 1 


w2 = 2.521890211276745 
w2p = ，2.521605056982800 
w2q = ,2.521598038417038 
=-0.000000000000000-3.141592653589800i 
可 见 函数 quadgk 可 以 用 来 成 功 地 求解 一 些 特殊 的 积分 问题 : 对 于 无 穷 积 分 限 的 情况 ， 该 函数 
可 以 得 到 正确 的 结果 ; 对 于 含有 断 点 的 函数 可 以 通过 设置 断 点 的 属性 来 改善 结果 , 比较 上 面 的 结果 
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w2p 和 w2q 可 以 看 出 ， 设 置 断 点 位 置 ( w2q ) 和 不 设置 ( w2p )} 得 到 的 结果 在 较 小 的 小 数位 上 不 一 
样 ， 其 中 w2q 更 精确 些 ， 并 且 随 着 绝对 精度 参数 AbsTol 基本 不 变 ， 对 于 第 3 个 积分 的 计算 语句 ， 
用 户 可 以 使 用 “@(z)1./(2*z-1) ”形式 来 直接 输入 被 积 函 数 ， 这 样 对 于 解决 表达 式 简单 的 积分 问题 
十 分 方便 ， 使 得 编程 简单 。 

此 外 对 于 断 点 奇异 的 积分 ， 函 数 quadgk 可 以 解决 ， 比 如 计算 下 面 的 积分 ， 


WwW, = [| 拓 (Inx) dx 
0 
被 积 函 数 在 x = 0 处 是 奇异 的 。 这 样 的 积分 利用 前 面 的 函数 quad 和 quadl 是 无 法 计算 的 ， 而 
函数 quadgk 可 以 轻松 搞定 。 相 应 的 计算 语句 如 下 ， 


w4 = quadgk{(@(x)exp(-x.^2) .*1og(Xx) .^2,0,inf) 
输出 结果 为 
W4 = 1.9475 
通过 上 面 的 介绍 ， 可 以 发 现 函数 quadgk 可 以 有 效 地 解决 一 些 不 易 计 算 的 积分 ,希望 用 户 熟 练 
掌握 这 个 函数 的 用 法 ， 来 解决 实际 应 用 中 的 积分 难题 。 
13.2.1.6 函数 dblquad 
函数 dblquad 可 以 用 来 计算 二 重 积分 问题 ， 其 调用 格式 为 ， 


dblauad (fun,xmin, xmax,ymin,ymax) ; 

dblquad (fun, xmin,xmax,ymin,ymax,ol) 

dblauad (fun,xmin, xmax,ymin,ymax, 上 ol,edquadl); 

ablduaa (fun, xmin, xmax,ymin,ymax, 上 ol,mygquadf) ， 

参数 说 明 : q 是 输出 的 积分 结果 。fun 表示 被 积 函数 。xmin 和 xmax 分 别 对 应 于 变量 x 的 下 积 
分 限 和 上 积分 限 -ymin 和 ymax 分 别 对 应 于 变量 y 的 下 积分 限 和 上 积分 限 otol 是 精度 控制 量 。@quadl 
表示 使 用 求 积分 函数 quad| 来 代替 默认 的 quad 计算 。 myquadf 表示 用 户 自 定义 积分 函数 来 代替 函 
数 quad。 下 面 举例 说 明 函 数 dblquad 的 用 法 。 

例 13-10: 求 下 面 的 二 重 积分 ， 其 中 参数 C 表示 圆 好 + 六 =1 内 部 的 区 域 ， 已 表示 椭圆 


妇 212 上 + 只 13=1 内 部 的 区 域 。 
有 = Jfeny- ycos xdxrdy ， 天 ,= [le dxdy ， 天 ; = jjaacryam， 


旺旺 有 呈 
相 下 


K4 一 订 吕 。 drdy ，AK5 = wps)am， Kc = 全 人 -2) 避 


分 析 : 问题 中 含有 6 个 积分 ， 其 中 前 4 个 的 积分 区 域 形 状 是 规则 的 矩形， 而 后 两 个 积分 的 区 
域 形状 是 非 矩形 ,用 户 可 以 把 积分 区 域外 部 的 函数 值 设置 为 0， 即 可 按 包含 积分 区 域 的 最 小 矩形 求 
积分 。 这 个 技巧 可 以 扩展 到 求解 其 他 不 规则 区 域 的 二 重 积分 计算 。 下 面 来 建立 求解 程序 。 

为 了 简便 ， 这 里 直接 输入 被 积 函数 而 不 另行 建立 函数 文件 或 者 调用 inline 函数 来 定义 ， 相 应 的 
计算 程序 如 下 ; 
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tol = le-5; s 精度 控制 

myauadf = inline('aquadgk');  * 定义 积分 函数 

K1 = dablquad(e (x,Y)x*sin(y)-yw*cos (x),0,2,0,1) 
K2 = dblquad(8@(x,Y)xrexp(y),0,3,0,1,tol) 

K3 = dblquad(e@e(x,y)sin(x+y),0,2,0,pi,'aquad1l') 


K4 = dblquad(e(x,y)2.x*x.*y./[1+X.^2+YyY.^2],0,2,0,pi,'myquadf') 
K5 = dblquad(G@(x,y)cos (2*Xx+y) .xsign(SGrt (max(1-(x.^2+Y.^2),0)))，-1,1,-1,1L) 
K6 = 


dblquad(@(x,y)sin(x,^2-2*y).*(X.^2/2+Y.^2/3<=1),-SGrt (2), sqrt (2), -sqrt (3)，SGIt 
(3) ) 


输出 结果 为 
K1 = 0.4647 
K2 = 7.7323 
K3 = 1.8186 
K4 = 3.0781 
K5 = 1.5471 
K6 = “0.8129 


对 于 myquadf， 用 户 可 以 调用 quadgk 函数 ， 其 利用 函数 inline 可 以 简单 地 定义 ， 同 时 tol 后 
面积 分 函数 的 标识 需要 使 用 引号 , 若 使 用 符号 @ 会 出 现 错误 提示 ; 圆 形 的 积分 区 域 利 用 这 个 语句 段 
sign(sqrt(max(1-(x.^2+y ^2),0)) 来 实现 ， 其 原理 是 : 首先 比较 函数 让 (x,y)=1- 关 一 六 和 0 的 
大 小 关系 ， 区 域内 部 的 值 大 于 0， 外 部 的 值 小 于 0， 而 边界 的 值 等 于 0， 因 此 通过 和 0 0 
系 可 以 提取 出 问题 中 的 积分 区 域 , 再 通过 符号 函数 可 以 把 内 部 的 正 数 变 为 1, 从 而 不 影响 积分 结 
顶 圆 积分 区 域 通过 简单 的 语句 (x,. 人 2/2+y^2/3<=1) 来 提取 。 这 个 方法 可 以 进一步 推广 ， 
封闭 曲线 ( 让 (x,y) = 0 ) 内 部 的 区 域 可 以 通过 让 (x,y) > 0 提取 ， 比 如 第 5 个 积分 中 的 积分 区 域 
可 以 通过 (x.^2+y^2<=1) 来 实现 。 

13.2.1.7 ”函数 triplequad 


函数 triplequad 可 以 用 来 计算 三 重 积分 问题 ， 其 调用 格式 为 : 


tripleaquad (fun,xmin, xmax,ymin,ymax,zZmin, ZImaXx) ; 
triplequad (fun,xmin, xmax,yImin,ymax,zmin, ZImax,tol)7 
triplequad (fun,xmin,xmax,ymin,ymax,zmin,zZmax,tol,8@edquadl); 
tripledquad(fun,xmin,xmax,ymin,ymax,zmin, zmax,tol,mygquadGf) ; 
参数 说 明 : 函数 triplequad 的 调用 格式 和 函数 dblquad 相似 。q 是 输出 的 积分 结果 。fun 表示 
被 积 函 数 。xmin 和 xmax 分 别 对 应 于 变量 x 的 下 积分 限 和 上 积分 限 ，ymin 和 ymax 分 别 对 应 于 变 
量 y 的 下 积分 限 和 上 积分 限 ，zmin 和 zmax 分 别 对 应 于 变量 z 的 下 积分 限 和 上 积分 限 。tol 是 精度 
控制 量 , 其 默认 值 是 1e-6。@quadl 表示 使 用 求 积 分 函数 quadl 代替 默认 的 quad 来 计算 。 myquadf 
表示 用 户 自 定义 积分 函数 来 代替 函数 quad。 下 面 举 例 说明 函 数 triplequad 的 用 法 。 

例 13-11: 求 下 面 三 重 积 分 的 数值 ， 其 中 参数 已 表示 椭圆 球 刀 /2+ 交 13+z214=1 内 部 区 
域 。 


站 有 ce 有 ce 吕 
LU 


二 定 大 


dz ， 
十 六 +z3+1 Et 


xsin(y+z)dxdydz ， 疡 = 号 2 


0 
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分 析 :对 于 三 重 积分 的 计算 可 以 进行 与 二 重 积 分 类 似 的 处 理 , 前 两 个 积分 的 积分 区 域 是 长 方 体 ， 
而 最 后 一 个 积分 的 积分 区 域 是 非 矩形 区 域 ,可 考虑 使 用 类 似 于 例 13-10 中 第 6 个 积分 那样 的 处 理 方 
法 ， 通 过 增加 一 个 调制 项 转化 为 对 被 积 函 数 的 调整 。 相 应 的 求解 语句 如 下 所 示 。 


tol = le-5; gs 精度 控制 

L1 = triplequaa{e(x,y,z)xx*sin(y+z),0,3,0,2,0,1) 8 定义 区 间 计算 三 重 积分 

L2 = triplequad(@{(x,yY,z) [x+y+z]./[x.^2+Y7.^2+2.^2+1],0,3,0,2,0,1,tol，'Guadl') 
L3 = triplequad{(@(x,y,2z) [sin(X.^2)+Z^2xcos (yY)] ,* (X.^2/2+YyY.^2/3+Z.^2/14<=1)， 
-SGqrt (2) ,sqrt{(2)，-SsSGrE(3) SG (3)，-2，2) 


输出 结果 是 
L1 = 75.2434 
L2 = 3.4990 
L3 = 20.1933 


通过 例 13-10 和 例 13-11 可 以 发 现 ， 利 用 MATLAB 计算 一 些 多 重 积分 是 非常 方便 的 ， 同 时 也 
可 以 进行 一 些 特殊 积分 区 域 问题 的 计算 。 
13.2.2， 累加 法 


本 小 节 介 绍 经 典 的 数值 积分 算法 ， 如 梯形 积分 、 龙 贝 格 ( Romberg ) 积分 、 辛 普 森 积分 以 及 
逐步 区 间 二 分 法 等 。 通 过 这 些 积分 算法 的 介绍 ， 用 户 可 以 更 深刻 地 理解 数值 积分 思想 。 


13,2.2.1 梯形 积分 法 


首先 考虑 在 分 割 的 子 区 间 [xx ,zi] 内， 其 积分 值 可 以 有 如 下 3 种 方式 来 计算 。 
多 利用 中 点 的 函数 值 代替 整个 区 间 的 函数 值 : 


[7CDdr= = (xui 一 -7 | (13.6) 
人 利用 梯形 面积 公式 来 计算 积分 值 ， 

“7(CJdr= 二 [7(5)+y7(xo] (137) 
多 在 式 (13.6) 员 在 子 区 间 再 细 分 一 步 的 结 
人 ya-ae5s| 7 (+41[ 于 jyGa [全 


利用 上 面 3 种 公式 可 以 得 到 不 同 的 数值 积分 算法 ， 结 果 的 精度 随 着 分 割 步 长 的 减 小 而 提高 
梯形 积分 法 的 计算 公式 如 下 : 


[ra 号 Faw 才 区 Ja)+7 了 + 呈 | (13-9 ) 


大 =1 
Re 户 为 等 分 区 间 的 步 长 。 上 述 公式 可 以 从 式 
( 13-7 ) 获得 ， 感 兴趣 的 用 户 可 以 推导 一 下 。 梯 形 积分 法 误差 的 阶 是 O( 尼 ) 。 根 据 公 式 ( 13-9 ) 可 
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以 写 出 梯形 积分 法 的 程序 ， 具 体内 容 如 下 


function yY = trapez (fun,a,b,n,varargin); 
ifE nargin<3; 

error('fun,avb must be defined'); # 输入 参数 少 于 3 个 提示 出 错 
elseif nargin==37 


n = 1000; gs 设置 n 的 默认 值 
enda 。 
h = [b-a]y/n; % 计算 步 长 
x = a+h*[0:n]; gs 计算 采样 点 
if isempty (varargin); 
fx = feval(fun,x); $ 计算 函数 值 
elSse 
fx = feval(fun,x,varargin{f:))y g 计算 函数 值 
end 
Y = hx*[(fx(1)+fx(end))/2+sumtfx(2:end-1))]; # 按 公式 算 积分 


参数 说 明 : y 是 输出 的 积分 计算 结果 。fun 是 被 积 函数 的 句柄 。a 和 b 分 别 是 积分 的 上 下 限 。n 
是 等 间距 分 割 区 间 的 数目 , 其 默认 值 为 1000。varargin 表示 fun 函数 的 不 定数 目的 参数 。 特别 注意 ， 
上 面 程序 中 最 后 一 行 语 句 可 以 使 用 一 个 等 价 形式 替换 : y = hxtrapz(fx)。 下 面 举 例 说 明 这 个 函数 的 
用 法 。 
例 13-12: 利用 梯形 积分 法 计算 下 面 的 积分 ， 其 中 参数 c=3。 
2 
Q= [rsinxdx 1 人 纪 = Jean(e+a)d 
0 0 


分 析 : 为 了 保证 程序 的 独立 性 ， 这 里 使 用 函数 inline 来 定义 被 积 函数 。 参 数 c 使 用 传递 的 方式 
输入 到 前 面 定义 的 梯形 法 数值 积分 程序 中 。 使 用 不 同 的 调用 方式 来 计算 这 两 个 积分 。 

程序 如 下 : 
c=3 #% 参数 赋值 


fl = inline('x.*sin(X) 1) 3 # 定义 被 积 函数 
Ql = trapez(@{(x)fl(x),0,2) sg 引用 函数 人 1 


Q2 = trapez(@(x,c)x.*sin(cxx+2),0,1,2000,c)  % 此 处 直接 输入 被 积 函数 
输出 的 计算 结果 为 : 

Ql = 1.7416 

Q2 = -0.3021 


从 这 个 例子 可 看 出 ， 用 户 可 编写 函数 如 同 前 面 介绍 的 函数 quad 一 样 来 计算 积分 问题 。 
13.2.2.2， 龙 贝 格 积分 法 
接 下 来 介绍 龙 贝 格 积分 法 ， 该 算法 计算 函数 (zx) 在 区 间 [o, 引 上 定 积分 的 步骤 如 下 ， 
初始 化 参数 上 = 1 ， 并 计算 最 粗略 的 积分 。 


丰 = 气 “[7r(o+yO] ( 13-10 ) 
计算 下 一 个 位 置 的 值 。 
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| 四 与 |， M = 24 ( 13-11 ) 
利用 下 面 的 递 推 公式 计算 。 

元 人 5 ， 以 三 2,3,…, 大 十 1 ( 13-12 ) 
如 果 内 we 和 之 间 的 差 值 满足 预定 义 的 精度 ， 则 终止 计算 ， 否 则 令 k 一 大 +1， 进 入 到 

步骤 2 不 计算 。 


龙 贝 格 积分 法 的 过 程 将 组 成 下 面 的 下 三 角 和 矩阵 ; 


六 太 2 
太太 2 态 3 
R=| (13-13 ) 


7 02 3 54 55 


龙 贝 格 积分 法 的 思想 可 以 理解 为 不 断 对 分 分 割 步 长 , 并 累加 增加 的 采样 点 函数 值 。 下 面 给 出 龙 
贝 格 积分 法 的 实现 程序 : 


function YY = romberg(fun,a,b,tol,varargin) 
f nargin<3; 
error(t'fun,a,b must be defined'); 8% 输入 参数 少 于 3 个 提示 出 错 
elseif nargin== 
tol = le-4; gs 设置 tol 的 默认 值 
enda 
fab = feval(ftun, [a,b]l,vararginf:}): 
r(1,1) = [b-al/2*sum(fab); 


k = 0; # 初始 化 脚 标 参数 
D = inf; # 设置 误差 的 初 什 
while D>tol; 
k = k+1; % 更 新 脚 标 参 数 
x = at+(b-a)/2^kw*[2*[1:2^(k-1)]-1]， # 计算 采样 点 坐标 
fx = feval(fun,x,varargin{f:})， % 计算 函数 值 
r(k+l,1)=0.5*[r(k,1)+(b-a)/V2^(k-1)*sum(fx)]， % 计算 第 一 列 中 的 下 一 行 元 素 值 


for m=2:k+1; 
zr{(k+1l,m)=[4^(m-1)*r(k+l,m-1I)-r(k,m-1i)]/[4^(m-1)-1];  $ 计算 下 一 行 元 素 值 


end 
D = abs(r(k+1,k+1)-r(k,k))， $ 更 新 当前 误差 
end 


y=z(k+l,k+1) 7 g 返回 积分 值 

参数 说 明 : y 是 输出 的 积分 计算 结果 。fun 是 被 积 函 数 的 句柄 。a 和 b 分 别 是 积分 的 上 、 下 限 。 
tol 是 误差 的 控制 参数 ， 其 默认 值 为 1e-4。varargin 表示 fun 函数 的 不 定数 目的 参数 。 下 面 举例 说 
明 这 个 函数 的 用 法 。 

例 13-13: 利用 龙 贝 格 积分 法 计算 下 面 的 两 个 积分 ， 其 中 系数 的 数值 为 p=5，c=4。 


册 = 加 m， W = 并 


分 析 : 这 个 问题 中 第 一 个 积分 是 一 个 简单 的 积分 ， 其 积分 值 可 以 解析 获得 ， 即 内 =2。 在 第 二 
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个 积分 中 含有 两 个 系数 , 它们 可 以 利用 类 似 例 13-11 的 方法 输入 到 龙 贝 格 积分 函数 中 。 下面 考虑 问 
题 的 求解 。 求 解 的 程序 如 下 ; 


b=5; 。”$ 参数 赋值 
c=41 。”% 参数 赋值 -~ 
tol=le-6; % 误差 量 
V1 = romberg(@(Xx)sin(x),0，pPi) 
V2 = romberg(@(x,b,c)[2*x+b]./V[1+c*x.^2],0,1,tol,b,c) 
输出 结果 为 
VIL = 2.0000 
V3 = 3.1702 


可 以 发 现 ， 龙 贝 格 积分 法 需要 计算 很 多 过 程 参数 的 值 , 因此 其 计算 量 大 且 收 敛 速 度 慢 ， 但 是 利 
用 龙 贝 格 计 算法 可 以 得 到 较 高 的 计算 精度 。 


13.2.2.3 ”辛普森 积分 法 
辛普森 积分 法 的 计算 公式 可 以 按 下 式 描述 进行 


[7CDdr= 中 +J(x 站 亿 写 7 二 3] ( 13-14 ) 


其 中 咽 等 分 积分 区 间 的 采样 坐标 为 ， 蜀 =Q4， 加 =。 在 公式 ( 13-14 ) 中 ， 右 便 
的 第 一 项 与 公式 ( 13-9 ) 有 着 密切 的 联系 。 六 普 森 积分 法 的 误差 余 项 为 O{ 外 ) 。 
根据 公式 ( 13-14 ) 可 以 写 出 辛普森 积分 法 的 实现 程序 simpson.m， 具 体内 容 如 下 : 


function yY = simpson(fun,a,b,n,varargin) ; 
ifE nargin<3; 


error('fun,a,b must be defined'); % 输入 参数 少 于 3 个 提示 出 错 
elseif nargin==3; 
n = 1000; # 设置 n 的 默认 值 
end 
h = [b-a]/n; 当 计算 步 长 
x = a+hx[0:n]; g% 计算 采样 点 
fx = feval(fun,x,vararginf:})， g 计算 函数 值 
Y = h/3xtrapz(Ex,2); gs 积分 值 的 第 一 部 分 
fx = feval(fun,[x(l:end-1)+x(2:end)]/2,varargin{t:})， g 计算 分 割 区 间 中 点 处 的 函数 
值 
Y = Y+2x*h/3xsum(fx,2); % 积分 值 的 第 二 部 分 


参数 说 明 : y 是 输出 的 积分 计算 结果 。fun 是 被 积 函 数 的 句柄 。a 和 b 分 别 是 积分 的 上 、 下 限 。 
n 是 等 间距 分 割 区 间 的 数目 , 其 默认 值 为 1000。varargin 表示 fun 函数 的 不 定数 目的 参数 。 特 别 地 ， 
上 面 程序 还 支持 多 个 函数 输入 的 情况 , 此 时 要 求 输入 函数 是 按 列 向 量 顺序 排列 的 。 下 面 举例 说 明 这 
个 函数 的 用 法 。 

2 利用 辛普森 积分 法 计算 下 面 的 积分 。 


z, = 亿 snaar， 2 = 站 eeew en, 一 | 


妆 十 了 
参数 取 值 为 o -1 ， Dp=2，c=3，J=4。 
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分 析 : 第 一 个 积分 是 一 个 标准 的 积分 ， 用 户 按 函数 simpson 输入 参数 顺序 进行 计算 即 可 。 第 
二 个 积分 含有 参数 的 同时 还 是 一 个 向 量 组 成 的 被 积 函数 ， 用 户 只 要 把 4 个 被 积 函 数 排 为 列 向 量 顺 
序 即 可 。 实 现 程序 如 下 : 


a=1.5; % 参数 赋值 

b=2; $ 参数 赋值 

c=37 $% 参数 赋值 

f=4; $ 参数 赋值 

U1 = simpson(8@(x)exp(x) .*sin(x),0,1) gs 计算 第 一 个 积分 U1 
U2 = 


simpson(@(x,ayb,c,f) [sin(xxa) ;cos(x.^b);iexp(x+c);1./[x.^2+f]],0,1,2000,a,b,c,E 
); % 计算 U2 
U2 = U2' g% 转 置 显示 


输出 结果 为 
U1 = 0.9093 
U2 = 0.6195 “0.9045 34.5126 ”0.2318 


四 常 方便 ， 感 兴趣 的 用 户 可 以 把 前 面 的 函数 trapez 和 romberg 改 为 支持 多 函数 输入 


省 可 见 支持 同一 区 间 多 个 函数 计算 积分 的 功能 对 于 计算 多 个 函数 的 数值 积分 功能 非 
1 
的 格式 ， 改 动 时 请 参考 函数 simpson。 


13.2.2.4 逐步 区 间 二 分 法 


前 面 介 绍 的 梯形 积分 法 和 辛 蔷 森 积分 法 的 计算 公式 非常 简单 ， 但 是 对 于 积分 区 间 [a, 妇 ] 分割 的 
子 区间 数 目 用 户 在 计算 之 前 需要 根据 误差 余 项 来 估算 , 这 一 点 在 实际 应 用 中 不 是 很 方便 。 下 面 来 介 
绍 逐 次 区 间 二 分 法 。 其 基本 思想 就 是 不 断 地 二 分 分 割 子 区 间 , 直至 达到 预先 定义 的 精度 而 终止 程序 
计算 。 其 迭代 公式 可 表示 为 ， 

Do = 了 D,+ 馈 立 f(a+(2k-D 名 ) (13-15) 

k=1 

其 中 心 是 分 割 的 区 间 数 目 。 闷 ,是 二 分 区 间 的 积分 值 。 名 ,是 二 分 后 的 步 长 ， 其 值 为 如, = 及/2。 
计算 的 误差 可 以 通过 检验 不 等 式 1Di- D, Ke 是 否 成 立 来 控制 ， 其 中 2 是 一 个 较 小 的 正 数 ， 即 绝对 
误差 。 对 于 初始 分 割 区 间 数 目 ， 用 户 可 以 选择 任意 正 整数 。 这 里 使 用 n=1 作为 初 值 ， 初 始 积分 值 
为 [F(e)+y (四 )]/2 。 该 积分 法 相应 的 计算 程序 如 下 : 


function Y = dividqe2(fun,ab,tol,varargin); 


if nargin<37 
error('fun,a,b must be defined'); 4 输入 参数 少 于 3 个 提示 出 错 
elseif nargin==37; 


tol = le-4) gs 设置 tol 的 默认 值 
ena 
y0 = sum(tun([ay,bl,vararginf:}) 2)/27  g 初始 化 过 程 量 的 数值 
Y = Y0; 当初 始 化 积分 值 
Er = jinf; g% 初始 误差 
h = b-ay; g% 初始 步 长 
n=1; # 初始 区 间 数 
while EL>tol; 
Y0 = Y; # 更 新 Y0 的 数值 
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h = h/2; # 二 分 区 间 长 度 
n=nx2， g 双 信 区间 数 目 
x = a+(2+x[1:n/2]-1)*hr # 计算 采样 点 
yY = y0/2+h*sum(fun(x,vararginf:}),2); % 计算 函数 值 同时 更 新 积分 值 
Er=max(abs(y-y0)); % 计算 当前 误差 
Ena 


参数 说 明 : y 是 输出 的 积分 计算 结果 。fun 是 被 积 函数 的 句柄 。a 和 b 分 别 是 积分 的 上 、 下 限 。 
tol 是 绝对 误差 ， 其 默认 值 1e-4。varargin 表示 fun 函数 的 不 定数 目的 参数 。 特 别 地 ， 上 面 程序 支 
持 多 个 函数 输入 的 情况 ， 此 时 要 求 输入 函数 按 列 向 量 顺序 排列 。 下 面 举例 说 明 这 个 函数 的 用 法 。 
例 13-15: 使 用 上 面 的 函数 divide2 计算 下 面 两 个 积分 ， 


A= [cosxdr， 生 = |[xsinarcosx,xee]dr， 参数 取 值 为 =1.5，bD=2.2，c=Ko 


分 析 : 第 一 个 积分 按 函 数 divide2 的 一 般 格 式 计 算 即 可 。 在 第 2 个 积分 中 被 积 函 数 是 一 个 1x3 
的 向 量 同 时 含有 3 个 参数 ， 把 3 个 函数 按 列 向 量 方式 输入 到 divide2 函数 即 可 。 计 算 程序 如 下 : 


a=l. 

b=2 . # 参数 赋值 

c=pi s# 参数 赋值 

U1 = divide2(B@(x)exp(x) .*cos{(x),-1,1) % 计算 第 一 个 积分 U1 

U2 = divide2(@(x,a,b,c,f) [x， 人 cos (X.^b) ;X.*exp (xX/c)7],0,1,1e-6,arb,c); 


# 计算 第 二 个 积分 U2 
U2 = U2' 转 秆 显示 


1.9334 
0.3962 0.9116 0.6199 


通过 使 用 本 节 介绍 的 MATLAB 函数 以 及 后 面 给 出 的 数值 积分 算法 的 实现 函数 ， 用 户 可 以 求解 
定义 区 间 [o,b] 上 连续 函数 或 者 分 段 连续 函数 ， 以 及 含有 中 等 奇异 端点 的 数值 积分 。 此 外 ， 还 存在 
一 些 利用 特殊 函数 零点 来 计算 数值 积分 的 算法 ， 比 如 高 斯 - 勒 让 德 积分 法 、 高 斯 - 切 比 雪夫 积分 法 、 
高 斯 - 拉 盖 尔 积分 法 以 及 高 斯 - 厄 尔 米 特 积分 法 等 ， 这 里 不 再 介绍 ， 感 兴趣 的 用 户 可 以 查找 相关 文献 
编写 相应 程序 。 对 于 一 些 含 有 奇异 点 的 积分 问题 将 在 下 一 节 介绍 。 


13.3 ”奇异 积分 计算 
在 一 些 问题 中 ， 会 出 现 奇异 积分 的 情况 。 本 节 介 绍 这 类 积分 的 处 理 办 法 。 
的 古 天 代入 可 全 计生 乓 用 人 比如 : 
= 上 4r(zjdr ea or )z?du ， 其 中 > 2 
有 的 奇异 积分 可 以 使 用 函数 quadgk 来 计算 ， 比 如 : 


Sin X 


“= 站- 了 T，4= 谨 a， 44 一 JR 让 


0 二 3 


积分 4 和 4 在 x=0 处 是 奇异 的 ， 可 以 使 用 如 下 语句 计算 : 
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G2 = quadgk(@(x)TI./V[x.^(1/2)+x.^(17/3)],0,1,，'AbsTol' ,1e-4) 
G93 = Guadgk(B@(x)exp{(x)./[x.^(17/2)],0,1，'AbsTol' ,1e-4) 

qd4 = quadgk(@(x)1./sqrE(x.*(I-x)),0,1，'aAbsTol' ,1e-4) 

G5 = quadgk(8@(xX)sin(x)./x,-L,L1,，'aAbsTol' ,1e-4) 


输出 的 结果 为 ， 
aq2 -= 0.8411 
a3 = 2.9253 
a4 = “3.1416 
a5 = 1.8922 


可 见 奇异 点 位 于 积分 区 间 内 部 时 ，MATLAB 的 函数 quadgk 也 能 给 出 正确 结果 ， 比 如 积分 45 。 
如 果 利 用 函数 quadgk 不 能 给 出 结果 或 出 现 警告 时 ， 用 户 需要 检查 输入 的 被 积 函数 是 否 有 误 、 是 否 
可 积 。 


13.4 小 结 


本 章 主要 介绍 了 积分 问题 的 求解 方法 。 首 先 介 绍 了 利用 函数 symsum 完成 级 数 求 和 问题 ， 并 
介绍 了 泰勒 级 数 展开 和 傅 里 叶 级 数 展开 。 接 下 来 介绍 了 数值 积分 的 计算 方法 ， 以 及 利用 函数 int 进 
行 符 号 积分 的 计算 ,利用 求解 微分 方程 的 函数 dsolve 计算 积分 。 函 数 quad,quadl,quadgk,dblquad 
以 及 triplequad 计算 数值 积分 的 方法 也 在 本 章 做 了 讲解 。 同 时 ， 本 章 还 介绍 了 梯形 积分 法 、 龙 贝 格 
积分 法 、 辛 普 森 积分 法 、 逐 步 区 间 二 分 法 等 数值 积分 算法 的 程序 实现 , 最 后 介绍 了 利用 函数 quadgk 
计算 含有 奇异 点 的 积分 。 利 用 本 章 介绍 的 知识 ， 用 户 可 以 求解 不 同类 型 的 积分 问题 。 
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@ 分 数 傅 里 时 变换 ”介绍 全 里 叶 变 换 的 计算 以 及 在 此 基础 上 计算 分 数 愈 里 叶 变 换 。 
菲 涅 尔 ( Fresnel ) 变换 介绍 菲 涅 尔 变换 的 数值 计算 方法 。 

争 Hartley 变换 介绍 Hartley 变换 的 定义 及 计算 程序 。 

人 离散 正 /余弦 变换 ”介绍 4 种 形式 的 正 /余弦 变换 的 定义 及 其 计算 。 

9 分 数 随机 变换 介绍 分 数 随 机 变换 的 数学 定义 过 程 及 程序 实现 。 

人 汉 克 尔 ( Hankel ) 变换 介绍 汉 克 尔 变换 的 定义 及 其 数值 算法 。 

人 小 波 变换 介绍 一 维和 二 维 小 波 变换 函数 。 


本 章 主要 介绍 几 种 在 基础 研究 和 工程 应 用 中 用 到 的 数学 变换 , 它们 是 图 像 、 信 号 处 理 问题 中 的 
重要 工具 。 众 所 周知 ， 傅 里 叶 变换 是 信息 处 理 的 基本 工具 , 广泛 应 用 于 各 类 问题 中 。 然 而 对 于 有 些 
特殊 问题 ， 傅 里 叶 变换 显得 无 能 为 力 或 者 得 不 到 理想 的 结果 。 正 是 这 个 原因 ， 在 19 世纪 80 年 代 
出 现 了 分 数 傅 里 时 变换 和 小 波 变 换 , 这 两 种 变换 弥补 了 傅 里 叶 变换 的 不 足 。 本 章 重 点 介绍 除 傅 里 叶 
变换 以 外 的 几 种 变换 以 及 它们 的 实现 程序 。 


14.1 分 数 傅 里 叶 变 换 


在 介绍 分 数 傅 里 叶 变换 之 前 先 简要 回顾 一 下 傅 里 时 变换 。 傅 里 叶 变 换 的 定义 公式 为 : 
X(o= |x()e2wdr (14.11] 


其 中 X( 轨 是 傅 里 叶 变换 输出 结果 ，" 是 频 域 的 坐标 。x(t) 是 输入 函数 。e- 所 是 傅 里 叶 变 换 的 
积分 核 。 在 MATLAB 中 ， 实 现 公式 ( 14-1 ) 对 应 的 一 维 离散 傅 里 叶 变 换 的 函数 是 代 ， 而 ft2 和 fftn 
可 以 分 别 用 来 实现 二 维和 nm 维 的 傅 里 叶 变换 。 这 3 个 函数 的 调用 格式 如 下 


于 ft (X) 

ftc (xX,N) 7 
fft(x,N,Gim) ; 

fft (x, [] ,dim) ， 

上 Et2 (X) 7 

Eft2 (X,mrows,ncols) ; 
Eftn(x) ; 

fftn(x, Siz) 


参数 说 明 : X 是 输出 的 变换 结果 。x 是 输入 的 离散 信号 。N 用 来 控制 输出 信号 的 长 度 ( 或 者 为 
元 素 总 数 )。dim 用 于 在 对 矩 阵 进行 一 维 变换 时 指定 维 数 ， 为 1 表示 对 矩阵 各 列 向 量 进行 变换 ， 为 
2 表示 对 和 阵 各 行 向 量 进行 变换 。mrows 和 ncols 分 别 用 于 指定 输出 的 行 数 和 列 数 。siz 用 于 定义 
输出 数组 各 维度 的 元 素数 目 。 


久 中 
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例 14-1: 对 下 面 的 函数 进行 一 维 傅 里 叶 变 换 , 其 中 + 的 取 值 范围 是 [-3,3] ,采样 步 长 为 Ar= 0.1。 

Ne 人 Ki 

?7(0=ret(0)=10 Tel 

分 析 : rect 代表 和 矩形 函数 。 首 先 离散 采样 获得 函数 采样 点 的 函数 值 ， 然 后 根据 采样 步 长 计算 出 
频 域 的 坐标 值 : 频 城 的 区 问 是 | -33 | ， 调用 函数 从 就 可 以 进行 离散 傅 里 叶 变换 了 。 最 后 调用 
函数 ftshift 对 输出 结果 进行 位 置 移 动 ， 把 零 频 移 到 中 央 。 

首先 生成 函数 y() 的 离散 形式 ， 然 后 调用 函数 俐 进行 傅 里 叶 变换 ， 并 给 出 相应 变换 结果 的 实 
部 和 虑 部 显示 。 这 个 过 程 的 MATLAB 程序 如 下 : 


t = -3:.1:3; % 得 到 离散 采样 点 

at = 1/2/[t(2)-E(1)]; g 计算 采样 步 长 

f = linspace(-dt,dt,1length(c)); % 得 到 频 域 坐 标点 

y = zeros(sSize(tt)); sg 生成 与 相同 大 小 的 全 0 向 量 
Yy(abs(t)<=1) = 1; $% 得 到 离散 的 函数 值 

fy = fftshift(fft(y))y % 调用 fft 函数 进行 傅 里 叶 变 换 并 把 零 频 移 至 中 央 
figureisubplot (131) ;plot(t,y); sg% 绘制 原 信号 曲线 
title('signal','Fontsize' ,12)) s# 注释 图 形 内 容 

axis square; s 设置 坐标 轴 为 方形 
subplot(132); plot (f,real(fy)); ss 绘制 输出 的 实数 部 分 
titlel('real part','Fontsize',12);  *# 注释 图 形 内 容 


axis square; subplot(133); plot (f,imag(fy)); gs% 绘制 输出 的 虚数 部 分 
titlel'imaginary part','Fontsize',12); s% 注释 图 形 内 容 
axis Square; 


输出 结果 如 图 14.1 所 示 ， 左 图 给 出 的 是 输入 信号 ， 中 间 的 图 形 是 变换 结果 的 实 部 ， 右 图 是 虚 
部 部 分 。 


SIgnal 而 real paft imaginary part 
08 2 
06 1 
04 0 
02 10 
" 0 2 在 【2 0 5 





图 14.1 一 维 信号 的 离散 传 里 叶 变换 


和 = 
用 户 还 可 以 使 用 函数 abs 和 angle 分 别 得 到 输出 的 振幅 和 相 角 〈 也 叫 相位 )。 


例 14-2: 计算 一 幅 图 像 的 离散 傅 里 时 变换 ， 其 中 要 求 进 行 一 维和 二 维 变换 。 

分 析 : 一 幅 图 像 在 MATLAB 中 对 应 着 一 个 矩阵 或 者 一 个 M xNx3 的 数组 ,可 以 利用 函数 imread 
把 图 像 的 数据 读 入 进行 处 理 ， 从 而 调用 函数 代 或 者 fft2 进行 变换 。 这 里 同样 需要 调用 函数 ftshift 
来 改变 频谱 的 顺序 , 其 中 fttshift(X,1D) 和 fftshift(X,2) 分 别 对 和 阵 X 的 各 个 列 向 量 和 行 向 量 进行 位 置 移 
动 。 而 fftshift(X) 用 来 对 和 矩 阵 X 进行 位 置 移动 ， 其 对 应 于 函数 从 2 的 输出 结果 。 
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这 里 以 光盘 文件 夹 \Ch14 中 DLA.bmp 图 片 文件 作为 输入 图 像 ， 读 入 图 像 之 后 再 调用 函数 fft2 
进行 傅 里 时 变换 ， 同 时 给 出 利用 一 维 变换 函数 从 进行 变换 作为 比较 。 实 现 程序 如 下 : 


RA = imread('DLRA.bmp'); sg 读 入 图 像 
有 RA = double(a) ; # 转换 为 double 型 数据 
fal = fftshift(fft(A,[],1),1)， #% 对 列 向 量 进 行 变 换 , 并 用 fftshit 函数 移动 频谱 位 置 
fa2 = fftshift(Eft{a,[],2),2); % 对 行 向 量 进行 变换 ， 并 用 fftshit 函数 移动 频 
谱 位 置 
fa = fftshift(fft2(RA)); g% 进行 二 维 变换 
figure;subplot (141) ;imshow(abs(RA)，[]): *# 显示 原 图 
title('Original image'); g 在 图 题 处 注释 
subplot (142) ; imshow(abs(fal),[]); g 逐 列 变换 的 结果 
title('1-D FT at column'); %$ ”在 图 题 处 注释 
subplot (143); imshow(abs(fa2),，[]); $# 逐 行 变换 的 结果 
titlel('1l1-D FT at row'); gs 在 图 题 处 注释 
subplot (144) ; imshow(abs(fa),[]); ” $% 二 维 变换 的 结果 
title('2-D FT') ; g% 在 图 题 处 注释 
Set{(gcf，'Color''w') ; $ 设置 背景 色 为 白色 
ee 14.2 所 示 ,， 其 中 一 维 变换 结果 图 tb) 和 图 (c) 主 要 在 水 平和 竖 直 方向 的 中 央 位 置 处 
具有 较 { 白色 )， 两 侧 位 置 能 量 较 低 ( 黑色 )， 而 图 (d) 的 中 心 位 置 处 有 较 高 能 量 。 
Original image 1-D FT at column 1-D FT trow 2-DFT 


HARBIN OPTICS 





介 ) 原 始 图 像 划 ) 在 坚 直 方向 进行 变换 (c) 在 水 平方 向 进行 变换 (可 二 维 变 换 
图 14.2 ”图 像 傅 里 叶 变换 的 结果 


AASSN 。 这 里 显示 的 是 频谱 中 的 振幅 部 分 ， 相 位 部 分 的 取 值 情况 用 户 可 以 利用 函数 angle 
法 这 来 计算 。 


傅 里 叶 变换 的 逆 变 换 实现 的 函数 是 ift, ifft2 和 它们 的 用 法 与 正 变换 相似 , 这 里 不 再 介绍 。 

此 外 ， 还 存在 另外 一 种 定义 傅 里 叶 变换 的 形式 ， 员 

X(u)= x(rje-edi ( 14-2 ) 

在 公式 ( 14-2 ) 中 积分 核 缺 少 了 系数 2r ， 这 种 形式 常用 于 数学 上 的 公式 推导 ， 在 MATLAB 中 
提供 函数 fourier 来 实现 对 应 于 式 ( 14-2 ) 人 册 科 生计 竹 该 函数 的 调用 格式 为 : 


F = fourier(f);， 
F = fourier(f,v)， 


参数 说 明 : F 是 输出 的 傅 里 叶 变换 结果 。f 是 一 个 符号 函数 的 表达 式 。V 在 输出 表达 式 中 用 来 
作为 频率 。 
例 14-3: 下 面 是 调用 函数 fourier 对 万 =exp(- 刀 ) 和 卢 =xexp(- 六 ) 进 行 关于 变量 x 的 傅 里 叶 
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变换 的 例 程 。 

SYmS X Y Vi; 

PB1 = fourier(exp(-Xx^2)) 

F2 = fourier(exp(-YyY^2)7Vx,V) 


输出 结果 为 ， 


F1 =exp(-174*w^2)*pi^(172) 
F2 =i*exp(-Yy^2)*piv*(1-2*heaviside(tv)) 


其 中 函数 heaviside 是 阶 跃 函数 ， 用 户 可 以 使 用 help heaviside 查看 这 个 函数 的 信 
息 。 


分 数 傅 里 时 变换 是 传 里 叶 变 换 的 一 种 推广 形式 。 函 数 了 (zx) 的 一 维 分 数 傅 里 时 变换 的 数学 定义 


为 : 
F"{fr(oj(o)= 全 7(z)Ke(xa)dr (14-3 ) 
其 中 
如 exp|i(2cot6b， 一 2xxtcscE 十 间 cotb.)] ,wz2n 
Ku (xu)= C(x+b)， 必 = 4 二 2 ( 14-4) 
0(x 一 上 )， C= 47 


4 = Vi-icotb ， 4= 休 ( 14-5 ) 


上 面 的 公式 ( 14-3 ) 至 公式 ( 14-5 ) 给 出 了 分 数 傅 里 叶 变换 的 积分 形式 的 定义 ， 接 下 来 再 给 出 
分 数 傅 里 叶 变换 的 级 数 定义 形式 。 函 数 (zx) 的 分 数 傅 里 叶 变换 级 数 形式 为 ， 
Fefj(rjj(W= 交 cexp(inra/2) 办 (四 (14-6 ) 


其 中 ， 
一 也 (exp(-e272) (14-7 ) 


办 (4) = | 


丈 , (x) 是 厄 米 多 项 式 函数 。 欠 (#) 被 称 为 归 一 化 的 半 阶 厄 米 -高 斯 函数 。 系 数 C. 由 下 面 的 积分 





确定 : 
C, = 三 7 四 (z)dx (14-8) 
Yang 等 人 提出 了 一 种 基于 卷 积 算法 计算 分 数 傅 里 时 变换 的 方案 。 非 整数 阶 分 数 傅 里 叶 变换 积 
分 表达 式 ( 14-3 ) 可 以 写成 下 面 的 形式 : 

Fe 全 的 =4eg| 二 mm 到)| res| -mm( 天 jms( 公 je- 闻 |e ( 14-9 ) 


上 式 中 的 积分 是 一 个 卷 积 形式 ， 即 ; 
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广 7Oen| -mm( 宇 皮 ]= lmee 人 (至 至 jw- x) = 广 (x)@B.(xr)， ( 14-10 ) 
这 里 符号 “@ ”表示 卷 积 运算 ， 其 中 ， 

F(z)= /Gem| -am[ 坚 j=|， 凡 .9=emp| es( 坚 ]=| (14-11 ) 
必 C=enp| -an[ 守 je ( 14-12 ) 
则 转换 为 : 

广 (xz)=J(x)Bc (zx) ( 14-13 ) 
通过 上 面 的 推导 并 结合 卷 积 理论 ， 公 式 ( 14-3 ) 可 以 写 为 下 面 的 形式 : 

Fe fr( 可 (人 = 和 瑟 ( 相 [大 Co@B(e]= 入 用 (OF {E[RC](oOF [as(o]Go(o) (14-14 ) 


根据 式 { 14-14 ) 可 以 使 用 傅 里 叶 变 换 计算 分 数 傅 里 叶 变 换 。 在 离散 情况 下 , 可 以 调用 MATLAB 


的 函数 人 或 者 fl2 来 计算 离散 分 数 传 里 叶 变 换 。 同 时 计算 量 因 使 用 快速 传 里 叶 变换 而 降低 很 多 。 
特别 地 ， 在 式 ( 14-14 ) 中 F [8.(z)](w) 可 以 得 出 解析 的 结果 ， 即 ， 


上 [0](O=e| -sn[ 守 je ( 14-15 ) 
二 维 分 数 傅 里 时 变换 的 表达 式 为 : 

Feffoajen= 姜 户 FCey)KessCewwv)drdy (1416) 
其 中 ， 


天 =A A exp[i(oe cotgs + 大 cotg 一 2xucscb 一 2yvcscg +Ecotg + cotg。 )] ( 14-17 ) 


GD RE 


ax 和 7 分 别 是 水 平和 竖 直 方向 的 分 数 阶 ，4e. ，4, ，&. 入 , 定义 类 似 于 公式 ( 14-5 ) 
根据 上 面 介 绍 的 计算 过 程 ， 参 见 公式 ( 14-5 )， 给 出 离散 形式 下 的 分 数 傅 里 时 变换 程序 ， 下 面 


是 一 维 变换 的 MATLAB 程序 : 


Eunction ff=frftcld 人 (于 ,ax); 


ax=ax*pi/2; # 转化 为 变换 角 
N = length(f); 多 计算 信号 长 度 ” 
E=E(:)'; g# 把 信号 转换 为 行 向 量 


x = ([0:N-1]-[N-1]/2)/sqrt (IN) ; % 获得 采样 点 


= exp (ivrpivx.^2*csc(ax));  % 计算 函数 已 (> ) 


了 Ba 
Bpa = exp(-ix*pixx.^2xtan(ax/2)); 对 计算 函数 环 (2) 
fa = 上 .*Bpay # 计算 函数 广 (xz) 
C1 = fftshift(fft(fftshift(fa))); % 计算 傅 里 叶 变换 
C2 = exp(-ix*pi*x.^2xsin(ax)); s% 函数 互 . (x) 的 傅 里 时 变换 结果 
CC = fftshift(ifft(fftshift(Ccl.*Cc2)));  % 求 逆 傅 里 叶 变 换 
ff = Bpa.*CC; % 计算 函数 肪 (x) 与 卷 积 结果 的 乘积 
ff = ffxsqrt(1-ixcot(ax)); # 乘 系 数 
说 明 ff 是 输出 的 分 数 传 里 叶 变 换 结果 。 于 是 输入 的 信号 。ax 是 变换 的 分 数 阶 。 
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例 14-4: 计算 下 面 函数 的 分 数 傅 里 叶 变 换 ; 


yO=ea0= 必 其 中 ;+ 的 取 值 范围 是 [-4,.4] ， 采 样 步 长 为 Ar =1716 ， 变 换 的 分 


数 阶 是 w=0.7。 

分 析 : 首先 对 函数 进行 离散 采样 并 获得 相应 的 函数 值 ， 然 后 调用 前 面 编写 的 frttc1d 函数 计算 
离散 分 数 傅 里 叶 变换 。 其 中 离散 采样 可 使 用 函数 linspace 来 取得 等 间距 离散 的 采样 点 。 

首先 生成 函数 y(r) 的 离散 形式 ， 再 调用 前 面 给 出 的 函数 frftc1d 进行 分 数 傅 里 叶 变换 。 相 应 计 
算 和 绘图 程序 如 下 : 


t = linspace(-4,4,129); sg% 计算 采样 点 

yt = zeros(size(t) ) % 生成 与 相同 大 小 的 全 0 向 量 
yt (abs (人 )<=1)=1; g% 得 出 输入 函数 的 采样 点 

ff = frftcld(yt,0.7)， % 进行 分 数 人 备 里 叶 变换 
figure;subplot (131) ; sg% 生 成子 图 


plot(tt,yt,'k');axis square;iylim( [-0.2,1.2]); gs 画 曲线 ， 设 置 坐标 轴 为 方形 ， 设 置 Y 轴 范 转 
xlabel({'tNittj'，'(a)'}，'Fontsize', 14, :Fontname'，'Times New Roman'); % 标 注 X 轴 
title('signal'，'Fontsize' ,14); $ 标 出 图 题 

set (gca,'Fontsize',12); g% 设置 坐标 轴 字 体 大 小 

subplot (132) ;plot(t,abs(ff),'k')yaxis square;  $ 画 曲 线 ， 设 置 坐标 轴 为 方形 
title('amplitude','Fontsize',14); 8% 标 出 图 题 
xlabel({'f(Nitul'，'(b)'},'Fontsize' ,14,'Fontname'，'Times New Roman'); % 标 注 X 轴 
set {gca, 'Fontsize',12); # 设置 坐标 轴 字 体 大 小 

subplot (133) ;plot(t,angle(ff),'kx');axis square; $% 画 曲 线 ， 设 置 坐标 轴 为 方形 
xlabel(tf'tNvitul'，'(c)'j ,Fontsize' ,14,'Fontname'，'Times New Roman'); % 标 注 X 轴 
title('phase',，'Fontsize' ,14) g% 标 出 图 题 

set {gca, 'Fontsize' ,12) #% 设置 坐标 轴 字 体 大 小 


执行 上 面 的 程序 可 以 得 到 分 数 傅 里 时 变换 结果 ， 如 图 14.3 所 示 。 其 中 振幅 部 分 在 中 心 部 分 较 
高 ， 两 侧 较 低 ， 而 位 相 取 值 比较 散乱 。 


用 户 可 变换 不 同 的 分 数 阶 来 查看 结果 的 差异 ， 上述 程序 在 光盘 的 \Ch14 文件 夹 下 可 
以 找到 。 

















signal : amplitude phase 

1 3 
08 15 2 

什 ， 

06 。 

1 0| 。 
04 
02 05 .2 
0 ] 本 

人 六 0 计 ” 4 04 立 0 2 4 < 了 0 字 4 
地 到 寻 
{ 输 入 高 散 信 号 (b) 变 换 的 振幅 {c) 变 换 的 相位 


图 14.3 ”一 维 离散 分 数 傅 里 叶 变 换 的 结果 
二 维 变换 的 程序 可 以 把 一 维 变换 实现 程序 中 的 函数 供 变 为 从 2、 向 量变 为 矩阵 进行 计算 。 详细 
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程序 不 再 乾 述 ， 其 保存 在 光盘 的 \Ch14 文件 夹 下 ， 文 件 名 为 ftc2d,m。 该 程序 调用 格式 为 : 
ff = frftc2Q(f,ax,ay); 
参数 说 明 : ff 是 输出 的 变换 结果 。f 是 一 个 矩阵 ， 表 示 输 入 的 二 维 函 数 的 离散 形式 ， 也 可 以 是 
数字 图 像 对 应 的 憩 阵 。ax 和 ay 分 别 是 x 方向 和 y 方 向 的 变换 阶 数 ， 它 们 可 以 选择 不 同 的 数值 。 
例 14-5: 对 二 维和 矩形 函数 进行 分 数 傅 里 叶 变 换 要 求 x 和 >y 在 区 间 [-3,3] 上 等 间距 采样 且 采 样 
点 数 为 256， 其 中 分 数 阶 为 wr=0.6 ，cy=0.4。 


1]， | 二 <landmls1l 
y(x,y)= ， 
0， _ otherwise 


分 析 : 类 似 于 一 维 变换 的 计算 ， 先 生成 离散 的 采样 点 和 采样 函数 值 ， 然 后 调用 函数 fftc2d 计 
算 二 维 离散 分 数 傅 里 叶 变 换 。 

首先 生成 二 元 函数 f(x,y) 的 离散 形式 对 应 的 矩阵 ， 然 后 调用 前 面 给 出 的 函数 frftc2d 计算 二 维 
分 数 傅 里 时 变换 。 相 应 的 MATLAB 程序 如 下 : 


[x,y] = meshgrid(linspace{-3,3,256));  s% 生成 X 轴 和 Y 轴 采样 点 数据 


X = zeros(size(x) ); % 生成 与 x 大 小 相同 的 全 0 和 珑 阵 

X(abs (x)<=1&abs (yY)<=1)=1; g 计算 相应 位 置 处 的 函数 值 

f1 = frftc2d(X,0.6,0.4); % 计算 二 维 离散 分 数 傅 里 叶 变换 
figure;subplot (121) ;imshow(abs(X),[])， #% 绘图 

xlabel(' (a)'，'Fontsize' ,14,，'Fontname'，'Times New Roman'); % 标 注 X 轴 
subplot (122) ;imshow(abs(fl),[]); sg 绘图 

xlabel(' (b)'，'Fontsize',14,'Fontname'，'Times New Roman'); % 标 注 X 轴 


所 得 图 形 如 图 14.4 所 示 ， 图 (b) 给 出 了 变换 的 结果 ， 表 明 主要 能 量 集中 在 重要 部 分 ， 其 形状 为 
一 个 矩形 。 





(9) (b) 
图 14.4 ”二 维 离散 分 数 傅 里 叶 变 换 结果 
除了 上 面 提 到 的 利用 卷 积 算法 计算 分 数 傅 里 叶 变 换 的 程序 外 , 还 可 以 利用 分 数 傅 里 叶 变 换 的 本 
征 函 数 一 一 厄 米 -高 斯 函数 来 计算 ， 依 据 是 公式 ( 14-6 )jo 利用 龙 米 函数 的 递 推 关 系 可 以 得 到 变换 的 
核 矩 阵 , 然后 计算 核 答 阵 与 输入 向 量 的 积 就 可 以 得 到 分 数 傅 里 叶 变 换 了 。 实现 程序 读者 可 以 参阅 光 
盘 中 的 frt_PXJ.m 文件 。 
在 网 络 上 还 可 以 下 载 到 几 个 一 维 离散 分 数 傅 里 叶 变换 的 MATLAB 计算 程序 ， 如 网 站 
http:/Awww.cs.kuleuven.be/~nalag/research/software/FRFT/。 
这 些 程序 的 用 法 这 里 不 再 袭 述 了 ， 读 者 可 从 相应 的 文献 和 程序 注释 信息 了 解 这 个 程序 。 


可 晤 本 可 323 


MATLAB 科学 计算 与 可 视 化 仿真 宝典 > > > 知 
14.2 ” 菲 涅 尔 变换 
菲 涅 尔 ( Fresnel ) 变换 定义 为 : 
G(O= 尺 [gs(z)](o)= Joenlne (14-18) 


其 中 8(xz) 和 G(w) 分 别 是 菲 涅 尔 变换 的 输入 和 输出 。 玉 表示 菲 涅 尔 变 换 ，4 是 菲 涅 耳 变换 的 
参数 。 公 式 ( 14-18 ) 可 以 表示 为 一 个 卷 积 的 形式 : 





G(dJ=g(x)@explim2/14) ( 14-19 ) 
符号 “@ ”表示 卷 积 。 卷 积 可 以 利用 传 里 叶 变换 来 计算 ， 即 

G(OJ=F 人 FE [s(9](OE [expfize74)](loo ( 14-20 ) 
其 中 F [exp(iee 14)](w) 可 以 得 到 如 下 解析 结果 ， 

F [exp(ime714)](w)=exp(-iraw”) ( 14-21 ) 


根据 公式 ( 14-20 ) 和 公式 { 14-21 ) 可 以 写 出 菲 涅 尔 变换 离散 形式 的 计算 程序 ， 其 中 正 / 逆 傅 
里 叶 变 换 可 以 调用 函数 代 和 i 侍 。 一 维 离散 菲 涅 尔 变换 的 程序 如 下 


function ff=fresnel_ld(E,RA); 
warning offy; 


N = length(f)， sg 计算 信号 长 度 

E=E(:)"; s* 把 信号 转换 为 行 向 量 

x = ([0:N-1]-[N-1]/2)Vsqrt(N) ; % 获得 采样 点 

Ex = exp(-i*pixX.^2xR) 7 gs 计算 函数 exp (i*pi*x^2/&A) 的 傅 里 叶 变 换 
C1 = fftshift(fft(fftshift(E)))， g% 计算 传 里 叶 变 换 

ff = fftshift(ifft(fftshift{tCcl.*Ex))); % 求 逆 傅 里 叶 变 换 


参数 说 明 : ff 为 输出 的 菲 涅 尔 变换 结果 。f 是 输入 数据 。A 是 变换 的 参数 。 
例 14-6: 计算 下 面 函 数 的 菲 涅 尔 变换 , 其 中 采样 步 长 为 Ax = 0.03 , 菲 涅 尔 变 换 的 参数 为 4=3。 
村 4 

= 1<1xk3 

分 析 : 在 进行 菲 涅 尔 变换 之 前 ， 先 对 函数 离散 采样 得 到 采样 点 位 置 处 的 函数 值 ， 然 后 调用 前 面 
定义 的 离散 菲 涅 尔 函 数 进行 计算 ， 即 可 得 到 该 函数 的 变换 结果 。 

首先 给 出 输入 函数 y(x) 的 离散 形式 ， 即 向 量 ， 然 后 调用 函数 fresnel_1d 计算 菲 涅 尔 变换 。 根 
据 这 个 过 程 可 以 写 出 相关 的 计算 和 绘图 程序 ， 内 容 如 下 : 


RA=31; #% 对 参数 A 进行 赋值 
x=linspace(-3,3,201) ; g 离散 采样 
YX=Zeros (1,201); g 生成 全 0 向 量 
Yx(abs (x)<=1)=1; gs 得 到 采样 点 处 的 函数 值 
fy=fresnel_ld(yx,R); % 进行 菲 涅 尔 变换 


figure;y Subplot (131) 

plot (x,yxv,'k');ylim([-0.2,1.2]);xlim([-3,3])7axis square;j % 画 出 输入 函数 的 曲线 
Xlabel('(a) '); 

subplot (132) ; 

plot (x,real(fy)，'k');xlim([-3,3]);axis squarey # 画 出 变换 结果 的 实 部 
xlabel('(b) '); 
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Subplot (133) ; 
plot (x, imag(fy),'k');xlim([-3,3])7yaxis square; # 画 出 变换 结果 的 虚 部 
Xlabel('(c)'): 

上 述 程序 执行 后 会 得 到 如 图 14.5 所 示 的 曲线 ,从 图 (bj 和 图 (c) 中 可 以 看 出 较 大 的 数值 分 布 在 实 
部 和 虚 部 的 中 央 处 。 


5 


1 1 

1 后 
1 0.5 
D.5 0.5 0 
0 -0.5 

D 
-0.5 1 
-2 0 了 


-2 0 2 下 0 2 
({a) 输 入 函数 {b) 实 部 (c) 虚 部 


图 14.5 ”一 维 离散 菲 涅 尔 变换 的 结果 
二 维 菲 涅 尔 变换 的 表达 式 为 : 
G(wy)=EF” 三 [s(x， ?](ow)Jexp|ima(u + )](w) ( 14-22 ) 
二 维 离散 菲 涅 尔 变换 的 程序 可 以 根据 式 ( 14-22 ) 编写 ， 具 体 如 下 








function ff=fresnel_2d( 下 ,A) ; 

[M,N] = size( 上 ); # 计算 信号 长 度 

[x,y] = meshgrid(([0:N-1]-[N-1]/V2)/Vsqrt(N)，([0:M-1]-[M-1]/2)/sqrt(M) )) % 获得 采 
样 点 

Exy = exp(-ix*pi*[x.^2+Yy.^2]*RA);  g% 计算 函数 exp(ix*pi*[x^2+y^2]7/A) 的 傅 里 时 变换 

Cc1 = fftshift(fft2{fftshift(f))); # 计算 傅 里 时 变换 

ff = fftshift(ifft2(fftshift(Cl.*Exy))); s8 求 逆 傅 里 时 变换 


例 14-7: 计算 下 面 两 幅 图 像 ( 如 图 14.6 所 示 ) 对 应 的 二 维 离散 菲 滥 尔 变 换 ， 其 中 参数 取 值 为 
4=4。 


E 上 





全 ) tb) 
14.6 ”输入 图 像 


和 。 图 14.6 中 图 Ga) 是 在 光盘 中 \Ch14 文件 夫 下 的 EF.bmp 文件 ， 图 (b) 是 自 带 的 图 像 。 


分 析 : 利用 函数 imread 可 以 读 入 这 两 幅 图 像 而 到 相应 的 像素 矩阵 ， 其 中 用 户 需要 把 EFbmp 
文件 复制 到 MATLAB 当前 路 径 下 ， 然 后 调用 前 面 定 义 的 函数 ffesnel_2d 就 可 以 进行 菲 滥 尔 变换 的 
计算 了 。 计 算 程 序 如 下 : 
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R=4; # 对 变换 的 参数 赋值 
fl=double(imread('EF .bmp')); 8 读 入 第 一 个 图 像 
f2=dqouble(imread('cameraman.tif'));  s% 读 入 第 二 个 图 像 
FL1=fresnel_2d(f1,R); gs 计算 离散 菲 涅 尔 变换 
F2=fresnel_2d(f2,R) ; # 计算 离散 菲 涅 尔 变换 
subplot (121) ;imshow(abs(F1),[]); g% 绘图 

xlabel(' (a)'，'Fontsize',16); g% 标注 

subplot (122) ;imshow(abs(F2),[]); sg 绘图 
xlabel('(b)'，'Fontsize',16); g% 标注 


所 得 图 形 如 图 14.7 所 示 ， 从 变换 结果 可 以 看 出 该 变换 使 输入 图 像 变 得 模糊 了 ， 原 输入 图 像 很 
难 分 辩 。 





(alj“EF” 字 母 对 应 的 结果 (b) 摄 影 师 的 变换 结果 
图 14.7 ” 菲 涅 尔 变 换 的 结果 


14.3 ”Hartley 变换 


一 维和 二 维 Hartley 变换 的 数学 定义 如 下 : 


Q (OO=H[e(o] )]()= ja CasS (2rux)dr ( 14-23 ) 


Q@ (cy) =H[ ez( 入 》 )](w )= | 了 2 》 )cas[ 2x( tx+ 邮 )]dxdy ( 14-24) 


其 中 Q (OO 和 @ (wy) 分 别 是 一 维和 二 维 Hartley 变换 的 输出 结果 。94i(x*) 和 49: (xy) 分 别 是 一 
维和 二 维 输入 函数 。 符 号 “H ”代表 Hartley 变换 。 cas 的 含义 是 casx = cosx+sinxo 

从 上 面 的 定义 可 以 看 出 Hartley 变换 实质 上 就 是 傅 里 叶 变 换 的 实 部 和 虚 部 相 加 。 另 外 ， 傅 里 时 
变换 的 本 征 值 为 全 1-i 计 ， 可 以 推 知 Hartley 变换 的 本 征 值 为 {L1} 。 因 为 一 个 函数 经 过 4 次 连续 
的 傅 里 叶 变换 得 到 函数 自身 ， 类 似 地 可 以 知道 连续 两 次 Hartley 变换 即 可 得 到 函数 自身 。 进 一 步 可 
以 得 到 Hartley 变换 的 逆 变 换 就 是 其 自身 。 

根据 上 面 的 分 析 可 以 得 到 离散 Hartley 变换 的 计算 程序 ， 一 维 变换 的 程序 具体 内 容 如 下 : 





function Q=hart1ley1l11(G) ; 
N=1length(d) ; gs 计算 向 量 中 元 素数 目 
Q=Efft(q) ; g# -离散 傅 里 时 变换 
co=[real(o)+imag(o)]/sqrt(N);  s% 取 实 部 与 虚 部 之 和 
参数 说 明 : Q 是 输出 的 变换 结果 ， 正 确 的 Hartley 变换 的 频谱 需要 通过 函数 ftshift 进行 频 移 。 
q 表示 输入 的 离散 函数 。 
例 14-8: 计算 下 面 函 数 的 离散 Hartley 变换 结果 ， 其 中 采样 步 长 为 Ar=0.06 。 
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x，|*< 直 
0，1<1x 长 3 


(9=| 


分 析 : 首先 对 函数 的 定义 区 间 离 散 取 样 , 然后 令 区 间 内 各 位 置 函数 值 等 于 0, 对 于 区 间 [-1]] 内 
的 函数 值 等 于 1， 再 将 函数 与 变量 x 相 乘 即 可 得 到 问题 中 的 函数 定义 。 接 下 来 调用 hartley1 进行 变 
换 的 计算 。 根 据 分 析 过 程 可 以 写 出 相应 的 计算 程序 ， 其 内 容 如 下 : 


x=linspace(-3,3,101); 8% 计算 采样 点 

Y=Zeros (Size(X)): # 生成 全 0 向 量 

Yy(abs (x)<=1)=1; s 对 规定 范围 内 的 数值 设置 为 1 

Y=Y .wxi 计算 出 函数 在 采样 点 的 数值 

hy=hartleyl(y); % 计算 Eartley 变换 

hhy=hartley1l (hy) ; g% 计算 Hartley 变换 结果 的 Hartley 变换 ， 即 逆 变 换 


figure;sl=subplot (131)， 

plot (x,y, 'k');axis square;xlim( [min(x) ,max(x)]);  % 画 出 输入 离散 函数 对 应 的 曲线 
xlabel('(a)','Fontsize',16); $% X 轴 标注 

S2=SuUbplot (132) 

plot (x,fftshift (hy)，'k')7yaxis square;xlim(fmin(x),max(x)]); s% 变换 结果 
xlabel(' (b)'，'Fontsize',16); % X 轴 标注 

SsS3=Subplot (133) ， 

plot (x,hhy,'k');axis square;xlim( [min(x),max(x)]);  $ 逆 变 换 
Xlabel('(c)'，'Fontsize',16) 

set([s1,s2,s53],，'Fontsize',12)， 


所 得 结果 如 图 14.8 所 示 。 


1 2 1 
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由) 挛 扫 的 闫 有 (o) 逆 变换 结果 
图 14.8 一 维 离散 Hartley 变换 计算 结果 
从 图 14.8 可 以 看 出 连续 两 次 Hartley 变换 即 可 得 到 原来 的 输入 函数 ， 验 证 了 前 面 提 到 的 结论 。 
根据 式 ( 14-24 )， 可 以 写 出 二 维 Hartley 变换 的 程序 ， 具 体 如 下 : 


0 
(输入 函数 


function Q=hartley2(G) ; 
[M,N]=size(q); gs 计算 向 量 中 元 素 的 行 数 和 列 数 
Q=Eft2(9) ; ，s% 离散 傅 里 时 变换 
Q=[real(Q)+imag(Q) ] /sqrt(N*M) ; $% 取 实 部 与 虚 部 之 和 
参数 说 明 : Q 和 q 分 别 是 二 维 离散 Hartley 变换 的 输出 和 输入 数据 。 对 于 二 维 Hartley 变换 同 
样 需要 利用 函数 fftshift 来 调整 频谱 的 顺序 。 
例 14-9: 计算 如 图 14.9 所 示 的 图 像 的 Hartley 变换 与 逆 变 换 。 
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图 14.9 字符 “H” 的 图 像 


该 文件 保存 于 光 人 盘 中 \Ch14 文件 夹 下 的 hw.bmp 文件 中 。 


分 析 : 使 用 函数 imread 可 以 读 入 图 像 所 对 应 的 和 矩阵， 然后 调用 上 面 的 hartley2 函数 进行 二 维 
Hartley 变换 。 这 里 利用 mesh 函数 来 显示 频谱 的 输出 图 形 。 相 应 的 实现 程序 如 下 : 


ql=double(imread('hw.bmp')); s* 读 入 图 像 
Ql=hartley2(ql1) ; % 进行 二 维 Hartley 变换 
Col=hartley2(Ql1); % 再 进行 一 次 Hartley 变换 
figure; subplot (121); 

mesh(abs (fftshift(O1)))， axis vis3d; sg% 绘图 
xlabel('(a)''Fontsize' ,18); g% X 轴 标注 
Subplot (122) ; 

mesh(Qol) ;axis vis3d; gs 绘图 

set (gcf,'Color'，'w') ; g 设置 背景 为 白色 
xlabel('(b)'，'Fontsize',18) 7; gs X 轴 标 注 


所 得 图 形 如 图 14.10 所 示 。 











全 j 正 变换 结果 侣 逆 变 掏 结 果 
图 14.10 ”二 维 Hartley 变换 的 结果 
从 图 14.10 可 以 看 出 ，Hartley 变换 在 中 心 处 的 频谱 分 量 较 大 ， 连 续 两 次 变换 就 得 到 原 输入 图 像 。 


14.4 ”离散 正 / 余 弦 变 换 


目前 离散 正 余弦 变换 的 版 本 有 如 下 4 种 形式 : 
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CN (mm) = em 人 (各 | 7111,72 0.1 一 1 ( 14-25 ) 
Ci (mm 站 = 此 lea ce 人 mm2 中 mm = 0 N-1 (14-26 ) 
Ca (msm)= 此 le wa ml = 0 ,N-1 (14-27 ) 
Cxy (mm) = 上 民 |= | Ce 7117 三 0,1,N 一 1 ( 14-28 ) 


其 中 Cw (3=12,3,4) 表 示 离 散 余弦 变换 的 核 矩 阵 ， 其 中 的 8 表示 不 同类 型 的 离散 余弦 变 换 ， 
N 对 应 于 信号 的 长 度 。 对 应 的 离散 正弦 变换 也 有 4 种 形式 ， 即 


Sw (mo7) = 十 |a( 侣 ) 1710, 三 |, N ( 14-29 ) 
Si (msO)= 上 | sm{m| 7, 二 1 N (14-30) 
Sw (7) = 上 | sm 各 | 111, 妖 三 ,ANV， ( 14-31) 
SN (mm ) = 皮 中 是 oo 711, 严 三] N ( 14-32 ) 


上 面 8 个 公式 中 ， 有 大 = 大 =1/V2 ， 其 他 的 妃 , 和 态 等 于 1。 根 据 上 面 的 定义 公式 可 以 写 出 
对 应 的 变换 程序 ， 其 中 以 C! 为 例 ， 根 据 公 式 ( 14-25 ) 可 以 写 出 离散 余弦 变换 的 程序 ， 其 内 容 如 
下 : 

















function y=dctl(x); #% 1 型 离散 余弦 变换 
N=length(x) s 计算 参数 N 

Xx=X(:)， sg 把 信号 转 为 列 向 量 

[n,m] =meshgrid(0:N-1); ， s% 生成 脚 标 矩阵 

km=ones (N) ; # 生成 系数 km 

kmn=kmy; g 生成 系数 xn 
km(1,:)=1/sqrc(2) # 设置 系数 km 的 取 值 
km(end, :)=1/sqrt(2); s% 设置 系数 km 的 取 值 
kmn(:,1)=1/sqrt{(2); # 设置 系数 kxn 的 取 值 
kn(:,end)=1/Sqrtt2) 1; % 设置 系数 xn 的 取 值 
clN=sqrt(2/[N-1])*ones(N); sg% 初始 化 变换 核 矩 阵 ， 所 有 元 素 都 等 于 sqrt (27[N-1]) 
C1N=CI1N.*kn.*km.*cos(m.x*nx*pi/[N-1I]); % 计算 核 矩阵 
Y=C1Nwxy 进行 离散 余弦 变换 


参数 说 明 : 上 述 程序 中 y 是 变换 的 输出 结果 。x 是 输入 的 离散 函数 。 其 他 几 个 函数 可 以 类 似 地 
写 出 ， 相 应 程序 保存 在 光盘 \Ch14 文件 夹 中 ， 文 件 名 依次 为 dct1.m，dct2.m，dct3.m，dct4.m， 
dstt.m，dst2.m，dst3.m 和 dst4.m。 相 应 程序 不 在 这 里 描述 ， 参 数 意义 都 相同 。 

例 14-10: 计算 例 14-8 中 函数 相应 的 离散 余弦 变换 和 离散 正弦 变换 。 
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分 析 : 首先 得 到 输入 函数 的 离散 形式 , 然后 依次 调用 上 面 的 dct1.m, dct2.m, dct3.m, dct4.m， 
dst1.m，dst2.m，dst3.m 和 dst4.m 程序 就 可 以 计算 离散 正 / 余 弦 变 换 的 结果 。 
根据 分 析 可 以 写 出 相应 计算 变换 的 程序 ， 具 体内 容 如 下 : 


t=linspace{-3,3,101) ; sg 自 变量 离散 采样 


x=zeros(size(t)); g 计算 输入 函数 的 离散 形式 
x(abs (t)<=1)=1; # 限定 范围 内 的 数值 等 于 1 
X=X .xf gs 计算 输入 函数 的 离散 形式 
Ycl=dct1(x); # 1 型 离散 余弦 变换 
yc2=dct2(x); s 2 型 离散 余弦 变换 
Yc3=dct3(x) ; s 3 型 离散 余弦 变换 
Yc4=dct4(x) ; % 4 型 离散 余弦 变换 
ys1l1=dstl(x); s 1 型 离散 正弦 变换 
Ys2=dst2(x) ; s 2 型 离散 正弦 变换 
ys3=dst3 (x); g# 3 型 离散 正弦 变换 
Ys4=dst4(x); gs 4 型 离散 正弦 变换 


subplot (241) ;plot(t,ycl,'k'); ss 绘图 
text(1,1.5,'{fNitC)_{NitN)^15 Fontname'，'Times new roman','Fontsize',14); sg 标注 
subplot (242) ;plot (kt,yc2,'k'); * 绘图 
text (1,1.5,'f{N\itC)j_{NitN)^2'，'Fontname'，'Times new roman','Fontsize',14); $ 标注 
subplot (243) ;plot(t,yc3, 'k'); % 绘图 
text (1,1.5,'{fNitCl_fNitN}^34， Fontname'，'Times new roman','Fontsize',14); s% 标注 
subplot{(244) ;plLlot(t,yc4,'k'); ss 绘图 
text (1,1.5,"{fNMitCl_{NitN)^4 Fontname'， Times new roman','Fontsize',14); $% 标注 
subplot (245) ;plot (t,ysl,'k'); $% 绘图 
text (1,1.5,'{NitS}_{NitN}^1'，'Fontname'，'Times new roman','Fontsize',14); 多 标注 
subplot (246) ;plot (t,ys2,'k'); ss 绘图 
text (1,2.3，'{fNitS}_{NitN}^2'，'Fontname' Times new roman'，'Fontsize',14); g% 标注 
subplot (247) ;plot{t,ys3,'k')); sg% 绘图 
text (1,1.5,'{fNitS}_{N\itN}^34， Fontname'，'Times new roman','Fontsize',14); g% 标注 
subplot (248) ;plot(t,ys4,'k'); % 绘图 
text(1,1.5,'{N\itS}_fNitN}^4' Fontname'，'Times new roman','FEontsize',14); % 标注 


输出 图 形 如 图 14.11 所 示 。 


2 2 2 2 
1 
cy Gy cv cx 
1 1 1 1 
0 0 0 0 
-1 -41 寺 - 
总 2 0 653 0 6563 0 6 
2 3 2 2 
; 
| 吕 | 让 有 | 吕 || 部 
1 
oj 骨 0 0 
0 
- 四 -1 -1 
。 5 
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图 14.11 ”离散 正 /余弦 变换 的 计算 结果 


从 图 14.11 可 以 看 出 不 同 版 本 的 离散 正 /余弦 变换 结果 大 体 相似 ， 但 在 细节 上 存在 差异 。 
对 于 二 维 变换 的 程序 , 可 以 分 别 生成 行 向 量 和 列 向 量 对 应 的 变换 核 矩 阵 ， 然后 利用 核算 阵 和 输 
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入 矩阵 相 乘 得 到 二 维 变换 结果 ， 这 里 以 1 型 离散 余弦 变换 为 例 给 出 相应 实现 程序 ， 二 维 程序 的 基 
本 思路 是 利用 两 个 变换 核 矩 阵 分 别 左 乘 和 右 乘 矩 阵 两 侧 ， 具 体 程 序 如 下 : 


function Y=dct1_2d(x) ; % 1 型 二 维 离散 余弦 变换 
[M,N]=size(x):; % 计算 参数 N 
C1M=kernelt(M) ; 得 到 各 列 变换 对 应 的 核 矩 阵 
C1N=kernelt (N) ; % 得 到 各 行 变 换 对 应 的 核 矩 阵 
Y=C1Mx*xx*CI1N; g% 进行 离散 余弦 变换 


function C1N=kernelt(N);  % 计算 核 和 矩阵 的 子 程序 
[n,m] =meshgrid(0:N-1); # 生成 脚 标 矩 阵 


km=ones (N) ; gs 生成 系数 km 

kn=kmy; gs 生成 系数 kn 

km(1,:)=1/sart(2); gs 对 系数 向 量 km 赋值 

km(end, :)=1/sart(2) ; gs 对 系数 向 量 km 赋值 

kn(:,1)=1/sqrt(2) ; % 对 系数 向 量 kn 赋值 

kn(t:,end)=1/sqrt(2) # 对 系数 向 量 kn 赋值 
Cl1N=sqrt(2/[N-1])*ones(N); ss 初始 化 变换 核 窍 阵 ， 所 有 元 素 都 等 于 sqrt (2/ [N-1]) 
C1N=C1N.*kn.*km.*cos(m.wxnxpi/y[N-1]); $% 计算 核 窍 阵 


参数 说 明 : y 和 x 分 别 是 变换 的 输出 和 输入 矩阵 。 其 中 核 矩 阵 通 过 一 个 子 函数 计算 , 即 kernelt。 
其 他 程序 保存 于 光盘 中 \Ch14 文件 夹 下 ， 文 件 名 依次 为 dct2_2d.m，dct3_2d.m，dct4_2d.m， 
dst1_2d.m，dst2_2dm，dst3_2d.m 和 dst4_2d.m。 

例 14-11: 计算 下 面 图 案 的 离散 余弦 变换 ， 如 图 14.12 所 示 。 


ma 


< 


图 14.12 ”进行 离散 余弦 变换 的 图 案 
该 图 案 对 应 的 图 片 文件 保存 在 光盘 中 的 \h14 文件 均 下 ， 文 件 名 为 fp.bmp。 


分 析 : 先 利用 imread 函数 把 图 像 对 应 的 数据 读 入 MATLAB ， 然 后 调用 上 面 定义 的 离散 余弦 变 
换 函 数 dct1_2d 来 计算 即 可 。 实现 程序 如 下 : 





AR=double(imread('fp.bmp')); s% 读 入 图 像 数 据 并 转化 为 aouble 型 数据 
Cl=dact1l_2d(R) ; g 1 型 二 维 离散 余弦 变换 
mesh(C1l) ; g 绘图 


colormap([0,0,0]) 
运行 上 述 程序 结果 如 图 14.13 所 示 。 
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0 0 
图 14.13 ”二 维 离散 余弦 变换 结果 


从 图 14.13 可 以 看 出 ， 变 换 结果 中 在 (0,0) 附近 的 数值 比较 大 ， 其 他 位 置 的 数值 接近 于 0。 其 
他 类 型 的 余弦 变换 和 离散 正弦 变换 的 二 维 结果 ， 读 者 可 以 自行 计算 一 下 。 


14.5 “分 数 随 机 变换 


本 节 讨 论 分 数 阶 随机 变换 的 定义 和 程序 实现 。 离 散 随机 变换 的 数学 定义 步骤 如 下 ， 


ED 产生 随机 的 对 称 实数 矩阵 C ( 这 里 要 求 矩 阵 亿 是 正定 的 )。 

计算 矩阵 C 的 本 征 向 量 矩 阵 V_ ， 它 们 将 作为 随机 变换 的 本 征 向 量 。 

按 下 述 方式 得 到 随机 变换 的 本 征 值 对 角 方 矩阵 : 
D* =diag(-2irw[0.1…N=-1]) ( 14-33 ) 
其 中 函数 diag 表示 由 向 量 生成 对 角 和 矩阵 ，C 是 变换 的 分 数 阶 。 

得 到 变换 的 核 矩 阵 R “ : 


Ra =YyDeV': ({ 14-34 ) 
其 中 符号 “t ”表示 珑 阵 的 转 置 运算 。 通 过 核 德 阵 R_“ 和 输入 信和 号 或 者 图 像 相 乘 就 可 以 
进行 离散 分 数 随 机 变换 。 


离散 分 数 随机 变换 具有 可 加 性 、 能 量 守恒 、 线 性 等 性 质 , 关于 该 变换 的 应 用 ， 可 以 参阅 相关 的 
文献 。 根 据 上 面 的 描述 可 以 得 到 一 维 离散 分 数 随机 变换 的 程序 : 


function y=dfrt(x,alpha,s); sg% 离散 分 数 随机 变换 


N=Jlength(x) ; # 获得 元 素数 目 
rand('state'vs): sg 固定 随机 数 的 种 子 
P=rand(N) ; g 生成 一 个 随机 甜 阵 
Q=(P+B')72; g 得 到 实 对 称 甜 阵 


if rank(Q) <N; g 验证 矩阵 Q 是 否 正定 
eILor ('??? Matrix "Q" is not full rank macrix'); 
Output=[]， 

enda 
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[V,D]=eig(Q); 8% 计算 一 组 本 征 向 量 
D=daiag(exp{(-2*ivpix([0:N-1])*alpha)); s$ 本 征 值 矩阵 


=VeDV' 1 # 变换 的 核 矩 阵 
X=x(:)， ， 外 将 x 转 化 为 列 向 量 
Y=TxXxy “ g% 得 到 变换 结果 


参数 说 明 : y 是 变换 的 输出 结果 。alpha 是 变换 的 分 数 阶 。s 是 控制 随机 数 状态 的 参数 。 当 变 
换 的 程序 提示 “Matrix "Q' is not full rank matrix” 时 ， 变 换 将 不 能 进行 ， 此 时 用 户 需要 改变 参数 s 
的 数值 来 得 到 一 个 正定 的 和 矩阵 Q。 

例 14-12: 计算 下 面 函 数 的 离散 分 数 随 机 变换 ， 


1]，1rl&l 
一 ， 步 长 ; 三 0.05 ， 选择 为 w= 0.2,0.5 。 
xf(1) 必 RE 其 中 采样 步 长 为 Af = 0.05 ， 分 数 阶 选择 为 w= 0.2,0.5 


分 析 : 首先 对 函数 x(1) 进 行 离散 采样 并 计算 相应 的 函数 值 ， 然 后 调用 前 面 定义 的 函数 dfrt 来 


计算 离散 分 数 随机 变换 。 显 示 结 果 时 选择 实 部 和 虚 部 分 别 显示 的 形式 。 而 随机 变换 的 参数 s 取 值 为 
1021。 
其 求解 程序 如 下 : 


t=linspace(-2,2,81); # 自 变量 离散 采样 

X=Zzeros (size(t)); 

x(abs(t)<=1)=1; $% 计算 出 对 应 位 置 的 函数 值 

Y1=dfrt(x,0.2,1021) 7 % 计算 分 数 阶 等 于 0.2 时 的 输出 结果 
Y2=dfrt(x,0.5,1021) ; g 计算 分 数 阶 等 于 0.5 时 的 输出 结果 
sl=subplot(141) ;plot(t,real(yl1),'k');axis square)j $ 绘图 ， 变 换 的 实 部 
xlabel('(a)'，'Fontsize' ,12); g 标注 

s2=subplot (142) ;plot(t,imag(yl1),'k');axis square; % 绘图 ， 变 换 的 虚 部 
Xlabel('(b)'，'Fontsize',12) 7 g 标注 

s3=sSubplot (143) ;plot(t,real(y2),，'k')yaxis square;  $% 绘图 ， 变 换 的 实 部 
xlabel('(c)'，'Fontsize',12); g 标注 

s4=subplot (144) ;plot(tt,imag(y2)，'k')yaxis squarej s# 绘图 ， 变 换 的 虚 部 
xlabel('(dq)'，'Fontsize',12); g 标注 


上 述 程序 所 得 结果 如 图 14.14 所 示 。 从 图 中 可 以 看 出 ， 变 换 输 出 结果 的 实 部 和 虚 部 都 是 随机 的 
数据 。 图 (d) 中 的 数据 都 非常 小 。 这 是 因为 在 式 ( 14-31 ) 中 ， 当 C 必 等 于 0.5 时 ， 和 拢 阵 D“ 是 实数， 
从 而 矩阵 R “是 实数 。 这 里 输入 信号 x (1) 是 实数 ， 所 以 输出 结果 也 是 实数 。 理 论 上 图 (d) 中 的 数据 
应 该 等 于 0， 它 们 是 很 小 的 数 ， 其 来 自 于 浮 点 型 数据 计算 误差 。 
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图 14.14 一 维 离散 分 数 随机 变换 的 结果 : (a) 分 数 阶 为 0.2 时 变换 结果 的 实 部 ; (b) 分 数 阶 为 0.2 时 变 
换 结果 的 虚 部 ; (c) 分 数 阶 为 0.5 时 变换 结果 的 实 部 ; (d) 分 数 阶 为 0.5 时 变换 结果 的 虚 部 


二 维 变换 的 程序 可 以 在 一 维 的 基础 上 通过 对 列 向 量 和 行 向 量 分 别 变换 得 到 , 即 用 两 个 核 矩 阵 分 
别 乘 到 输入 和 矩阵 的 两 侧 。 根 据 这 个 思路 可 以 写 出 相应 的 程序 ， 内 容 如 下 : 
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function y=dfrt2(x,alpha,s);  % 二 维 离散 分 数 随机 变换 


[M,N] =Length(x) ; # 获得 矩阵 的 行 数 和 列 数 

Tm=kernelT(M,alphayvs)， # 计算 变换 核 矩 阵 

Tn=kernelT(N,alpha,s)， gs 计算 变换 核 矩 阵 

Y=TmxXxwTny gs 得 到 变换 结果 

function T=kernelT(N,alpha,s); $ 计算 变换 核 矩 阵 的 子 程序 

rand('state',s)) # 固定 随机 数 的 种 子 

P=rand(N) ; % 生成 一 个 随机 和 阵 

Q=(P+P')72; g% 得 到 实 对 称 矩 阵 

if rank(O)<N; g 验证 矩阵 Q 是 否 正定 
error('??3? Matrix "Q" is not full rank matzrix'); 
output=[]; 

end 

[IV,d]=eig(Q) % 计算 出 一 组 本 征 向 量 

D=diag(exp(-2x*ix*pix*([0:N-1])*alpha)); # 本 征 值 矩 阵 

T=VxDwV'; # 变换 的 核 矩 阵 


参数 说 明 : y 是 变换 的 输出 结果 。x 是 输入 的 和 矩阵。alpha 是 变换 的 参数 。 参 数 s 用 来 控制 生 
成 随机 数 的 状态 。 同 样 对 于 二 维 变换 ， 当 分 数 阶 等 于 0.5 时 可 以 得 到 实数 的 输出 结果 。 上 面 的 程序 
利用 kerneIT 子 函 数 来 计算 变换 的 核 函 数 ， 可 以 用 这 个 子 函数 计算 列 变换 核 矩 阵 和 行 变换 核 矩 阵 使 
用 不 同 的 分 数 阶 。 用 户 在 上 述 程序 中 稍 改动 即 可 。 光 盘 中 \Ch14 文件 夹 下 的 dfrt2xy.m 文件 是 实现 
水 平和 竖 直 方向 不 等 分 数 阶 变 换 的 程序 ， 程 序 内 容 不 在 这 里 显示 。 其 调用 格式 为 : 


Y=dGfrt2Xxy (X,axvayy,S); 
其 中 y 和 x 分 别 是 变换 的 输出 和 输入 矩阵 ，ax 和 ay 是 变换 在 水 平和 竖 直 方向 的 分 数 阶 ，s 是 


控制 生成 随机 数 状态 的 参数 。 
例 14-13: 计算 如 图 14.15 所 示 图 像 对 应 失 阵 的 离散 分 数 随机 变换 的 结果 。 





图 14.15 ”二 值 符号 图 案 


分 析 : 首先 利用 函数 imread 读 入 图 像 对 应 的 数据 矩阵 ， 然 后 调用 前 面 定义 的 函数 dfrt2 计算 离 
散 分 数 随机 变换 的 结果 。 根 据 分 析 可 以 写 出 对 图 像 进行 变换 的 程序 ， 如 下 : 


A=double(imread('Asc.bmp'));  s# 读 入 图 像 数 据 
Fl1=dfrt2(R,0.3,150001); # 进行 分 数 阶 为 0.3 的 变换 
M1=abs(F1); gs 取 振 幅 

Rl1=angle(F1); g% 提取 相位 

AL(RAL<0) =RAL(A1<0) +piw2， gs 把 相位 限制 在 [0，Ppi*2] 
F2=dafrt2(&A,0.7,150001); gs 进行 分 数 阶 为 0.7 的 变换 
M2=abs (F2); # 取 振 幅 

RA2=angle(F2) ; g 提取 相位 

RA2 (RAR2<0)=R2 (RAR2<0)+pi*27 sg 把 相位 限制 在 [0，Ppi*2] 
subplot (221) ;imshow(M1, [])， s# 绘制 振幅 M1 
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Xlabel('(a)'，'Fontsize',14,'Fontname'，'Times new roman'); # 标注 
subplot(222) ;imshow(RaAl,[])， g% 绘制 相位 al 
xlabel{(' (b)'，'PFontsize' ,14,，'Fontname'，'Times new roman'); % 标注 
subplot (223) ; imshow(M2, [] ) gs 绘制 振幅 M2 
Xlabel('(c)'，'Fontsize',14，'Fontname' ,Times new roman'); $% 标注 
subplot (224) ; imshow(RA2,[])， g% 绘制 相位 A2 
xlabel('(d)'，,'Fontsize',14,'Fontname'，'Times new roman'); sg 标注 


输出 的 图 形 如 图 14.16 所 示 。 





全 分 数 阶 为 0.3 时 变换 结果 的 振幅 (pb) 分 数 阶 为 0.3 时 变换 结果 的 相位 





(c) 分 数 阶 为 0.7 时 变换 结果 的 振幅 ({d 分 数 阶 为 0.7 时 变换 结果 的 相位 
图 14.16 ee 
图 14.16 中 图 (aj 和 图 (c) 是 一 样 的 ， 这 个 可 以 根据 公式 ( 14-33 ) 来 证 明 。 当 两 个 分 数 阶 < 和 有 
满足 w+ 有 =1 关 系 时 ， 变 换 Re 和 R24 AR 相位 共 斩 的 规律 。 对 于 水 平和 坚 直 不 等 
的 情况 ， 可 以 使 用 前 面 提 到 的 函数 dfrt2xy 来 计算 。 


14.6” 汉 克 尔 ( Hankel ) 变换 


二 维 传 里 时 变换 在 圆 对 称 的 情况 下 表达 式 可 以 写 为 : 


Gl(p) -2zjeO) Ju(2rrp)jrd ( 14-35 ) 
其 中 8(r ) 为 输入 函数 ， oz 数 。 几 是 零 阶 贝 塞 尔 函 数 。r 和风 分 别 是 变换 
前 后 的 空间 坐标 和 频率 坐标 。 表 达 式 ( 14-35 ) 定义 的 变换 就 是 汉 克 尔 ( Hankel ) 变换 ( 或 者 叫做 


零 阶 汉 克 尔 变换 )， 也 称 Ra sw ( FourierBessel transform )。 当 表达 式 ( 14-35 ) 中 
的 贝 塞 尔 函 数 被 v 阶 贝 塞 尔 函 数 代替 后 ， 即 : 


G(p)=2r[e(r)v.(2mrpjrdr ( 14-36 ) 


公式 ( 14-36 ) 被 称 为 y 阶 贝 塞 尔 函 数 ， 其 中 是 正 整 数 。 除 了 把 > 和 AP ( G 和 8 ) 相互 交换 
外 , 汉 克 尔 变换 的 逆 变 换 与 公式 ( 14-35 ) 和 ( 14-36 ) 相 同 。 对 于 实际 问题 的 数值 计算 , 公式 ( 14-35 ) 
和 ( 14-36 ) 的 积分 不 能 积分 到 无 穷 , 只 能 在 有 限 大 小 的 区 间 上 进行 , 即 [0,5%] 。 同 样 , 频谱 函数 C(p) 
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的 定义 区 间 也 需要 限定 为 [0,8] ， 和 有 是 正 实数 ， 根 据 具 体 问题 确定 ， 其 中 z1 被 称 为 空间 带宽 
乘积 ( Space Bandwidth Produce )。 下 面 来 考虑 汉 克 尔 变 换 的 数值 计算 。 
例 14-14: 计算 下 面 函 数 的 零 阶 汉 克 尔 变换 。 


广 ， 0<rsl 
Si(r)=12-r 1<r<2 
0， 7 之 2 





分 析 : 该 问题 中 函数 8i (>) 是 一 个 分 段 函数 ， 同 时 非 零 函数 值 限制 在 有 限 区 间 [0,2] 内 。 公 式 
( 14-35 ) 可 以 等 价 地 写 为 下 面 的 表达 式 ， 


G(p)= 到 凡 er) rzdr 十 色 CompjrD-ojd ( 14-37 ) 


对 公式 ( 14-37 ) 进行 积分 计算 获得 函数 值 。 此 处 用 函数 quadgk 来 计算 公式 ( 14-37 ) 中 的 两 
个 积分 。 带 有 确定 解析 表达 式 且 非 零 值 区 间 有 限 的 汉 克 尔 变 换 可 以 使 用 该 思路 计算 ， 程 序 如 下 ; 


rho=linspace(0,4,200) ; # 对 频 域 坐标 进行 离散 采样 
for k=1l:length(rho) ; g% 逐 点 计算 频谱 各 位 置 处 的 函数 值 

a=2x*piwrho (k) g% 计算 系数 

G1 (k) =quadgk(e(r) [rz.^2.*besselj(0,r*a)],0,1)7 % 计算 第 一 个 积分 

Gl (k) =G1 (k)+quadgk(e(r) [r.*(2-r) .*besselj(0,rxa)],1,2);  % 计算 第 二 个 积分 并 累 
加 
endQ 
plot (rho,Gl*pi*2,，'k');set(gca,'Fontsize',12)7 % 绘图 
xlabel('Nit\rho'，'Foncsize',14,'Fontname'，'Times new oman') g% 标注 X 轴 


ylabel('f\itG}(f{\itvrho})'，'Fontsize',14,'Fontname'，'Times new roman'); % 标注 Y 


上 述 程序 计算 输出 结果 如 图 14.17 所 示 。 





了 
5 
5 
如 
3 
2 
1 
0 
1 
2 





图 14.17 ”函数 8,(r) 的 汉 克 尔 变 换 结 果 


可 见 频谱 函数 G(p) 在 D=4 附 近 已 经 趋 于 0， 可 见 频谱 是 限制 在 一 个 有 限 区 域 的 。 在 
MathWorks 网 站 上 可 以 下 载 到 汉 克 尔 变换 的 一 个 演示 程序 : http:/www.mathworks.corn/ 
matlabcentral/ fleexchange/loadFile.do?objectld=6570。 

执行 下 载 文件 Hankel_transform.m 可 以 得 到 如 图 14.18 所 示 的 结果 。 
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-一 Input function | 
-一 Retrieved function with IHT 





0 05 1 15 2 25 3 36 4 45 5 
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图 14.18 ” 阶 越 函数 的 汉 克 尔 变换 结果 

下 面 网 址 可 以 下 载 到 计算 零 阶 和 一 阶 汉 克 尔 变 本 的 程序 ，httpWinfohost.nmt.edu/ 
一 borchers/hankel.html。 

下 面 网 址 可 以 下 载 到 计算 离散 汉 克 尔 变 换 的 程序 包 ; http://www.mathworks.dey matlabcentral/ 
fileexchange/loadFile.do?objectld=13371&obijectType=file。 

离散 汉 克 尔 函数 dht 的 调用 格式 为 : 
[H,k,z, 工 K,RO,h0]=daht(h,R,N,mn); 

参数 说 明 : H 是 输出 的 变换 结果 。k 是 频谱 的 空间 频率 。r 是 半径 位 置 。| 是 积分 核 ， 是 一 个 矩 
阵 。K 是 谱 因 子 。RO 是 信号 因子 。h0 是 离散 信号 。H 是 输入 函数 的 句柄 。R 是 最 大 半径 。N 是 信 
号 长 度 。N 是 变换 的 阶 数 。 

例 14-15: 利用 dht 函数 计算 下 面 函 数 的 零 阶 离散 汉 克 尔 变 换 ， 其 中 采样 点 数目 是 200。 

_ 几 osxrsl 

oO 人 1<xr<4 

分 析 : 利用 函数 inspace 来 生成 离散 采样 点 , 最 大 半径 是 4, 即 R=4。 变换 的 输入 参数 N=200， 
n=0。 在 上 面 已 知 的 条 件 下 可 调用 函数 dht 来 计算 零 阶 离散 汉 克 尔 变换 。 函 数 8; (X) 需要 使 用 一 
个 函数 文件 来 定义 ， 即 


function h=testfun(t); 
h=zeros (size(t)); 


h(t<=1) =1; g 计算 函数 值 
调用 下 面 的 程序 可 以 计算 汉 克 尔 变 换 : 


R=4; “% 对 参数 R 赋值 
N=200; 对 参数 N 赋值 
n=0; 对 参数 mn 赋值 
[H， 和 K,R,h]j=aht('testfun',R,N,n); $% 计算 离散 汉 克 尔 变 换 


plot(r,H, 'k'); gs 绘 
计算 结果 如 图 14.19 所 示 。 该 变换 与 离散 余弦 结果 很 相似 ， 较 大 数 主 要 分 布 在 0 附近 。 
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14.19 ”离散 汉 克 尔 变换 的 结果 


14.7 “小 波 变换 


对 于 分 析 和 处 理 非 平稳 信号 ,， 传 里 叶 变 换 在 解决 这 类 问题 受到 限制 。 为 此 ， 国内 外 研究 者 在 近 
几 十 年 做 了 不 断 探 索 , 发 展 了 不 同形 式 的 变换 ,如 窗口 傅 里 叶 变换 、 分 数 傅 里 叶 变 换 以 及 小 波 变 换 
等 。 本 节 介绍 小 波 变换 。 

令 函 数 (1) 是 平方 可 积 的 实数 空间 ( 能 量 有 限 的 信号 空间 )， 函 数 灵 (!) 的 傅 里 叶 变 换 是 


2 
亚 (w) 。 当 下 (ww) 满足 允许 条 件 ( Admissible Condition ) 4C = 疡 人 ao< M ，M 是 一 
及 


个 有 限 的 正 实数 ， 函 数 杂 (t) 就 可 以 作为 一 个 基 小 波 ( 或 者 叫做 母 小 波 ，Mother Wavelet )。 把 基 小 
波 录 (1) 平移 和 伸缩 后 就 得 到 了 小 波 序列 。 对 于 连续 情况 ， 小 波 序列 可 以 写 为 : 


1 1 一 已 
天 三 -| 一 (14-38 ) 
Wes (人 二 Y[ ] 
其 中 &(& 夫 0) 和 户 分 别 是 伸缩 因子 和 平移 因子 ， 它 们 都 是 实数 。 对 于 离散 的 情况 有 : 
多 (=2 32 人 2315) (14-39 ) 


其 中 z(z 关 0) 和 s* 分 别 是 伸缩 和 平移 因子 ,它们 是 整数 。 对 于 任意 连续 函数 了 (1) 的 小 波 变换 
可 以 表示 为 ; 


四 1 一 户 
W/ (ab)=( 记 wo)=|q 12 Jroy[ 宇 ( 14-40 ) 
尺 
其 中 ( ,ys ) 表 示 内 积 ， |[ 守 ] 表示 取 复 共 胰 。 逆 小 波 变换 为 ， 
4 
1 1 1 一 已 
J(D)=2 人 ww (cojy[ 二 jaads (14-41 ) 
下 面 来 介绍 小 波 函 数 的 相关 知识 。 


14.7.f 管理 小 波 函数 
函数 wavemngr 可 以 来 管理 小 波 函数 ， 其 调用 格式 为 : 
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wavemngr('add' ,fn,fsn,wt,nums,Eile) % 格 式 1 
wavemngr('add' ,fn,fsn,wt,nums,file,b) g 格 式 2 
wavemngr('add' fn,fsn,wt,{fnums,typnumsj,file) % 格 式 3 
wavemngr('add' ,fn,fsn,wt, fnums,typnums},file,b) % 格 式 4 
wavemngr ('ael',n) sg 格式 5 
wavemngr ('zestore') $% 格 式 6 
wavemngr ('restore' in2) % 格 式 7 
wavemngr('read') % 格 式 8 
wavemngr('read',in2) gs 格 式 9 
wavemngr('read_asc') sg 格 式 10 


参数 说 明 : 格式 1 至 格式 4 用 来 添加 小 波 函 数 。fn 是 Family name， 即 小 波 族 。Fsn 是 Family 
short name, 即 小 波 族 的 缩写 名 。wt 是 Wavelet type 的 缩写 , 即 小 波 类 型 , 当 wt=1 时 为 正 交 小 波 ; 
当 wt=2 时 为 双 正 交 小 波 : 当 wt=3 时 为 带 尺 度 函数 的 小 波 ; 当 wt=4 时 为 不 带 尺 度 函 数 的 小 波 ， 
当 wt=5 时 为 不 带 尺度 函数 的 复 小 波 。nums 为 字符 串 的 个 数 。file 是 小 波 函 数 名 。b 为 小 波 有 效 支 
撑 的 上 下 界 。typnums 用 于 指定 小 波 参 数 ， 其 取 值 为 integer，real，string， 其 中 默认 值 为 integer。 
格式 5 用 于 删除 小 波 函 数 ,，n 是 小 波 函数 名 。 格 式 6 用 于 保存 前 面 的 小 波 函 数 ， 格式 7 保存 最 初 小 
波 函数 。 格 式 8 至 格式 10 用 来 读 取 小 波 函 数 。 格 式 8 用 来 读 取 小 波 族 ， 格 式 9 用 来 读 取 小 波 函数 
名 ， 格 式 10 用 来 读 取 小 波 函 数 的 详细 信息 。 

比如 用 户 在 命令 窗 中 输入 wavemngr(read)， 将 会 出 现下 面 的 信息 : 


anSs = 


Haar haar 
Daubechies db 
Symlets SYT 
Coiflets Coi 工 
BiorSplines bior 
ReverseBior rbio 
Meyer ney 工 
DMeyer dmey 
Gaussian Gaus 
Mexican_hat mexh 
Mor1let IOr1 
Complex Gaussian cgau 
Shannon Shan 
Fregquency B-Spline fbsp 
Comp1lex Morlet CImOI 


14.7.2 ”计算 一 维 小 波 变换 
函数 dwt 可 用 来 计算 一 维 小 波 变换 ， 其 调用 格式 为 : 


[Ca,CD] = dwt(x，'wname'); & 格 式 1 
[CA,CD] = adwt (x,Lo_D,Hi_D); % 格 式 2 

参数 说 明 : x 是 输入 的 一 维 离散 信号 。wname 是 离散 小 波 变换 中 基 小 波 名 称 。Lo_D 和 Hi_D 
分 别 为 低频 和 高 频 分 解 滤波 器 。 参 数 CA 和 CD 分 别 是 输出 的 低频 系数 和 高 频 系 数 ， 在 格式 1 中 它 
们 的 长 度 相 等 并 且 等 于 ceillengthx)/2) ， 在 格式 2 中 元 素数 目 关 系 是 
length(CA)=length(CD)=floor(llength(x)+length(Lo_D)-2)/2)。 
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例 14-16: MATLAB 中 自 带 离散 信号 ( noisbump.mat 文件 对 应 的 数据 ) 的 离散 小 波 变换 。 
分 析 : 利用 load 函数 可 以 读 入 该 数据 文件 ， 然 后 调用 dwt 函数 来 计算 小 波 变换 ， 这 里 考虑 使 
用 两 种 格式 计算 小 波 变换 。 最 后 把 计算 结果 分 别 显示 出 来 。 根据 上 面 的 分 析 可 以 写 出 相应 的 计算 程 
序 ， 具 体内 容 如 下 ; 
x=importdata('noisbump.mat'); % 读 入 数据 
[Cal1,CD1]=dawt(x, ,coif4'); g 进行 小 波 变换 


[Lo_D,Hi_D]=wfilters('sym2','d');  % 生成 低 、 高 频率 波 向 量 
[Lo_D,Hi_D,Lo_R,Hi_R] =wfilters('sym2'); gs 生成 低 、 高 频率 波 向 量 


[Ca2,CD2]=dwt (x,Lo_D,Hi_D) gs 进行 小 波 变换 
al=Subplot (311) ; 
plot(x,'k');xlim([1,1ength(x)])， # 画 出 输入 信号 


Xlabel{t'(a)'，'Fontsize' ,14) 

a2=Subplot (323); 

plot(Cal,'k');xlim([1,1length(Ca1)]); gs 画 出 小 波 变换 结果 
xlabel('(b)',，'Fontsize',14) 7; 

a3=SuUbplot (324) ; 

plot (CD1,'k');xlim([1l,1length(CD1)]); s% 画 出 小 波 变换 结果 
xlabel('(c)'，'Fontsize' ,14) 7 _ 
a4=Subplot (325) ; 

plot(CRa2,'k');xlim([1,1ength(CA2)]); gs 画 出 小 波 变换 结果 
xlabel('(d)'，'Fontsize',14) 7 

a5=SuUbplot{(326) ; 

plot (CD2,'k');xlim([1,1length(CD2)]); $% 画 出 小 波 变换 结果 
xlabel('(e)'， Fontsize',14); 
set([al,a2,a3,a4,a5],'Fontsize',12); s% 设置 字体 大 小 


上 述 程 序 所 得 结果 如 图 14.20 所 示 。 
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图 14.20 ”一 维 小 波 变换 结果 
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14.7.3， 实 现 逆 离 散 小 波 变 换 
函数 idwt 实现 逆 离 散 小 波 变换 ， 其 调用 格式 为 ， 


= idwt(CR,CD，'wname'); 格式 1 
x = idwt(CRA,CD,Lo_R,Hi_R) ; g% 格 式 2 


参数 说 明 : x 是 逆 变 换 所 得 结果 。 参 数 CA 和 CD 分 别 是 输出 的 低频 系数 和 高 频 系 数 。wname 
是 离散 小 波 变 换 中 基 小 波 名 称 。Lo_R 和 Hi_R 分 别 为 低频 和 高 频 分 解 滤波 器 。 格 式 1 和 格式 2 对 
应 于 函数 dwt 的 两 种 调用 格式 。 

例 14-17: 计算 逆 小 波 变换 。 

分 析 : 这 里 使 用 不 同 基 小 波 和 低 、 高 频率 波 系数 进行 逆 小 波 变 换 ， 比 较 不 同 参数 对 于 正 / 逆 小 
波 变换 的 影响 ， 其 中 基 小 波 使 用 coif4 和 haar 分 别 测试 。 


ixl=idwt (Cal,CDl,'coif4'); sg 用 coif4 基 小 波 进行 逆 变 换 

ix2=idwt (CR1,CD1,'haar')， g% 用 haar 基 小 波 进行 逆 变换 
[Lo_D2,Hi_D2,Lo_R2,Hi_R2]=wfilters('haar'); gs% 生成 另外 一 对 低 、 高 频率 波 向 量 
ix3=idwt (CA2,CD2,Lo_R,Hi_R); s% 使 用 正 变换 对 应 的 低 、 高 频率 波 向 量 
ix4=idwt (CR2,CD2,Lo_R2,Hi_R2) 7 %. 使 用 新 生成 的 低 、 高 频率 波 向 量 
subplot (411);Pp1lot (ixl,'k')yhola 

on;plot (x,， :5) ;xlim([1,Iength(tixl)]) ;xlabel(' fa): ,Pontsize',12)7g% 绘图 
subplot (412) ;plot (ix2， "kxk')zhold 

oniplot (x,'r') ;xlim([1,1length(ix2)])7xlabel('(b)' Fontsize',12) 7;g% 绘图 
subplot (413) ;plot (ix3，'Kk'")7hold 

on;plot(x, rz) ;xlim([1,1ength(ix3)]);xlabel('(c)' Fontsize',12)7% 绘图 
subploct (414) ;plot (ix4，'k');hold 

on;Plot (xzr');xlim([1,Length(ix4)])7xlabel('(d)'，'Fontsize' ,12) 7; 多 绘图 


输出 图 形 如 图 14.21 所 示 。 
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(dj 正 / 逆 变 换 使 用 不 相同 的 滤波 系数 
图 14.21 逆 小 波 变换 结果 
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网 了 网 二 。 在 图 14.21 的 图 (a) 和 图 (c) 中 两 条 曲线 重合 ， 说 明正 逆 变 换 对 应 ; 而 图 (b) 和 余 (d) 出 
于 了 不 重合 的 现象 ， 即 正 地 变换 不 是 对 应 的 。 


14.7.4 ”实现 二 维 离散 小 波 变换 


函数 dwt2 可 以 实现 二 维 离散 小 波 变换 ， 其 调用 格式 为 : 


[CaA,CH,CV,CD] = dwt2(x，'wname'); g% 格 式 1 
[CRA,CH,CV;CD] = dawt2(x,Lo_D,Hi_D)， % 格 式 2 

参数 说 明 : CA，CH，CV，CD 分 别 为 低频 系数 、 水 平 高 频 系 数 、 竖 直 高 频 系 数 和 对 角 线 高 频 
系数 。x 是 输入 图 像 对 应 的 矩阵 。wname 是 基 小 波 名 称 。Lo_D 和 Hi_D 分 别 是 低 、 高 频 分 解 滤波 
系数 。 

例 14-18: 计算 如 图 14.22 所 示 的 图 像 的 小 波 变换 。 





图 14.22 ”输入 图 像 


说 明 图 14.22 对 应 的 数据 存放 于 MATLAB 安装 路 径 下 WATLABNR2008avtoolbox\ 
wavejet\wavedemo 的 jellyfish.mat 文件 。 


分 析 : 首先 利用 函数 importdata 或 者 load 函数 读 入 图 像 对 应 的 数据 ， 然 后 调用 函数 dwt2 进 
行 小 波 变换 ， 用 户 可 以 根据 需要 选择 不 同 的 基 小 波 函 数 ， 这 里 采用 haar 基 小 波 进 行 小 波 变换 。 实 
现 程 序 如 下 : 


[CRA,CH,CV,CD] = dawt2(X,'haar'); gs 进行 二 维 小 波 变 换 
figurey 

subplot (221) ;imshow(Ca, []) ;xlabel('CA'); gs% 显示 低频 分 量 
subplot (222) ;imshow(cH, []);xlabel('cH'); % 显示 水 平 高 频 分 量 
subplot(223) ;imshow(cV, []);xlabel('CcV'); $% 显示 竖 直 高 频 分 量 


subplot (224) ; imshow(cD, []) ;xlabel('cD'); #% 显示 对 角 线 高 频 分 量 


计算 结果 如 图 14.23 所 示 ， 可 见 图 像 的 二 维 小 波 主要 信息 集中 在 低频 部 分 。 
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图 14.23 ”二 维 小 波 变换 结果 


14.7.5 ”实现 二 维 逆 小 波 变换 
函数 idwt2 可 以 实现 二 维 逆 小 波 变换 ， 其 调用 格式 为 


X = idwt2(CaA,CH,CV,CD，'wname') ; 格式 1 
= idwt23(CaA,CH,CV,CD,Lo_R,Hi_R);  % 格 式 2 
参数 说 明 : X 是 返回 的 逆 变 换 结果 。CA，CH，CV，CD 分 别 为 低频 系数 、 水 平 高 频 系 数 、 竖 
直 高 频 系 数 和 对 角 线 高 频 系 数 。wname 是 基 小 波 名 称 。Lo_R 和 Hi_R 分 别 是 低频 、 高 频 分 解 滤波 
例 14-19: 二 维 逆 小 波 变换 。 
分 析 : 与 一 维 遂 变换 类 似 ， 这 里 使 用 两 种 基 小 波 进行 逆 变 换 测试 ， 所 用 基 小 波 为 haar 小 波 和 
db3 小 波 ， 同 时 显示 其 逆 变 换 结果 并 进行 比较 。 计 算 程 序 如 下 : 
X1 = idwt2(CRA,CH,CV,CD, 'haar'); gs 利用 haar 小 波 进行 逆 变 换 
X2 = idqwt2(CRA,CH,CV,CcD, 'db3'); $% 利用 db3 小 波 进 行 逆 变 换 
figure:' 


subplot (121) ;imshow(X1l, []);xlabel('(a)' Fontsize',14); $# 绘图 
Subplot (122) ;imshow(X2,[]);xlabel('(b)'，'Fontsize', 14) 和 绘图 





上 述 程序 输出 结果 如 图 14.24 所 示 。 





(a) 利 用 haar 小 波 {b) 利 用 db3 小 波 
图 14.24 ”二 维 逆 小 波 变 换 结果 
从 图 14.24 可 见 图 (a) 和 图 (b) 大 体 相 似 ， 但 是 在 细节 和 亮度 上 存在 差异 ， 其 中 图 (a) 准 确 地 回 到 
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14.8 小 结 


本 章 主要 介绍 了 几 种 变换 的 程序 实现 ， 即 分 数 傅 里 叶 变换 、 菲 涅 尔 变 换 、Hartley 变换 、 离 散 
正 /余弦 变换 、 分 数 随机 变换 、 汉 克 尔 变换 以 及 小 波 变换 等 。 傅 里 时 变换 是 这 些 变换 的 基础 。 分 数 
傅 里 叶 变 换 可 以 根据 快速 传 里 时 变换 算法 来 计算 , 因而 具有 较 快 的 速度 。 菲 涅 尔 变换 对 应 于 菲 涅 尔 
衍射 ， 可 以 表示 为 卷 积 形式 ， 因 此 可 调用 FFT 算法 计算 。 离 散 正 / 余 弦 变 换 可 以 看 成 将 离散 傅 里 叶 
变换 的 实 部 和 虚 部 两 部 分 独立 出 来 , 它们 都 是 实 变换 , 特别 是 离散 余弦 变换 在 信号 和 图 像 处 理 中 有 
着 广泛 的 应 用 。 分数 随机 变换 是 使 输出 具有 随机 性 的 变换 , 同时 这 个 变换 还 可 以 保持 一 些 好 的 数学 
性 质 , 是 一 种 新 的 变换 工具 。 汉 克 尔 变换 可 以 用 来 解决 圆 对 称 函 数 的 问题 。 小 波 变换 是 一 种 新 兴 的 
数学 工具 ， 目 前 已 经 在 多 个 科学 领域 应 用 。 
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第 上 章 特殊 函数 


人 Bessel 函数 介绍 5 种 贝 塞 尔 函数 及 艾 里 函数 。 

争 Hermite 函数 介绍 Hermite 函数 及 Hermite-Gaussian 函 教 。 

阶乘 函数 与 Gamma 函数 给 出 阶乘 的 计算 方法 和 Gamma 函数 的 计算 。 
人 Beta 函数 介绍 Beta 函数 及 不 完全 Beta 函数 的 数值 计算 。 

@ 其 他 特殊 数学 函数 ”介绍 雅 可 比 椭圆 函数 、 园 函数 、 误 差 函数 等 。 


本 章 主要 介绍 在 数学 、 物 理 等 学 科 中 常用 到 的 特殊 函数 的 定义 及 相应 的 MATLAB 计算 函数 ， 
如 贝 塞 尔 函数 、 厄 尔 米 特 函 数 、 伽 玛 函数 等 。 利用 这 些 特殊 函数 可 以 简练 地 表达 计算 过 程 中 的 结果 ， 
了 解 它们 的 计算 方法 ， 促 进 特殊 问题 的 研究 。 


15.1 Bessel 函数 


贝 塞 尔 函数 存在 5 种 形式 ， 即 第 一 类 贝 塞 尔 函 数 、 第 二 类 贝 塞 尔 函 数 、 第 一 类 修正 的 贝 塞 尔 
函数 、 第 二 类 修正 的 贝 塞 尔 函数 以 及 第 三 类 贝 塞 尔 函数 。 第 一 类 贝 塞 尔 函 数 .j, ( z ) 的 数学 定义 为 ， 


[ 习 
“ 种 4 ( 15-1 ) 
曙 一 引 ae 
"2) [ 名 EEC 

其 中 是 第 一 类 贝 塞 尔 函 数 的 阶 数 。 这 是 一 个 无 穷 级 数 ，MATLAB 提供 了 函数 besselj 来 计算 
第 一 类 贝 塞 尔 函 数 。 函 数 besselj 的 调用 格式 为 : 
可 = besselj(nu,z): 

参数 说 明 : J 是 输出 的 第 一 类 贝 塞 尔 函 数值 。nu 是 贝 塞 尔 函 数 的 阶 数 。z 是 离散 的 采样 点 。 其 
中 参数 nu 可 以 是 一 个 向 量 。 当 nu 是 行 向 量 时 ，z 要 求 是 列 向 量 ;， 当 nu 是 列 向 量 时 ，z 要 求 是 行 
向 量 ， 这 时 输出 的 J 是 一 个 矩阵 。 

下 面 这 段 程 序 用 来 计算 0 到 4 阶 贝 塞 尔 函 数 的 曲线 。 


z=linspace(0,T2,400); # 自 变量 离散 采样 

J1L=besselj([0:4]'，z) 7 *# 计算 第 一 类 贝 塞 尔 函数 值 

Plot(z,J1) g% 绘图 

xlabel('fNitz}'y Fontname'，'Times new roman','Fontsize',14); % 标注 
Ylabel('t\itJIj_{Nitvj({Nitzlj) Fontname'，'Times new oman'，'EFontSsize'v,14); 多 


gtext{('fNitvj=0'，'Fontsize',14,，'Fontname'，'Times new roman'); % 标注 


， 
gtext ('{Nitvj=1','Fontsize',14,'Fontnarie'，'Times new roman'); g% 标注 
gtext ('{Nitv}=2'，'Fontsize' 14，'Fontname','Times new roman'); g% 标注 
gGLext ('{Nitvy=3'，'Fontsize' 14，'Eontname'，'Times new roman'); 和 儿 标注 
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gtext('{Nitvj=4' Fontsize',14,，'Fontname'，'Times new roman'!); g% 标注 


这 里 使 用 了 函数 gtext 来 标注 ， 用 户 可 以 用 鼠标 在 相应 位 置 加 标注 。 


上 述 程序 输出 结果 如 图 15.1 所 示 , 0 阶 贝 塞 尔 函 数 在 0 点 处 等 于 1, 而 其 他 阶 的 贝 塞 尔 函数 等 
于 0， 同 时 它们 随 着 z 的 增加 振幅 变 小 。 














图 15.1 第 一 类 贝 塞 尔 函数 曲线 图 
第 二 类 贝 塞 尔 函数 了 ( z ) 的 数学 定义 为 : 


jj-= 旦 Geos(m- 玫 加 

sin (vr) 
其 中 V 为 实数 ， 第 二 类 贝 塞 尔 函 数 ( z) 由 第 一 类 贝 塞 尔 线性 函数 组 合 而 成 。 
MATLAB 函数 bessely 用 来 计算 第 二 类 贝 塞 尔 函 数 ， 其 调用 格式 为 : 


{ 15-2 ) 


Y = bessely(nu,z):; 


参数 说 明 : Y 是 输出 的 第 二 类 贝 塞 尔 函数 值 。nu 是 贝 塞 尔 函 数 的 阶 数 。z 是 离散 的 采样 点 。 其 
中 参数 nu 可 以 是 一 个 向 量 。 当 nu 是 行 向 量 时 ，z 要 求 是 列 向 量 ， 当 nu 是 列 向 量 时 ，z 要 求 是 行 
向 量 ， 这 时 输出 的 Y 是 一 个 矩阵 。 

下 面 一 段 程序 用 来 计算 第 二 类 贝 塞 尔 函数 值 。 


z=linspace(1,6,400); s# 自 变 量 离散 采样 

Y1=bessely([0:2]'+0.05,z); g% 计算 第 二 类 贝 塞 尔 函 数值 

plot (z,Y1); g# 绘图 

Y11=bessely([0:2]'+0.05,1) 

xlabel('fNitzj'， Fontname'，'Times new roman'，'Fontsize',14) ;7 g# 标注 
ylabel('f\itY)_fNitvj(fXitzl) Fontname'，'Times new roman'，'Fontsize',14); 多 


上 述 程序 输出 结果 如 图 15.2 所 示 ， 与 第 一 类 贝 塞 尔 函 数 相 比 ， 第 二 类 贝 塞 尔 函 数 变换 振荡 不 
是 那么 剧烈 。 
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图 15.2 第 二 类 贝 塞 尔 函数 的 曲线 
第 一 类 修正 的 贝 塞 尔 函数 履 (z ) 的 数学 定义 为 ， 


ha- 全 二 区 ee 


可 见 媳 (z) 与 几 (z) 相差 不 多 。 
MATLAB 函数 besseli 可 以 计算 第 一 类 修正 的 贝 塞 尔 函 数 ， 其 调用 格式 为 ， 


IT = besseli(nu,zZ); 

参数 说 明 : | 是 第 一 类 修正 的 贝 塞 尔 函 数值 。nu 是 贝 塞 尔 函 数 的 阶 数 。z 是 离散 的 采样 点 。 其 
中 参数 nu 可 以 是 一 个 向 量 。 当 nu 是 行 向 量 时 ，z 要 求 是 列 向 量 ; 当 nu 是 列 向 量 时 ，z 要 求 是 行 
向 量 ， 这 时 输出 的 1 是 一 个 和 矩阵 。 

下 面 一 段 程序 用 来 计算 第 一 类 修正 的 贝 塞 尔 函数 值 。 


z=linspace(0,2,400); ss 自 变量 离散 采样 | 
I1=besseli([0:3]',z); ， $ 计算 第 一 类 修正 的 贝 塞 尔 函数 值 


Plot(z,I1); g 绘图 

I11=besseli([0:3]',1) sg% 计算 特殊 点 的 值 

xlabel('fNitzl'，'Fontname'，'Times new IToman'，'Fontsize',14) 7 g 标注 
ylabel('fNitI}_{Nitv)(fN\itzl)' Fontname'，'Times new roman'，'Fontsize',14); 多 


输出 结果 如 图 15.3 所 示 ， 从 图 中 可 以 看 出 第 一 类 修正 的 贝 塞 尔 函数 值 的 绝对 值 能 够 超过 1。 
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图 15.3 ”第 一 类 修正 的 贝 塞 尔 函 数 曲 线 
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第 二 类 修正 的 贝 塞 尔 函 数 天 2 (z) 的 数学 定义 如 下 ， 
尼 (z) 一 产 
丰 ( 本 = 了] 全 全 -加 = 人) (15-4) 


sin (vr) 
公式 ( 15-4 ) 中 Y 不 能 取 整 数 。 
MATLAB 函数 besselk 可 以 计算 第 二 类 修正 的 贝 塞 尔 函 数 ， 其 调用 格式 为 : 


K = besselk(nu,z); 

参数 说 明 : K 是 第 二 类 修正 的 贝 塞 尔 函 数 的 输出 。 nu 是 贝 塞 尔 函 数 的 阶 数 。z 是 离散 的 采样 点 。 
其 中 参数 nu 可 以 是 1 个 向 量 。 当 nu 是 行 向 量 时 ，z 要 求 是 列 向 量 ; 当 nu 是 列 向 量 时 ，z 要 求 是 
行 向 量 ， 这 时 输出 的 K 是 一 个 矩阵 。 

下 面 程序 是 用 来 计算 第 二 类 修正 贝 塞 尔 函 数 的 例子 。 
z=linspace(0,3,400); s% 自 变量 离散 采样 
K1=besseli([0:3]'+0.5,z);  $% 计算 第 一 类 修正 的 贝 塞 尔 函 数值 

多 


plot(z,K1); 绘图 
Ki11=besseliki([0:3]' 1) % 计算 特殊 点 的 值 
xlabel('fNitz})' ,Fontname'，'Times new-roman',，'Fontsize' ,14); g 标注 


Ylabel('fA\itK}_fNMitvl(tNitzl)' Fontname'，'Times new roman'，'Fontsize',14); 多 


上 述 程序 计算 结果 如 图 15.4 所 示 ， 可 见 第 二 类 修正 的 贝 塞 尔 函 数 很 快 地 增加 并 超过 1。 











CR 
图 15.4 ”第 二 类 修正 的 贝 塞 尔 函 数 

第 三 类 贝 塞 尔 函 数 { 也 被 称 为 汉 克 尔 函 数 ) 互 * (Zz) 的 数学 定义 为 ， 

友 (z) = 天 (z)+(-0 ”ix (z) 


其 中 是 贝 塞 尔 函 数 的 阶 数 ， 大 =12 ，i 是 虚数 单位 。 
MATLAB 函数 besselh 用 来 计算 第 三 类 贝 塞 尔 函数 ， 其 调用 格式 为 : 


{ 15-5 ) 


H = besselh(tnu,k,z): 


参数 说 明 : H 是 第 三 类 贝 塞 尔 函 数 的 输出 结果 。nu 是 贝 塞 尔 函 数 的 阶 数 。z 是 高 散 的 采样 点 。 
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其 中 参数 nu 可 以 是 一 个 向 量 。 当 nu 是 行 向 量 时 ，z 要 求 是 列 向 量 ， 当 nu 是 列 向 量 时 ，z 要 求 是 
行 向 量 ， 这 时 输出 的 H 是 一 个 矩阵 。 
下 面 一 段 程序 是 计算 第 三 类 贝 塞 尔 函 数 的 例子 。 


z=1linspace(1,3,400) ; # 自 变 量 离散 采样 

H1=besselh([0:2]'+0.3,1,z)7 % 计算 第 三 类 贝 塞 尔 函数 值 

subplot (121) 

plot (z,zeal(HL))， # 绘制 实 部 

Xlabel('f\itzl'，'Fontname'，'Times new IToman'，'Fontsize' ,14) 7 外 标 
注 

Ylabel('real[{f\itH}_f\itvj(fNitzl)]' Fontname'，'Times new 

roman', 'Fontsize',14); sg% 标注 

axis Squarey 

Subplot (122); 

plot (z,imag(HL)，':) 7 s% 绘制 虚 部 

axis Square 

K11=besselH([0:2]'，,1) # 计算 特殊 点 的 值 

xlabel{('f\itzl'，'Fontname'，'Times new roman'，'Fontsize' ,14); 多 
标注 

Ylabel('imag[{\itH)_ft\itvj(f\itzl))]'，'Fontname'，'Times new 


roman', 'Fontsize',14); g% 标注 


上 述 程序 计算 后 得 到 的 结果 如 图 15.5 所 示 ， 这 里 给 出 了 第 三 类 贝 塞 尔 函 数 实 部 和 虚 部 变化 情 
况 。 








Teal[C)] 














图 15.5 第 三 类 贝 塞 尔 函 数 曲 线 ( 左 图 是 实 部 、 右 图 是 虚 部 ) 
艾 里 ( airy ) 函数 是 与 修正 的 贝 塞 尔 函数 有 关 的 函数 ， 其 数学 描述 为 : 


[3 [3 2 

4(z)= E z/13 | B(z)=Vz/3 [2 ( 幻 + 必 ( 乡 ]， 人 二 ( 15-6 ) 
其 中 4(z) 为 第 一 类 艾 里 函数 ， 妨 (z ) 为 第 二 类 艾 里 函数 。 

MATLAB 提供 函数 airy 来 计算 艾 里 函数 ， 其 调用 格式 为 : 


册 = airy(z)， 
= airy(k,z); 


参数 说 明 : W 是 输出 的 艾 里 函数 值 。z 是 自 变量 采样 值 。k 用 来 指定 艾 里 函数 分 类 ， 其 值 为 0 
对 应 于 第 一 类 艾 里 函数 ， 为 1 对 应 于 派生 的 第 一 类 艾 里 函数 ， 为 2 对 应 于 第 二 类 艾 里 函数 , 为 3 
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对 应 于 派生 的 第 二 类 艾 里 函数 ，k 的 默认 值 为 1。 
下 面 一 段 程序 用 来 计算 艾 里 函数 ; 


z=linspace(0,2,201) 1; # 自 变量 离散 采样 
for k=0:3; 
subplot (1,4,k+lT)y， 
=airy(k,z); % 计算 艾 里 函数 值 
plot(z,real(W) ，'k'); # 绘 制 实 部 
axis squarey s# 把 坐标 轴 设 为 方形 
xlabel(f'tNitzh'['('vchar(97+Kk)，')']})7 多 标注 
end 


上 述 程序 计算 结果 如 图 15.6 所 示 ， 可 见 第 一 类 苹 里 函数 单调 递减 而 另外 三 类 图 形 单调 递增 。 
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图 世 四 他 
图 15.6” 艾 里 函数 图 : (a) 第 一 类 艾 里 函数 ; (b) 派 生 的 第 一 类 艾 里 函数 ; 
{c) 第 二 类 艾 里 函数 ; (d) 派 生 的 第 二 类 艾 里 函数 
本 节 介绍 的 函数 保存 于 MATLAB 软件 的 安装 路 径 下 ， 即 Moolboxmatlab\specfun， 用 户 从 中 可 
以 看 到 一 些 计算 特 殊 函 数 的 M 文件 。 


15.2 ”Hermite 函数 


厄 尔 米 特 多 项 式 函 数码 , (zx) 的 母 函 数 是 : 





下 2 d 2 
媚 (xz)=(-U er e ( 15-7 ) 
.=(CDe 生 
不 同 阶 数 之 间 的 递 推 关 系 是 : 
囊 ,(z)-2xB,(xz)+2n5 (xz)=0 ( 15-8 ) 


特别 地 ， 丽 (zj)=1， 瓦 (xz)=2x， 利 用 已 (xz) 和 页 (zx) 可 以 递 推出 其 他 阶 数 的 厄 尔 米 特 多 项 
式 函 数 。 

在 MATLAB 中 ， 可 以 利用 maple 函数 来 计算 厄 尔 米 特 函 数 ， 在 调用 maple 函数 计算 之 前 需要 
加 载 扩展 符号 工具 箱 ， 即 


maplel('with'，'orthopoly ') 


如 果 用 户 未 安装 符号 工具 箱 (Symbolic toolbox ) 和 扩展 符号 工具 箱 《Extend 
symbolic toolbox )，MATLAB 将 提示 用 户 安 装 这 个 工具 箱 。 
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执行 上 述 语句 将 会 提示 下 面 信息 : 


ans =[G，H，L，P，T，U] 
其 中 字母 含义 如 表 15.1 所 示 。 
表 15.1 正 交 多 项 式 函 数 


函数 名 简 名 “” ， 调用 格式 说 明 
G maple(G',n,ax) 格 根 包 尔 多 项 式 函 数 ， a 是 一 个 无 理 代 数 
表达 式 或 者 是 一 个 大 于 -1/2 的 有 理 数 
H maple(H',nx) 厄 尔 米 特 多 项 式 函 数 
L maple(L,nx) 位 盖 尔 多 项 式 函 数 
maple(L,n,aX) 广义 拉 盖 尔 多 项 式 函 数 ，a 是 一 个 无 理 代 数 
， 表达 式 或 者 是 一 个 大 于 -1 的 有 理 数 
P maple(P,nX) 勒 让 德 多 项 式 函 数 
maple(P',n,a,bx) 收 可 比 多 项 式 函 数 ，a 和 b 是 无 理 代 数 表达 
式 或 者 是 大 于 -1 的 有 理 数 
T maple(T,nX) 第 一 类 切 比 雪 夫 多 项 式 函 数 
吕 maplefU',nx 第 二 类 切 比 雪夫 多 项 式 函 数 





全 汪 EN 。 "表示 多 项 式 函数 的 阶 数 ，X 是 自 变量 ，a 和 是 参数 。 


下 面 的 程序 代码 用 来 计算 厄 尔 米 特 多 项 式 函数 值 并 画 出 相应 曲线 。 


x=linspace(0,5,201) ; s# 离散 化 自 变量 
for n=2:4; 

for k=1:1ength(x) 

Hx (k) =eval (maple('H' ,ny,x(k))) 7 # 计算 函数 值 

enda ; 

Subplot (1,3,m-1l); 

plot (x,Hx) ; % 绘 图 

axis square; % 设置 坐标 轴 为 方形 


end 


上 述 程序 计算 结果 如 图 15.7 所 示 ， 从 图 中 可 以 看 出 厄 尔 米 特 多 项 式 函数 是 单调 递增 函数 。 
100 1000 10000 
1 
0 0 0 

图 15.7 ” 厄 尔 米 特 多 项 式 函 数 对 应 的 曲线 

厄 尔 米 特 -高 斯 函数 的 定义 补充 如 下 : 


C= ET 负 (zx)exp(- 妇 12) ( 15-9 ) 
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上 式 中 丑 表 示 阶 数 。 瑟 (xz) 是 严 阶 厄 尔 米 特 多 项 式 函 数 。 厄 尔 米 特 -高 斯 函数 是 分 数 傅 里 时 变 
换 的 本 征 值 。 
下 面 利 用 程序 计算 出 不 同 阶 数 丑 下 的 厄 尔 米 特 -高 斯 函数 ， 程 序 如 下 ， 


maple('with'，'orthopoly ' ) 
x=1linspace(-3,3,401); # 离散 化 自 变量 
for n=03:5; 

for k=1:1ength(x)， 

Hx(xk) =eval (maple('H',n,x(k)));  % 计算 函数 值 

end 
Subplot (2,3,n+1); 
HG=Hx.*exp(-x.^2/2)/sGrE(2^nwsGrt (Pi)*prod(1:n)) 7， 

绘 


plot (x,HG，'Kk') ; % 绘 图 
axis Square #% 设置 坐标 轴 为 方形 
xlabel('{f\itx}'，'Fontsize' ,12，'Fontname'，'Times new IToman ') ; 
xlim( [min(x) ,max(x)])， s 设置 坐标 轴 范 围 

enda 


运行 上 述 程序 ， 所 得 结果 如 图 15.8 所 示 。 根 据 曲 线 的 对 称 性 ， 可 以 知道 奇数 阶 厄 尔 米 特 -高 斯 
函数 是 奇 函 数 ， 而 偶数 阶 厄 尔 米 特 -高 斯 函数 是 偶 函 数 。 

其 他 特殊 函数 ， 如 格 根 包 尔 多 项 式 函数 、 拉 盖 尔 多 项 式 函 数 、 勒 让 德 多 项 式 函 数 、 雅 可 比 多 项 
式 函数 、 切 比 雪夫 多 项 式 函数 等 可 以 类 似 于 上 面 计算 厄 尔 米 特 多 项 式 函 数 的 例子 进行 计算 。 


0.8 1 1 
06 0.5 0.5 
0.4 0 0 
0.2 -0.5 -0.5 
0 | -| 
-2 0 2 -2 0 2 本 
天 天 


2 0 2 
下 
1 1 1 
0.5 05 0.5 
0 0 
-0.5 8 -0.5 
。 -1 
1 -2 0 2 2 -2 0 2 -2 0 2 
天 天 开 


图 15.8 不 同 阶 数 刀 的 厄 尔 米 特 - 高 斯 函数 的 曲线 


15.3 ”阶乘 函数 与 Gamma 函数 


在 MATLAB 中 ， 阶 乘 的 计算 有 多 种 方式 ， 其 中 函数 factorial 是 专门 用 来 计算 阶乘 的 ， 其 调用 
格式 为 : 


f = factorial(N) : 
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参数 说 明 : 是 返回 的 阶乘 结果 。N 是 输入 参数 ， 其 要 求 是 一 个 非 负 整数 。 
比如 用 户 在 命令 窗 中 输入 : 

>> factorial(4) 
将 会 返回 ， 
ans =24 
还 可 以 用 下 面 的 方式 来 计算 阶乘 ， 如 : 
E = Prod{t1:N) ; 
用 户 在 命令 窗 中 输入 : 
>> prod(1:3),prod(1:0) 
执行 后 会 得 到 : 


ans 
ans 


站 站 
上 


这 里 利用 函数 prod 计算 得 出 0 的 阶乘 等 于 1， 当 N=0 时 ，1:N 是 一 个 空 矩 阵 ， 即 空 短 阵 的 连 
乘积 等 于 1。 
还 可 以 用 递归 算法 来 计算 阶乘 ， 具 体 实 现 程序 的 内 容 如 下 : 
function Ef= facto(n); sg 利用 递归 算法 计算 阶乘 的 函数 
if n==0; 
fs=1; 
elseif n>0.5 
fE=n*factotfn-1) 7 
end 


参数 说 明 : f 和 nn 分 别 是 函数 facto 的 输入 和 输出 参数 。 这 个 函数 的 用 法 和 factorial 相似 。 
调用 函数 facto 来 计算 5! 可 以 用 下 面 的 格式 : 


>> ft= factof(5) 


输出 为 : 


Gamma 函数 T(a) 的 数学 定义 为 : 
T(aw)= | ed ( 15-10 ) 


特别 地 ， 当 4& 是 整数 ( 即 a= 中 ) 时 ， 有 关系 式 T(na+Hl)= 哺 成立。 
在 MATLAB 中 ，Gamma 函数 的 计算 用 函数 gamma 来 实现 。 其 调用 格式 为 : 


Y = gamma(x): 
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参数 说 明 : y 和 x 分 别 是 函数 gamma 的 输出 和 输入 。 其 中 参数 x<0 时 返回 的 结果 是 info 


下 面 通过 计算 Gamma 函数 的 曲线 来 比较 T(z+IJ)= 咏 的 关系 。 


x=linspace(0.1,4,1601); % 对 自 变 量 离散 采样 
plot {(x,gamma(x) ) ; % 绘制 Gamma 函数 对 应 的 曲线 


hold on; 
plot(1:4,factorial(0:3)，'X'，'markersize',12) 1; 

set (gca, Fontsize' ,14); % 设置 坐标 轴 字 体 
xlabel('fN\ital'，'Fontsize',22，'Fontname "，… 

Times new roman') ;  g 标 注 
Ylabel('NGamma({fNital)'，'Fontsize',22，'Fontname'，… 
'Times new roman') 1; S% 标 

set (gcf,，'Color' yw') ; 设置 背景 色 为 白色 


所 得 图 形 如 图 15.9 所 示 ， 可 见 T(a+HD 和 六 对 应 数值 吻合 得 很 好 。 
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图 15.9 Gamma 函数 曲线 


不 完全 Gamma 函数 中 (*) 和 已 (x) 的 数学 定义 如 下 : 


有 (da) = 【edr 


已 (za) “人 | ed =1- 刀 (xz) 


( 15-11 ) 


( 15-12 ) 


根据 式 ( 15-11 ) 和 { 15-12 ) 可 知 ，0< 有 (za), 局 (xa)<1。 上 面 函 数 姬 (x) 和 已 (x) 的 计算 


可 以 由 MATLAB 函数 gammainc 来 实现 ， 该 函数 的 调用 格式 为 ， 


Y = gammainc (X，al) 7 
Y = gammainc(X，a，tail) 7 


参数 说 明 : Y 是 不 完全 Gamma 函数 的 计算 结果 。x 是 不 完全 Gamma 函数 的 积分 上 限 或 者 下 
限 。a 是 不 完全 Gamma 函数 的 阶 数 。 参 数 tail 用 于 指定 计算 函数 尹 (x) 还 是 厂 (x) ,其 中 参数 lower 


对 应 于 尺 (x*) ，upper 对 应 于 忆 (x) ，lower 是 默认 值 。 


下 面 利 用 函数 gammainc 来 计算 不 完全 Gamma 函数 旭 (z) 和 吕 (x) 的 曲线 。 根据 前 面 介绍 的 


函数 用 法 可 以 写 出 相应 的 程序 ， 其 内 容 如 下 : 
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x=1linspace(0,8,401); s* 自 变 量 x 的 离 熬 采样 
yY1=gammainc(x,1); g 计算 不 完全 Gamma 函数 
Ylu=gammainc (x,1,，'upper'); s 计算 不 完全 Gamma 函数 
Y2=gammainc (x,2); % 计算 不 完全 Gamma 函数 


Y2u=gammainc (X,2, 'upper'); $% 计算 不 完全 Gamma 函数 

S1=subplot (121) ;plot (x,y1);hold on;plot (x,ylu, 'k:')7yaxis square;  % 绘图 
L1=legend('{\itP}_1({Nitxj,1)'，'{fNitP)_2({N\itxy,1) 0); #% 标注 线 型 
xlabel('fNitx}'，'Fontsize',22,，'Fontname'，'Times new roman') ; g% X 辅 标注 
Ylabel('{f\itP}_l(fN\itxl,1)，{\itP)_2({fN\itxl,1)，'Fontsize',22,'Fontname'，'Times 
new roman'); % Y 轴 标注 


S2=Subplot (122) ;PlLlot (X,yY2) ;hold on;ypP1Lot (X,yY2u, 'k:');axis square; g 绘图 
L2=1legend('{\itP}_1({\itxj,2) ftNitP}_2({Nitx),2) 0); % 标注 线 型 
xlabel('{fNitx}'，'Fontsize',22,'Fontname'，'Times new roman') ; sg X 轴 标 注 


Y1label('f\itP}_1({\itx),2)，{\itPl_2({\itx},2)' ,Fontsize',22,，'Fontname'，'Times 
new roman' ); % Y 轴 标注 

set ( [L1,L2],，'Fontsize',14,'Fontname'，'Times new roman'); 
set([S1,S2],'Fontsize',14) ; # 设置 坐标 轴 字 体 


所 得 图 形 如 图 15.10 所 示 ， 参 数 a 不 同时 不 完全 Gamma 函数 的 趋势 大 体 相 同 。 
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15.10 不 完全 Gamma 函数 的 曲线 图 
函数 gammaln 可 以 用 来 计算 Gamma 函数 的 自然 对 数 ， 其 调用 格式 为 : 


Y = gammaln{a) 
参数 说 明 : y 和 a 分 别 是 函数 gammaln 的 输出 和 输入 。 这 个 函数 在 功能 上 等 价 于 
log(gammal(a))o 


15.4 Beta 函数 


Beta 函数 B(z,w) 的 数学 定义 是 : 


B(z,mw)= | 这 (1 站 T(z)T(w) 


三 FUz+W) ( 15-13 ) 
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当 z 和 w 取 整数 ( 即 z=Jj=m-k，w=K ) 时 ，Beta 函数 可 以 用 来 计算 组 合 数 C4/-: ， 
50D-IUTO TU-HDrU-tt0 CU-Dk-D-U-Dt-DO+t- 
” ”TU+ 各 TU+Kk-1+D (+Hk-DL (+k-2)! (7J+k-])! 
本 T(7+K 大 -IJ) 
TOJ+kJCA 
在 MATLAB 中 ， 函 数 beta 可 以 用 来 计算 Beta 函数 ， 其 调用 格式 为 : 


( 15-14 ) 


B = beta(z,w) 1; 


参数 说 明 : B 是 返回 的 beta 函数 值 。z 和 w 分 别 是 beta 函数 两 个 独立 的 自 变量 。 
相应 的 函数 betaln 可 以 用 来 计算 Beta 函数 的 自然 对 数 ， 其 调用 格式 为 ， 


B = betaln(z,w)'; 


参数 说 明 : 参数 B，z 和 w 的 意义 同 函 数 Beta 中 的 说 明 。betaln(z,W) 等 价 于 log(beta(z,w))。 
组 合 数 C: 的 计算 可 以 使 用 函数 nchoosek 来 计算 ， 其 调用 格式 为 : 


V = nchoosek(n,k): 


参数 说 明 : v 是 返回 的 组 合 数 结果 。n 和 k 是 输入 参数 ， 相 当 于 组 合 数 C* 中 的 上 和 K。 
这 里 给 出 一 个 调用 函数 beta 的 例子 ， 自 变量 取 值 范围 是 从 0~6。 计 算 和 绘图 程序 如 下 ; 


z=linspace(0,6,401) 7 # z 变量 离散 采样 

B1=beta(z,4); s 计算 Beta 函数 

B2=beta(z,7); s 计算 Beta 函数 

B1L=betaln(z,4); % 计算 Beta 函数 的 对 数 

B2L=betaln(z,7); % 计算 Beta 函数 的 对 数 

subplot (121) ;plot (z,Bl,'k');hold on;plot(z,B2，'K:')7iaxis square' $% 绘图 
xlabel('fNitBl(fN\itzj,{Nitwj)' Fontname'，'Times New roman'，'Fontsize',12)) 务 
X 轴 标 注 

L1=legenda('{fNitBj({f\itzl,4)fNiB}(NiEz) 7) 1) 

subp1lot (122) ;plot (z,B1D,'k');holda on;p1ot (Z,B2L,，'Kk:')7axis Square # 绘图 
xlabel('ln[{\itB}({Nitzj,fNitw}y)]' Fontname'，'Times New roman'，'Fontsize' ,12)7 
g 立轴 标注 

L2=legenda('ln[{fNitBl({f\itzl,4)]'InIfN\itB)(t\iczl,7)] 1)7 
set([L1,L2],，'Fontname'，'Times new Toman' ) 


运行 上 面 的 程序 ， 所 得 图 形 如 图 15.11 所 示 。 从 图 中 可 以 看 出 Beta 函数 在 区 间 [0,1] 内 变化 较 
大 ，, 并 很 快 趋 于 0。 这 里 只 是 对 变量 z 进行 离散 采样 ,用户 也 可 以 对 变量 w 进行 离散 采样 并 计算 函 
数值 。 





ln] 
图 15.11 beta 函数 对 应 的 曲线 
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和 Gamma 函数 一 样 , Beta 函数 也 存在 不 完全 形式 , 即 不 完全 Beta 函数 厂 ,(z,w) 和 六 (zw)， 
其 数学 定义 为 : 





二 17] yw-l 
1x 囊 B(z,w) 人 1 (1 1 dr ( 15-15 ) 
1 z_1 ww 
0 上 U-I) di=1-7us(zw) ( 15-16 ) 


其 中 变量 x 定 义 于 区 间 [0,]] 内 。 
MATLAB 提供 了 函数 betainc 来 计算 不 完全 Beta 函数 ， 其 调用 格式 为 : 


I = betainc (x,2z,w) ， 
I = betainc (Xx,Z,wW,tail) 
工 = betainc(X,Zvtail); 


参数 说 明 : | 是 返回 的 不 完全 Beta 函数 值 。x 对 应 于 不 完全 Beta 函数 的 自 变 量 x 。z 和 w 是 
Beta 函数 的 参数 。 参 数 tail 用 于 指定 不 完全 函数 厂 ,(z,w) 和 忆 .(z,w) ， 当 tail 取 参 数 lower 时 计算 
由 ss(z,w) ， 当 取 参 数 upper 时 计算 . .(z,w) ，lower 为 tail 的 默认 值 。 

下 面 调 用 betainc 函数 来 计算 不 完全 Beta 函数 的 数值 ， 计 算 与 绘图 程序 如 下 .: 
x=1linspace(0,1,401)7 多 x 变量 离散 采样 


I1=betainc (x,4,1，'upper'); % 计算 不 完全 Beta 函数 
I2=betaince (x,4,2,，'upper')) $ 计算 不 完全 Beta 函数 


I3=betainc (xy4,3); % 计算 不 完全 Beta 函数 

I4=betainc (x,4,4) 7 g% 计算 不 完全 Beta 函数 

plot (x,I1L，'z) ; # 绘图 

hold on; 

plot (x,I2,，'g'); s# 绘图 

plot(xv,I3,b'); g% 绘图 

Plot (x,I4，'K'); S 绘图 

axiSs Squarey g% 设置 坐标 轴 为 方形 

title('fN\itI)(ftNitxl,tNitzl,fNicwl) Fontname'，Times New 

roman'，'Fontsize' ,14); g% 图 题 标注 

Xlabel('{f\itxl'，'Fontname'，'Times New oman'，'Fontsize' ,14) 7 负 

轴 标 注 

上 述 程序 计算 后 得 到 如 图 15.12 所 示 ， 不 完全 Beta 函数 的 函数 值 介 于 区 间 [0 之 间 。 
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图 15.12 ”不 完全 Beta 函数 的 曲线 
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15.5 “其 他 特殊 数学 函数 


本 节 介绍 一 些 特殊 函数 ， 如 雅 可 比 椭圆 函数 。 


- 雅 可 比 椭圆 函数 的 数学 定义 为 : 
凡 = 人 一 (15-17 ) 
V1-msin20 
sna(u)=sin 人 办，cn(u)=cos 人 内，dn(u)=AI 一 msin2? 仿 ，amz(z)= 乡 ( 15-18 ) 


这 里 参数 几 要 求 是 介 于 0~1 之 间 的 小 数 。 
MATLAB 提供 函数 ellipj 来 计算 雅 可 比 顶 圆 函数 ， 该 函数 的 调用 格式 为 : 


[sn,cn,dn] = ellipj(tu,m)， 
[sn,cn,dn] = ellipj(u,m,tol); 


参数 说 明 : 参数 sn，cn 和 dn 分 别 对 应 于 sn(xz) ，cn(x) 和 dr(x) 。u 是 连续 变量 & 的 离散 采 
样 值 。 参 数 m 用 于 指定 严 的 数值 。 参 数 tol 用 于 指定 计算 的 精度 ， 其 默认 值 是 epso 
下 面 计 算 参 数 m=0.4 和 m=0.8 时 的 雅 可 比 椭圆 函数 曲线 ， 实 现 程序 如 下 : 


u=linspace(0,8,401); % 对 u 离散 取样 

[snl,cnl,dnl] = ellipj(tu,0.4); # 计算 m=0.4 时 的 雅 可 比 椭圆 函数 值 
[sn2,cn2,dn2] = ellipjtu,0.8); % 计算 m=0.8 时 的 雅 可 比 椭圆 函数 值 
Subplot (121); - 

plot tu,snl,'r');hola on;plot(u,cnl,'g');plot(tu,dnl,'b'); % 绘图 

axis squarei % 设置 坐标 轴 为 方形 
title(['m=',num2str(0.4)],，'Fontsize',14,， Pontname'，'Times New Roman ' ): 
Subplot (122) 

plot(tu, sn2,rz')yheld on;plot(u,cn2,'g');pPlot(u,dn2,'b'); 多 绘图 

axis squarey g 设置 坐标 轴 为 方形 


title(['m=' num2str(0.8)],'Fontsize' ,14,，'Fontname'，'Times New Roman '):; 


程序 执行 结果 如 图 15.13 所 示 ， 函 数 cn() 和 sn 人 (分 布 在 -1 和 1 之 间 ， 而 函数 dr(w) 取 值 为 正 
数 。 
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图 15.13 ” 雅 可 比 椭圆 函数 曲线 
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本 本 梧 梧 第 | 过 特殊 函数 
人 


下 


了 1- 人 ET (1- -mi) 本 racenor 1 一 msin ?6) (15-19 ) 
站 JW (1- 一 msin2gjdb ( 15-20) 
1 一 ! 


其 中 天 (m) 和 天 (mm) 分 别 是 第 一 类 和 第 二 类 顶 贺 函数， 参数 几 为 区 间 [0,1]] 上 的 任意 实数 。 
MATLAB 提供 函数 ellipke 来 计算 顶 圆 函数 ， 其 调用 格式 为 : 


ellipke(m) ; 


[K, 卫 ] = ellipke(m); 
[K, 了 BE] = ellipke(m,tol)， 


参数 说 明 : K 是 第 一 类 椭圆 函数 的 函数 值 。E 是 第 二 类 椭 园 函数 的 函数 值 。m 是 李 圆 函数 的 输 


入 参数 ， 其 可 以 是 一 个 数 或 者 向 量 。tol 是 精度 控制 量 ， 其 默认 值 为 eps。 


下 面 利用 函数 ellipke 来 计算 椭圆 函数 的 曲线 ， 实 现 程序 如 下 ; 


m=linspace(0,1,401) 7 #% 对 n 离 散 取样 

[K,E] = ellipketm) 7 % 计算 椭圆 函数 值 

plot (m,K, 'z') ;hold on;plot (m,E,'k')) gs% 绘图 
xlabel('\itm','Fontsize',14,'Fontname'，'Times new roman'); S% 标 注 


必 
世 


所 得 图 形 如 图 15.14 所 示 ，K(om) 和 E(m) 分别 为 单调 递增 和 单调 递减 函数 。 
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图 15.14 椭圆 函 数 曲线 图 


误差 函数 erf (x) 的 数学 定义 为 : 
z=- 二 [fedr ({ 15-21 ) 
)- 志 | 


在 MATLAB 中 提供 了 函数 erf 来 计算 误差 函数 ， 其 调用 格式 为 : 


ezE{(X) 7 
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参数 说 明 : y 是 误差 函数 的 数值 。x 是 误差 函数 自 变量 的 离散 采样 值 。 
调用 下 面 的 语句 可 以 计算 出 误差 函数 的 曲线 : 


x=linspace(0,3,601); % 对 自 变 量 进行 离散 采样 
plot (x,erf(x) ) ; s# 计算 函数 值 并 绘图 


所 得 误差 函数 的 曲线 如 图 15.15 所 示 。 从 图 15.15 可 以 看 出 ， 当 x > 2 时 误差 函数 几乎 等 于 1。 
%(x) 函数 的 数学 定义 为 ， 
加 dlog[T(z)] _dTr(x)/dr 
由 
见 Y(z) 就 是 Gamma 函数 自然 对 数 的 导数 。 当 x=1 时 ，-w{(D) 等 于 欧 拉 常数 ( Eulers 
constant )。 在 MATLAB 中 提供 了 函数 psi 来 计算 w(z) 函数 ， 其 调用 格式 为 : 


( 15-22 ) 


= psi(x); 
= psi(k,X) 7; 


Y 
参数 说 明 : y 是 输出 的 函数 值 。x 是 自 变 量 。k 用 于 指定 派生 的 函数 ， 其 值 为 非 负 整数 ， 默 认 
值 为 0。 
调用 下 面 的 语句 可 以 计算 出 W(z) 函数 在 区 间 [0.5,8] 内 的 曲线 ， 


x = linspace(0.5,8,501)7 #% 数据 离散 取样 
plot (x,psi(x) ) ; % 计算 并 绘图 


所 得 曲线 如 图 15.16 所 示 ， 该 函数 曲线 在 小 于 1 时 增加 很 快 ， 最 后 增加 速度 变 慢 。 
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图 15.15 “误差 函数 对 应 的 曲线 图 15.16 ”多 (zx) 函数 对 应 的 曲线 
一 般 而 言 ， 特 殊 函 数 可 以 展开 为 多 项 式 的 形式 ， 如 


= ca ( 15-23 ) 
mn=0 
如 果 次 数 高 的 宕 函数 项 可 以 忽略 ， 就 可 以 仅 计算 有 限 项 来 获得 函数 值 近似 值 。 
这 里 以 sinx 为 例 取 有 限 项 进行 近似 计算 ， 利 用 泰勒 展开 可 知 sinx 可 以 表示 为 无 穷 级 数 之 和 。 


小 X2atl 


(1! 
Sinx 三 NT 让 ( 15-24 ) 


这 里 计算 到 前 5 项 的 累加 和 并 与 理论 解 进行 比较 ， 可 以 根据 式 { 15-24 ) 进行 计算 。 相 关 的 
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MATLAB 程序 如 下 : 
x=linspace(0,4,401); # 对 自 变量 离散 取样 
S1=0; s# 初始 化 累加 变量 的 数值 
for n=0:4; ， 
S1=S1+(-1)^n/ftactorial{2x*n+1)*x.^{2*n+1l)7 gg 暴 加 当前 项 
if mn>1.57 
subplot (1,3,n-1); # 打开 一 个 空 的 坐标 轴 
plot (x,S1, rzr')ihold on;  s 绘制 近似 解 曲线 
plot (xsin(x)，k:); % 绘制 理论 解 
axis square' % 设置 坐标 轴 为 方形 
end 
end 


输出 结果 如 图 15.17 所 示 。 
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图 15.17 ”有 限 项 近似 逼近 sin x 函数 的 过 程 
从 图 15.17 可 以 看 出 , 随 着 选取 项 数 的 增加 逐渐 通 近 于 理论 值 。 在 取 前 5 项 时 近似 值 和 理论 值 
之 间 的 误差 已 经 非常 小 。 


15.6 小 结 


本 章 主要 介绍 了 特殊 函数 的 计算 。 在 MATLAB 中 提供 了 大 多 数 常见 特殊 函数 的 数值 计算 程序 ， 
利用 它们 可 以 方便 计算 特殊 函数 。 首 先 介绍 了 5 种 贝 塞 尔 函 数 的 计算 及 相关 函数 ， 如 艾 里 函数 。 
厄 尔 米 特 多 项 式 函数 是 一 类 正 交 的 多 项 式 ， 而 厄 尔 米 特 -高 斯 函数 又 是 傅 里 时 变换 ( 或 者 分 数 傅 里 
叶 变 换 ) 的 本 征 函数 ， 在 MATLAB 中 调用 maple 函数 可 以 计算 该 多 项 式 的 数值 。 此 外 本 章 还 介绍 
了 阶乘 运算 的 3 种 计算 方法 ， 而 Gamma 函数 可 以 看 成 一 种 广义 阶乘 ， 利 用 函数 gamma 可 以 得 到 
另外 一 种 计算 阶乘 的 方法 。 最 后 介绍 了 Beta 函数 和 其 不 完全 形式 的 计算 ， 以 及 雅 可 比 椭圆 函数 、 
椭圆 函数 和 误差 函数 等 的 计算 方法 。 
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第 3 部 分 ”数据 可 视 化 仿真 


第 16 章 ”二 维 数据 可 视 化 
第 17 章 “三维 数 据 可 视 化 
第 18 章 ”用户 图 形 界面 设计 





第 ]@ 章 ”二 维 数据 可 视 化 


9 基本 命令 介绍 曲线 的 绘制 函数 、 特 殊 图 形 的 绘制 和 符号 绘图 等 知识 。 

人 图 形 编辑 介绍 利用 句柄 编辑 图 形 、 鼠 标 编辑 图 形 、 图 形 注释 、 字 体 设 定 等 。 

人 自 定义 特殊 图 形 样式 ”介绍 刻度 标注 、 坐 标 网 格 绘制 、 箭 头 绘制 、 多 值 函数 作 图 等 。 
9 基本 图 形 的 绘制 ”介绍 线段 、 弧 线 、 和 形 、 正 有 N 边 形 、N 角 星 、 圆 管 等 。 

@ 多 图 布局 介绍 利用 函数 Subplot 和 axes 布局 多 个 子 图 ， 同 时 介绍 图 上 图 的 绘制 。 
多 图 像 处 理 函 数 ”介绍 基本 图 像 处 理 函 数 的 用 法 。 

急 动画 介绍 动画 的 绘制 方法 和 相关 函数 ， 并 给 出 两 个 例子 。 

@ 图 形 的 保存 介绍 利用 函数 saveas 和 print 保存 图 形 的 方法 。 


数据 的 可 视 化 是 对 结果 的 直观 表示 , 在 实际 工作 和 科学 研究 中 具有 重要 作用 。 而 曲线 表现 数据 
变化 规律 是 最 直观 的 。 本 章 主要 介绍 二 维 图 形 的 绘制 , 通过 合适 的 编辑 可 以 得 到 我 们 所 期 望 的 图 形 
样式 。 数 值 计 算 和 可 视 化 的 结合 是 MATLAB 的 一 个 特色 ，MATLAB 提供 了 一 系列 相关 的 函数 来 完 
成 绘图 任务 ， 其 图 形 的 可 编辑 性 很 强 ， 用 户 可 以 对 图 形 中 的 各 部 分 按 自己 的 需要 样式 进行 编辑 。 用 
户 可 以 结合 工具 条 和 鼠标 对 图 形 进行 手动 编辑 , 也 可 以 用 相关 语句 来 等 效 地 调整 图 形 , 两 种 方式 各 
有 其 优点 。 本 章 将 详细 介绍 不 同 二 维 图 形 的 绘制 和 编辑 方法 。 


16.1 基本 命 
MATLAB 提供 了 具有 不 同 功能 的 显示 数据 的 曲线 绘图 函数 ， 本 节 主要 介绍 这 些 函 数 的 使 用 方法 。 


16.1.1 曲线 绘制 的 基本 函数 
首先 给 出 MATLAB 中 曲线 绘制 的 基本 函数 ， 如 表 16.1 所 示 。 
表 16.1 绘制 曲线 的 基本 函数 


函数 名 说 明 函数 名 说 明 

plot 绘制 线性 比例 的 二 维 曲线 semilogx 绘制 X 轴 为 对 数 比例 的 曲线 
line 绘制 线性 比例 的 二 维 或 三 维 曲 线 “semilogy 绘制 Y 轴 为 对 数 比 例 的 曲线 
loglog 绘制 双 对 数 比 例 的 二 维 曲线 plotyy 绘制 双 Y 辅 曲 线 


其 中 plot，line，loglog，semilogx，semilogy 等 函数 的 用 法 大 体 相 同 ， 可 以 统一 描述 为 : 


functionname (Ydata) 

functionnarme (Xdata,Ydata) ; 

functionname (XdataYdata,DineSpec): 

functionname (Xdata,Ydata，'PropertYyNamel '，'PropertyValuel'，...): 
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” 参数 说 明 : functionname 表示 上 面 提 到 的 5 个 函数 。Xdata 是 X 轴 的 数据 ， 其 默认 值 为 
1:length(Ydata)。Ydata 是 Y 轴 数 据 。LineSpec 用 于 指定 曲线 的 线 型 、 标 记 符号 以 及 颜色 等 三 项 属 
性 ， 它 们 的 具体 取 值 如 表 16.2 所 示 。PropertyName1 表示 曲线 的 属性 名 称 ，PropertyValue1 表示 
相应 属性 的 取 值 。 关 于 属性 名 称 和 取 值 的 具体 内 容 将 在 16.2 节 中 详细 说 明 ， 其 中 属性 及 其 取 值 成 
对 出 现 ， 并 且 可 以 有 多 对 属性 设 定 。 


表 16.2 颜色、 标记 符号 和 线 型 控制 


颜色 标记 符号 线 型 
控制 符 说 明 控制 符 说 明 控制 符 说 明 
b 蓝 色 5 实心 圆 - 实 线 
g 绿色 o 空心 加 双 画 线 
红色 X 斜 十 字 虚线 
C 青色 一 十 字符 点 画 线 
m 品 红 色 四 星 号 
yY 黄色 S 正方 形 
k 黑色 过 葵 形 
W 白色 V 下 三 角形 (VY ) 
^ 上 三 角形 (A) 
< 左 三 角形 (4 ) 
> 右 三 角形 (请 ) 
p 五 角 星 ( 立 ) 
h 六 角 星 ( 立 





:于 。 受 限制 。 如 -<、'-<K、Kk-' 的 效果 是 一 样 的 。 用 户 可 以 通过 这 些 控制 符 来 区 分 不 


省 在 LineSpec 中 设 定 曲 线 的 线 型 、 标 记 符号 以 及 颜色 三 项 属性 时 ， 控 制 符 的 顺序 不 
1 
同 的 曲线 。 


下 面 举例 说 明 这 几 个 函数 的 使 用 ， 个 别 函 数 的 特殊 用 法 同时 给 出 。 
16.1.1.1 “plot 函数 绘图 
例 16-1: 调用 plot 函数 绘图 的 3 种 方式 。 


x=linspace(-2,2,21) sg 数据 离散 采样 

subplot (131) ， 

plot (x,sin(2*x)，'k-<') 7 gs [方式 1] 绘 图 并 设 定 线 型 、 颜 色 以 及 标记 符号 等 信息 
axis square' g 设 定 坐标 轴 为 方形 

Subplot (132) 世 

plot (x,cos(2*Xx)，'k-*',2x*x,X.w*sin(x),'rs--'); 4% [方式 2] 绘 图 并 设 定 线 型 、 颜 色 以 及 标记 
符号 等 信息 

axis sdquarei sg 设 定 坐标 轴 为 方形 

Subplot (133) 

plot(1:10,rand(3,10)); # [方式 3] 同 时 绘制 多 组 数据 

axis Square # 设 定 坐标 轴 为 方形 


这 里 先 得 到 x 的 离散 采样 数值 ， 然 后 计算 函数 值 并 利用 函数 plot 进行 绘图 。 这 里 给 出 不 同 线 
型 的 结果 。 
在 MATLAB 中 运行 上 述 程序 ， 所 得 图 形 如 图 16.1 所 示 ， 不 同 线 型 可 以 给 出 不 同 的 视觉 效果 ， 
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用 户 可 以 根据 自己 的 喜好 在 实际 应 用 中 选择 。 














图 16.1 利用 plot 函数 绘制 曲线 的 例子 


型 、 颜 色 等 信息 ; [方式 2] 可 以 用 来 同时 绘制 多 组 曲线 ( 而 不 必 利 用 hold on 语句 )， 
其 中 X 轴 数 据 范围 可 以 不 一 样 ， 需 要 注意 的 是 用 户 只 能 对 每 条 曲线 的 线 型 、 颜 色 、 
标记 符号 进行 不 同 的 设 定 ， 而 不 能 对 其 他 属性 进行 相 异 的 设置 ， 比 如 这 样 一 条 语 
名“plot(Xx,cOS(2*X), 炎 一 k2xX,X.xsin(X),rs-- inewidth',27” 将 每 条 曲线 的 线 宽 都 设 
定 为 2, 而 语 旬 “plot(x,cOSs(2*X),k 一 霹 "]inewidth',3,2xX,X.*sin(X),rs- 一 ”是 非法 的 ; 
[方式 3] 可 以 绘制 X 轴 数据 相同 而 Y 轴 数据 不 同 的 数据 ,如 果 用 户 指定 曲线 的 属性 ， 
MATLAB 将 自动 地 将 不 同 颜色 着 色 到 相应 数据 上 , 着 色 顺 序 按 表 16.2 中 第 一 列 自 上 
而 下 进行 ， 若 超出 8 组 数据 ，MATLA8B 将 自行 添加 不 同 的 颜色 。 在 [方式 3] 中 用 户 
如 果 设 定 颜色 ,所 有 曲线 将 都 变 为 相同 颜色 ,如 执行 语 名 “plot(1:10rand(3,10)kKD7” 
后 的 效果 是 所 有 曲线 都 变 为 黑色 。 设 定 其 他 属性 时 也 是 针对 所 有 曲线 有 效 。 


[方式 1] 可 以 用 来 根据 一 组 X 轴 数据 和 Y 轴 数 据 来 绘制 一 条 曲线 ， 同 时 可 以 指定 线 
说 明 


16.1.1.2 ”函数 绘制 曲线 图 
例 16-2: 利用 line 函数 绘制 曲线 。 


t=linspace(0,pi*2,401); 8% 生成 等 间距 采样 点 

Subplot (131)7 

line(tt,t.*sin(tx*2)，'LineStyle'，'-' color''k'); gs 绘制 二 维 曲线 

axis square; gs 设 定 坐 标 轴 为 方形 

xlim( [min(t),max(t)])， # 设置 X 轴 显 示 的 数据 范围 

Subplot (132) 

line(t.*sin(4xt) ,twxcos(4xt) ,上 ,'LineStyle'，'-'， Color''k'); ss 绘制 三 维 曲线 
axis Square 8 g 设 定 坐标 轴 为 方形 

subplot (133) 7 

line(t.*sin(4xt) ,tx*cos(4xt) ,t, ,LineStyle'，'-' Color''k') 1 s% 绘制 三 维 曲线 
view{3) sg 三 维 视图 

axis Square $ 设 定 坐标 轴 为 方形 


函数 line 和 前 面 介绍 的 plot 函数 用 法 相似 ， 读 者 可 以 进行 对 比 来 了 解 。 上 述 程序 运行 后 得 到 
如 图 16.2 所 示 的 图 形 。 
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图 16.2 利用 line 函数 绘制 的 曲线 


1。 是 线 型 、 颜 色 和 标记 符号 需要 分 别 使 用 “LineStyle"、"Color” 和 “Marker” 来 设 
定 ， 而 在 plot 函数 使 用 中 可 以 利用 一 个 字符 串 来 方便 地 设 定 。 与 函数 plot 不 同 的 
是 函数 ]ine 还 可 以 用 来 画 三 维 曲线 ， 但 函数 ]ine 直接 画 出 来 的 结果 是 三 维 曲线 在 
XY 平面 上 的 投影 ， 如 图 16.2(b) 所 示 ， 需 要 利用 view(3) 语 名 来 转化 为 三 维 视图 。 


省 对 于 二 维 曲线 的 绘制 ， 如 图 16.2(a) 所 示 ， 函 数 1ine 和 函数 plot 用 法 相似 ,不 同 的 
1 


函数 loglog，semilogx 和 semilogy 的 用 法 和 plot 函数 相同 ， 这 里 不 再 数 述 。 
16.1.1.3 绘制 双 Y 轴 曲 线 


函数 plotyy 用 来 绘制 双 Y 轴 曲 线 ， 一 般 用 于 两 组 数据 范围 相差 较 大 的 情况 。 
例 16-3: 绘制 双 Y 轴 曲 线 图 。 


x=linspace(0,2,201); s% 生成 等 间距 的 采样 数据 
subplot(131) 

[ax1l,hl,h2]=plotyy(x,sin(x*2),x,sinh(exp(x)))， $% [方式 1] 
xlabel('(a)'，'Fontsize',14,'fontname'， Times New Roman');  $ X 辅 标注 
Subplot (132) 

[ax2,hl,h2]=plotyy(x,abs(sin(x)),x,sinh(x),esemilogy); g% [方式 2] 
xlabel(' (b)'，,'Fontsize',14，'fontname'，'Times New Roman');  $% X 轴 标注 
box on 


Subplot (133) ; 

[aAx3,hli,h2]=p1LlotyYy{(10* [x*10+1],abs(sinfx)),10*[xx*10+1],sinh(x)， 
'1oglog'vesemilogx); $ [方式 3] 

xlim(aAax3(1)，[min(10*[x*10+1]) ,max(10*[x*10+1])]) 7; sg 设置 X 轴 范 围 
xlim(Ax3(2)，[min(10* [xx*10+1]) ,max(10*[xx*10+1])]); s 设置 X 轴 范 围 
axis([Rxl,Rx2,Rx3]，'square'); % 设置 坐标 轴 为 方形 
xlabel('(c)' Fontsize' ,14,'fontname'，'Times New Roman');  # X 轴 标注 
set ( [Ax1,RAx2,Rx3],，'Fontsize' ,12)) # 设置 坐标 轴 字 体 


函数 plotyy 可 以 输入 两 组 数据 并 给 出 两 个 Y 轴 不 同 刻度 的 图 形 样式 ， 同 时 给 出 坐标 轴 标 注 的 
示例 。 上 壕 程序 执行 后 得 到 如 图 16.3 所 示 的 图 形 。 
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() 四 
图 16.3 函数 plotyy 绘制 的 曲线 
函数 plotyy 的 调用 格式 比较 简单 ， 只 有 上 画 例 子 中 的 3 种 形式 。[ 方 式 习 绘 制 线性 比例 的 双 Y 
轴 曲 线 ， [方式 3 引用 于 指定 两 条 曲线 使 用 对 数 比例 绘图 方式 ( 可 供 选 择 的 绘图 函数 还 有 plot， 
semilogx，semilogy，loglog 和 stem 等 ， 其 中 函数 plot 是 默认 值 ) [方式 3] 可 以 使 用 不 同 的 绘图 
函数 完成 两 条 曲线 的 绘制 。 这 里 需要 指出 的 是 参数 双 Y 轴 曲 线 实 际 上 是 由 两 个 坐标 轴 组 成 的 ， 不 
同 坐 标 轴 的 Y 轴 使 用 不 同 颜色 加 以 区 别 ， 左 侧 Y 轴 用 蓝 色 标 记 ， 右 侧 Y 轴 用 绿色 标记 ， 某 一 颜色 
对 应 于 相同 颜色 的 Y 轴 刻 度 。 设 置 坐标 轴 属 性 时 需要 对 两 个 坐标 轴 同 时 设 定 。 如 语句 ， 





axis([Axl,RAx2,Rx3]，square') 
xlim(ax3(1)， [min(10w*[xw10+1]) ,max(10* [xx*10+1])])7 
xlim(ax3(2)，[min(10*[x*10+1]),max(10*[x*l0+1])])7 

参数 说 明 : 其 中 Ax1，Ax2，Ax3 是 1x2 的 向 量 ， 是 对 应 于 两 个 坐标 轴 的 句柄 。 函 数 xlim 需要 
分 别 对 两 个 坐标 轴 的 范围 进行 设 定 。 若 一 起 设 定 ， 即 ; 


xlim(Rx3, [min(10*[x*10+1]) ,max(10* [xs*10+1])])， 
将 会 出 现 错误 提示 : 


?3?? Error using ==> xlim at 30 
Wrong number of arguments 
Error in ==> plotyy_test at 19 
xlim(ax3, [min(10* [x*10+1]) ,max(10*[x*10+1])]); % 设置 x 轴 范围 
在 MATLAB 中 没有 提供 函数 绘制 双 X 轴 曲 线 ， 不 过 用 户 可 以 在 下 述 网 页 下 载 到 实现 这 个 功能 
的 程序 : http:/www mathworks.cornmatlabcentralfileexchange/loadFile.do7objectld=31 7o 
该 函数 的 调用 格式 为 : 
[ax,hl,h2] = plotxx(xl,yl,x2,Y2,xlabels,ylabels); 


参数 说 明 : ax 是 坐标 轴 的 句柄 。h1 和 h2 是 两 条 曲线 的 句柄 。x1，y1，x2， y2 是 绘图 数据 。 
xlabels，ylabels 是 X 轴 和 Y 轴 标 注 内 容 对 应 的 细胞 结构 。 
例 16-4: 调用 plotxx 函数 。 
D = linspace(-100,0,50) ss 立轴 数据 
linspace(34,32,50);  % 上 侧 X 轴 数据 


可 
T = 10*exp(D/40) # 下 侧 X 轴 数 据 
xlabelsft1} = ,Temperature (C)';) # 下 例 X 轴 标注 内 容 
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xlabels{2} = 'Salinity'; s 上 侧 X 轴 标 注 内容 

ylabels{1} = 'Depthl(m)'， $ 左 侧 Y 轴 标 注 内 容 

ylabels{2} = 'Depth2{(m) '; g 右 侧 Y 轴 标 注 内 容 

[ax,hT,hS] = plotxx(T,D,S,D,xlabels,ylabels); s% 绘制 双 X 轴 曲线 


上 述 程序 执行 后 所 得 图 形 如 图 16.4 所 示 。 
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图 16.4 函数 plotxx 绘制 的 图 形 


其 中 下 侧 X 轴 曲 线 使 用 黑色 标记 ， 上 侧 X 轴 使 用 红色 标记 。 


16.1.1.4 利用 自 编 函数 绘图 


这 里 补充 一 个 按 曲线 长 度 进 行 等 间距 取 点 的 函数 , 即 samplep。 这 个 函数 是 作者 编写 的 一 个 实 
用 小 程序 ， 该 函数 文件 保存 于 光盘 的 \Ch16 文件 夹 中 ， 其 调用 格式 为 : 
[xn,yn] =samplep(x,Y,N,ha); 

参数 说 明 : xn 和 yn 是 返回 的 等 间距 数据 。x 和 y 是 数据 曲线 对 应 的 数据 。N 是 返回 的 采样 点 
数据 。ha 是 数据 曲线 所 在 的 坐标 轴 和 句柄 。 

利用 samplep 函数 绘制 y= exp(- 安 )/1000 ， 其 中 xe [0,6] ， 相 应 的 程序 如 下 ; 
x=1linspace(0,6,200); S% 对 自 变 量 离散 取样 点 坐标 


Y=exp(-x.^2)/1000; ， s% 计算 根 应 的 函数 值 
Subplot (121) 


plot (x,y，'k'); sg 绘制 曲线 

axis Square # 设置 当前 坐标 轴 为 方形 

[xn,yn]=samplep(x,y,20,gca):; 

hold on; 

plLot (xnv,yn,'ro'5); #% 用 圆圈 标记 按 曲线 长 度 等 间距 取样 点 
xlabel('(a)'，'Fontsize',14,，'Fontname'，'Times new roman'):; 当 X 轴 标 注 
Subplot (122) 7 

plot (x,y，'k'); s% 绘制 曲线 

axis square g 设置 当前 坐标 轴 为 方形 

hold on; 
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plot (x(1:10:ena),y(1:10:end) ,ro')7 # 用 圆 国标 记 按 X 轴 等 间距 取样 点 
轴 标 注 


xlabel('(b)' ,Fontsize',14，'Fontname'，'Times new roman') 7 甸 


这 里 首先 利用 函数 plot 画 出 曲线 , 然后 利用 函数 samplep 等 间距 取 点 , 对 所 得 点 利用 函数 plot 
把 相应 的 点 以 圆圈 标记 出 来 。 上 述 程 序 执行 后 将 得 到 如 图 16.5 所 示 的 图 形 。 


x 107 
C 





图 16.5 按 曲线 长 度 等 间距 采样 的 图 形 


16.5(b) 中 在 水 平方 向 上 圆圈 密集 ， 但 是 在 竖 直 方向 上 稀 芍 ， 而 图 16.5(a) 在 任何 方 
向 上 都 是 按 曲线 长 度 间 隅 相等 取 点 的 。 


为 了 对 比 效果 ， 同 时 给 出 了 利用 X 轴 等 间距 采样 的 结果 (如 图 16.5(a) 所 示 )。 图 
说 明 
16.1.2， 特 殊 图 形 的 函数 


除了 上 面 介 绍 的 关于 曲线 绘制 的 函数 外 ,MATLAB 还 提供 了 绘制 一 些 特殊 图 形 的 函数 ， 具体 函 
数 及 功能 如 表 16.3 所 示 。 


表 16.3 ”绘制 特殊 图 形 的 函数 





函数 名 功能 函数 名 功能 
bar barh 垂直 和 水 平 直方 图 pie 人 饼 图 
compass 罗盘 图 polar 极 坐 标 图 
contour 等 高 线 图 quiver 向 量 场 图 
errorbar 在 曲线 上 添加 误差 范围 fose 极 坐 标 累计 图 
feather 羽毛 图 stairs 阶梯 图 
hist 频数 统计 直方 stem 针 状 图 
pareto 排列 图 ( 帕 累 托 图 ) 
下 面 来 介绍 这 些 函 数 的 使 用 方法 。 
16.12.1+ 直方 图 


函数 bar 和 barh 可 以 用 来 画 垂直 和 水 平 直 方 图 ， 函 数 bar 的 调用 格式 为 : 


bar(y)y; 
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bar (X,Y) ; 
bar(x,y,wiatb) 
bar(.. ,Linespec):; 
bar(...，'Eormat'); 

参数 说 明 : y 是 待 统计 的 数据 ， 它 是 向 量 或 者 数组 。x 是 x 轴 的 坐标 ， 其 默认 值 是 1:size(y1)。 
x 的 元 素数 目 要求 和 y 的 行 数 相等 。width 用 于 指定 bar 的 宽度 ， 当 width>1 时 相 邻 的 bar 之 间 会 
存在 重合 的 情况 ，width 的 默认 值 是 0.8。linspec 是 一 个 单个 字符 ， 用 于 指定 所 有 条 形 图 的 颜色 ， 
可 选 值 为 r，g9，b，y，m，c，k，w 之 一 ， 其 他 颜色 需要 通过 句柄 来 设 定 ， 其 默认 时 ,每 组 条 状 图 
内 用 不 同 颜色 区 分 各 个 条 。 参 数 format 用 于 指定 条 状 图 的 分 布 方式 ， 可 选择 为 grouped ( 排列 型 
条 状 图 ) 和 stacked ( 堆 型 条 状 图 )， 其 中 grouped 为 默认 值 。 

下 面 调用 bar 函数 绘制 条 状 图 ， 计 算 和 绘图 程序 如 下 : 


X1=2:6; 
x2=[1,2,6,8,12])， 


s(1)=sSubplot (141); 


bar (xl,rand(5,2));  s% 绘制 条 状 图 ， 宽 度 、 颜 色 及 排列 方式 都 默认 


xlabel('(a)'，'Fontsize',14,'Fontname'，'Times New Roman'); $% X 轴 标注 
s(2)=Subplot (142) ; 

bar(x2,rand(5,3),0.4,'k'); sg 绘制 条 状 图 ， 指 定 宽度 和 颜色 
Xlabel('(b)'，'Fontsize',14,，'Foncname'，'Times New Roman'); sg% X 轴 标注 
s({(3)=Subplot(143) ; 

bar.(x1,zand{5,3),1.6); #% 绘制 条 状 图 ， 指 定 宽度 大 于 1 
xlabel('(c)'，'Fontsize',14,，'Fontname'，'Times New Roman'); sg X 轴 标注 
sf(4)=Subplot(144) ; 

bar(x2,rand(5,4),0.4,'stacked');  g% 绘制 条 状 图 ， 指 定 堆 型 排列 
axis(s,'square'); g% 设置 所 有 坐标 轴 为 方形 
xlabel('(G)'，'Fontsize',14,'Fontname'，'Times New Roman'); ss$ X 轴 标注 


这 里 给 出 横 坐 标 不 同 取 点 方式 ,以 及 不 同 排 布 方式 的 条 状 图 样式 。 条 的 宽度 可 以 根据 需要 进行 


设 定 。 程 序 执行 后 所 得 图 形 如 图 16.6 所 示 。 


25 





7 














2345 6 


(ob) ({o) 
图 16.6 利用 函数 bar 绘制 的 条 状 图 





登 的 情况 。 


在 图 16.6 中 ， 图 (b) 的 所 有 条 形 图 都 是 黑色 的 ， 其 他 的 为 彩色 条 。 图 (C) 中 存在 着 交 


函数 bar 是 绘制 坚 直方 向 的 条 状 图 ， 而 函数 barh 是 绘制 水 平方 向 的 条 状 图 , 函数 barh 和 函数 
bar 的 用 法 相同 ， 把 前 面 调 用 函数 bar 的 例子 中 “bar” 改 为 “barh"， 可 以 得 到 如 图 16.7 所 示 的 横 


向 条 状 图 。 
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全 tb) (c) 
图 16.7 ”函数 barh 绘制 的 横向 条 状 图 
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16.1.2.2 ”罗盘 图 
函数 compass 用 来 绘制 罗盘 图 ， 即 在 极 坐标 系 下 用 带 箭头 的 线段 来 表示 一 个 复数 ， 其 调用 格 
Compass (u,V) : 


compass (Z) ; 


参数 说 明 : u 和 v 分 别 为 复数 数组 的 实 部 和 虚 部 。z 是 一 个 复数 数组 。 
例 16-5: 调用 函数 compass。 


u=randn (2,3) g% 生成 实 部 对 应 的 数据 
v=randn(2,3) 7 g% 生成 虚 部 对 应 的 数据 
z=exp{(ix*randn(1,6))， g 生成 一 个 复数 数组 
subploc (121); 

compass (uvv); sg 利用 实 部 和 虚 部 绘制 罗盘 图 


xlabel(t'(a)' Fontsize',14,'Fontname'，'Times New Roman'); $% X 轴 标注 
Subplot (122) 
Compass(Z) ; g% 根据 复数 绘制 罗 毅 图 
xlabel(' (bj，,'Fontsize',14, ,Fontname'，'Times New Roman'); $ X 轴 标注 
此 处 以 随机 数 作为 罗盘 图 的 输入 数据 ， 可 以 以 实 部 和 虚 部 作为 函数 compass 的 输入 ， 也 可 以 
用 复数 组 成 的 向 量 作为 输入 。 所 得 图 形 如 图 16.8 所 示 ， 每 个 箭头 的 长 度 和 方向 分 别 对 应 着 输入 复 


数 的 模 值 和 相 角 。 全 人 b 人) 





图 16.8 罗盘 图 


16.1.2.3， 等 高 线 图 
函数 contour 用 来 绘制 等 高 线 图 ， 其 调用 格式 为 : 
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Contour (Z) ; 
Contour (xX,Y,Z) 
COnEOUT (Z ,也 ) 
Contour (Z,V) 


参数 说 明 : z 是 等 高 线 的 高 度数 据 。x 和 y 分 别 用 于 指定 X 轴 和 Y 轴 的 坐标 。n 表示 等 高 线 的 
数目 。v 用 来 指定 高 度 值 处 的 等 高 线 。 
例 16-6: 调用 函数 contour 绘制 等 高 线 。 


[x,y,z]=peaks(80) ; gs 生成 坐标 刻度 数据 和 高 度数 据 

sS(1)=Subplot(141) 

Contour (Z) ; s 根据 高 度数 据 绘制 等 高 线 图 
xlabel('(a)'，'Fontsize',14,'Fontname'，'Times New Roman'); % X 轴 标注 
s(2)=Subploct (142) 

contour (x,Yy,Z) ， % 根据 刻度 数据 和 高 度数 据 绘制 等 高 线 图 
xlabel('(b)'，'Fontsize',14,'Fontname'，'Times New Roman'); gg X 轴 标注 
sS(3)=Subplot (143); 

contour (xyvzv4) 1; # 指定 等 高 线 的 数目 


Xlabel('(c)'，,'PFontsize',14,'Fontname'，'Times New Roman'); ss X 轴 标注 
s(4)=subplot (144) ; 

contour (x,y,z,1Linspace(min(z(:)),max(z(:)),12)); s$ 等 间隔 指定 高 度 位 置 
xlabel(' (dj' Fontsize',14,'Fontname'，'Times New Roman'); $ X 轴 标注 
axis(s,'square'); g 设置 所 有 坐标 轴 为 方形 


这 里 利用 函数 peaks 得 到 相应 的 数据 x，y 和 ze。 然后 给 出 函数 contour 的 不 同调 用 格式 下 的 
等 高 线 图 。 输 出 图 形 如 图 16.9 所 示 , 在 图 (a) 中 的 坐标 刻度 是 对 应 于 和 矩阵 Z 的 行 数 和 列 数 , 而 图 (b)、 
图 (c) 和 图 (d) 的 刻度 是 根据 矩阵 于 和 了 了 生成 的 。 
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图 16.9 等 高 线 图 


16.1.2.4 ”在 曲线 上 添加 误差 范围 
函数 errorbar 可 以 实现 在 曲线 上 添加 误差 范围 ， 其 调用 格式 为 : 


erIorbar (xX,Yve) 
errorbar (X,Y,DL,U) 


参数 说 明 : x 和 y 分 别 是 X 轴 和 Y 轴 的 数据 。e 表示 误差 量 ，y 的 范围 是 [y(k)-e(k),y(k)+e(k)]。 
L 和 U 分 别 是 上 侧 误差 和 下 侧 误差 ， 此 时 y 的 范围 是 [y(g)-L(k),y(k)+U(k)]。 
例 16-7: 调用 errorbar 函数 绘图 。 


= 1:10; 
YyY = Sin(x):; 
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e = std(y)xones(size(x))/6; % 误差 范围 


L=rana(1,10)75; # 下 侧 误差 范围 
U=rana(1,10)75; #% 上 便 误 差 范围 
s(1)=Subplot (121) 7 

errorbar{(x,y,e)1 # 绘制 带 误 差 条 的 曲线 


xlabel('(a)' Fontsize',14,，'Fontname'，'Times New Roman'); $% X 轴 标注 
s(2)=subplot (122);? 


errorbar{(xvy,L,U) 7 gs 绘制 带 误差 条 的 曲线 
xlabel(' (b)','Fontsize',14,'Fontname'，'Times New Roman'); gg X 轴 标注 
axis(s8，'SGuUare ' )? g% 设置 所 有 坐标 轴 为 方形 


这 里 曲线 是 通过 函数 sin(X) 给 出 相应 的 数据 而 利用 随机 函数 生成 的 误差 。 调 用 errorbar 给 出 带 
误差 条 的 曲线 图 。 所 得 图 形 如 图 16.10 所 示 ， 其 中 图 (a) 是 误差 量 上 下 相等 ， 而 图 (b) 中 曲线 上 下 两 
侧 误差 不 相等 。 
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图 16.10” 带 误差 条 的 曲线 
16.1.2.5 “羽毛 图 
函数 feather 可 以 绘制 羽毛 图 ， 其 调用 格式 为 : 


feather (uvV) 
feather (z) 


参数 说 明 : u 和 v 分 别 是 复数 的 实 部 和 虑 部 。z 是 一 个 复数 数组 。 
例 16-8: 调用 feather 绘制 羽毛 图 。 


theta = (-90:10:90)*pi/180; gs 生成 角度 数据 


r = 2x*ones(size(theta)); 多 生成 半径 数据 

fu,v] = pol2cart (theta,r); g 把 极 坐标 转化 为 直角 坐标 
feather(u,v)， g 绘制 羽毛 图 

axie equal % 设置 坐标 轴 刻 度 相 等 


所 得 图 形 如 图 16.11 所 示 ， 因 为 图 形 看 上 去 像 羽 毛 ， 所 以 称 之 为 羽毛 图 。 
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图 16.11 羽毛 图 
16.1.2.6 频数 统计 直方 图 
函数 hist 用 来 实现 频数 统计 直方 图 的 绘制 ， 其 调用 格式 为 ， 


hist(y) 
mn = hist(y, 卫 ) 
mn = hiest(y,Xx); 
[n,x] = hist(...): 
参数 说 明 : y 是 待 统计 的 数据 。m 是 整数 ， 用 于 指定 统计 区 域 的 个 数 。x 是 向 量 ， 指 定 每 个 统 
计 区 域 的 X 轴 刻 度 。n 表示 每 个 区 域内 数值 的 个 数 。 当 无 返回 值 时 函数 hist 将 绘制 统计 直方 图 。 
例 16-9: 调用 函数 绘制 统计 直方 图 。 


Y=rand(100,1) 7; s 生成 待 统计 的 数据 


[mn,x]=histty) # 返回 统计 频数 n 和 区 域 中 心 位 置 x 
s(1)=sSubplot(131) ， 
hist(y); g% 绘制 统计 直方 图 


xlabelt'(a)'， "Fontsize',14，'Fontname'y 'Times New Roman'); $% X 轴 标注 
s(2)=Subplot(132) 1; 

hist{y,8):; # 绘制 统计 直方 图 ， 并 指定 区 域 数 目 

xlabel(' (b)'，'Eontsize' ,1T4，Pontname' Times New Roman:); gg X 轴 标注 
S(3)=Subplot (133) 

hist(y,0:.1:1) 1; #* 绘制 统计 直方 图 ， 并 指定 每 个 区 域 的 中 心 位 置 
Xlabel('(c)' Fontsize' ,14，'Fontname'，'Times New Roman')); 当 X 轴 标注 


axis(s,'sauare'): g% 设置 所 有 坐标 轴 为 方形 


此 处 以 随机 数据 作为 输入 来 绘制 其 统计 直方 图 ， 同 时 给 出 了 3 种 不 同样 式 的 统计 直方 图 ， 输 
出 图 形 如 图 16.12 所 示 ， 从 图 中 可 以 看 出 不 同 数值 处 数据 个 数 的 统计 结果 。 
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图 16.12 ”频数 统计 直方 图 
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16.1.2.7 ”排列 图 
函数 pareto 可 用 来 绘制 排列 图 ， 其 调用 格式 为 : 
Pareto(ty,names) 
Paretofty,X):; 
参数 说 明 : y 是 条 形 图 的 高 度 值 。x 是 对 应 于 y 值 的 X 轴 坐 标 。names 是 对 应 于 y 元 素 的 X 轴 
标注 ， 其 值 为 字符 串 。 
例 16-10: 调用 pareto 函数 。 


yl1=rand(1,6); g% 生成 第 一 组 Y 轴 数 据 
Y2=rana(1,6); #% 生成 第 二 组 Y 轴 数 据 

Xx=2:7; % 生成 X 轴 数 据点 坐标 
names={'aRx','BY'，'C0'，'D' EL''F2'}) % 生成 对 应 的 条 状 图 的 坐标 
subplot(121); [H1,ax1l]=pareto(y1,x)y; # 绘制 排列 图 


xlabel(t" (a)'，'Fontsize',14, Fontname'，'Times New Roman'); ss X 轴 标注 
Subplot (122): 


[H2,ax2]=pareto(y2,names); sg 绘制 帕 暴 托 图 
xlabel('(b)，，, ,Fontsize',14,'Fontname'，'Times New Roman'); % X 轴 标注 
set([H1(2),H2(2)],，'Marker' yw ) 1 *# 设置 数据 点 标记 符号 为 星 形 


这 里 以 随机 数据 作为 输入 ， 对 于 X 轴 刻 度 同 时 给 出 两 种 不 同方 式 的 标注 方法 ， 所 得 图 形 如 图 
16.13 所 示 。 
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图 16.13 ” 帕 累 托 图 


四 高 度数 据 y 要 求 是 非 负 且 不 能 是 NaN。 高 度数 据 按照 由 大 到 小 顺序 排列 。Y 轴 的 坐 


呈 少 。 标 范 围 是 [0.sum(y)]， 右 侧 Y 轴 刻 度 对 应 于 百分比 。 曲 线 表 示 高 度数 据 的 累积 分 布 。 
帕 累 托 图 在 统计 问题 中 具有 重要 应 用 。 


16.1.2.8， 饼 图 
函数 pie 用 于 绘制 饼 图 ， 其 调用 格式 为 : 


pie (X) 
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pie(x,explode) 
piel(...,1labels) 
参数 说 明 : x 是 欲 分 析 数 据 对 应 的 数组 。Explode 与 x 的 维 数 相同 ， 其 中 的 非 零 元 素 对 应 的 切 
片 就 是 分 离 的 切片 。labels 中 的 参数 是 增加 的 自 定义 标注 内 容 ， 其 与 x 的 维 数 相同 。 
例 16-11: 调用 函数 pie 绘制 饼 图 。 
xl=rand(1,5); $# 生成 第 一 组 x 数据 
x2=rand(2,3);  $ 生成 第 二 组 x 数据 


x3=rand(1,4); 当 生成 第 三 组 x 数据 
labels={'axl','c0','E2','F0'); ss 生成 对 应 的 切片 的 名 称 


subplot (131) ;pie(xl); % 绘制 饼 图 
subplot (132) ;pie(x2,[0,1,0;0,0,0]);  s 绘制 饼 图 
subplot (133) ;pie(x3,1labels): sg 绘制 饼 图 


上 述 程序 计算 所 得 图 形 如 图 16.14 所 示 。 
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图 16.14 ”函数 pie 绘制 的 饼 图 


本 
在 图 16.14 中 ， 图 (c) 自 定义 的 标注 代替 了 各 切片 的 百分比 。 


16.1.2.9 极 坐标 图 
函数 polar 用 于 绘制 极 坐标 图 ， 其 调用 格式 为 : 


Polar (theta，Irho) 
polar (theta,rho,S) 


参数 说 明 : theta 是 角度 数据 。rho 是 极 径 方向 的 数据 。s 是 用 于 指定 线 型 、 标 记 符号 和 颜色 的 
字符 串 ， 可 选 值 和 函数 plot 相同 。 
例 16-12: 利用 函数 polar 绘制 极 坐标 。 


theta=linspace(0,pi*2,101); ss 生成 角度 数据 


rho=sin(theta+cos (theta) ) ; % 生成 极 径 数据 

subplot (121) ;polar (theta,rho); $ 绘制 极 坐标 图 
xlabel('(a)'，'EFEontsize',14，'Fontname'，'Times New Roman') 

subplot(122) ;polar(theta,sin(theta*2+Sin(4x*theta) )，'k-x')， g% 绘制 极 坐标 图 
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xlabel(' (b)'，'Fontsize' ,1I4，'Fontname'，'Times New Roman') 7 


所 得 图 形 如 图 16.15 所 示 ， 两 幅 极 坐 标 图 中 的 曲线 是 封闭 的 ， 同 时 图 (b) 在 曲线 上 增加 了 “ 乘 


号 ”标记 。 





图 16.15 ” 极 坐 标 图 


16.1.2. 吉 ”向量 场 图 
函数 quiver 可 以 绘制 向 量 场 图 ， 其 调用 格式 为 : 


quiver (X,yvuyvV); 
Guiver(uyV)， 
Guiver(...，Ss) 
quiver(...,1inespec) 
quiver(...， filLled') 

参数 说 明 : x 和 y 是 指定 箭头 位 置 的 坐标 。u 和 v 分 别 是 向 量 场 水 平和 竖 直 分 量 的 大 小 。s 表 
示 缩 放 的 比例 ， 当 s=0 时 向 量 为 默认 长 度 1， 此 时 MATLAB 自动 调整 缩放 比例 以 防止 箭头 发 生 重 
到 的 情况 。linespec 用 于 指定 箭头 的 线 型 、 颜 色 和 标记 符号 等 。flled 表示 使 用 linespec 中 的 标记 
符号 填充 箭头 的 位 置 。 

下 面 调用 函数 quiver 绘制 向 量 场 图 。 


[x,y] = meshgrid(-2:.2:2,-1:.15:1); g 生成 坐标 网 格 
z = xX .w exp(-x,^2 -Y.“2); s 计算 二 元 函数 的 离散 函数 值 
[px,py] = gradient(z,.2,， .15); 计算 梯度 ， 


subplot (221) ;quiver(Xx,Yy,px,py);iaxis image;y  % 绘制 向 量 场 图 
xlabel('(a)'，'Fontsize',14,'Fontname''Times New Roman'); g% X 轴 标注 
subplot (222) ;Guiver (px,pY,I)7axis image' 当 绘制 向 量 场 图 
xlabel('(b) ,Fontsize' ,14，'Fontname' Times New Roman'); #% X 轴 标注 
subplot{(223) ;auiver (tpx,pYy,2，'k-.');axis imagei ,g% 绘 制 向 量 场 图 
xlabeltitc)' Fontsize' ,14，，Fontname' Times New Roman!); sg% X 轴 标注 
subplot (224)7youiver(px,pY,1,，'x'v'tilleG')7axis image; ，% 绘制 向 量 场 图 
xlabel('(d)' ,Fontsize',14rFontname'，'Times New Romam'); % X 轴 标注 
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上 面 代码 首先 给 出 一 个 二 元 函数 作为 输入 ， 随 后 计算 其 梯度 值 作为 采样 点 上 的 矢量 方向 表示 ， 
同时 给 出 4 种 不 同 输入 参数 情况 下 的 矢量 图 。 所 得 图 形 如 图 16.16 所 示 ， 可 见 不 同 参数 情况 下 坐标 
轴 显 示 的 大 小 有 所 不 同 ， 同 时 表示 矢量 箭头 的 大 小 也 因 参 数 而 异 。 
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图 16.16 ”向量 场 图 
16.1.2.11 坐标 累积 图 
函数 rose 用 于 绘制 极 坐 标 累积 图 ， 其 调用 格式 为 : 


rose (theta) ; 
rose (theta,n) ; 
Frose (theta,X) ; 


参数 说 明 : theta 为 角度 数据 。n 用 于 定义 小 扇形 的 个 数 。x 用 于 指定 小 扇形 的 位 置 ， 其 维 数 由 
小 扇形 的 个 数 决定 。 

下 面 调用 函数 rose 绘制 极 坐标 系 下 的 累积 图 : 
theta=randn (1,60) ， 
subplot (131) ;rose(theta) ; % 绘制 极 坐标 标 积 图 
xlabel('(a)'Fontsize',14,'Fortname'，'Times New Roman'); $ X 轴 标注 
subplot (132) ;rose(theta,8);  % 绘制 极 坐标 累积 图 
xlabel('(b)'，'Fontsize',14，'Fontname'，'Times New Roman!); % X 轴 标注 
subplot (133) ;rose(theta, [1,2,4]); % 绘制 极 坐标 累积 图 
xlabel('(c)' ,Fontsize',14,'Fontname'，'Times New Roman'); ss X 轴 标注 

上 述 程序 输出 结果 如 图 16.17 所 示 , 这 里 以 正 态 分 布 的 随机 数 作为 输入 , 给 出 了 3 种 不 同 输入 
参数 时 的 宗 积 图 绘制 例子 。 
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图 16.17” 极 坐标 累积 图 


16.1.2.12 ”阶梯 图 
函数 stairs 可 用 于 绘制 阶梯 图 ( 以 一 定 间隔 沿 上 升 或 者 下 降 方式 显示 数据 )， 其 调用 格式 为 


Staixs(y)， 
Stairzs(x,y): 
Stairs(...vstyle) 


参数 说 明 : x 和 y 为 横 纵 坐标 的 数据 。style 来 指定 绘制 阶梯 图 时 的 线 型 、 颜 色 和 标记 符号 等 。 
下 面 调 用 函数 stairs 来 绘制 阶梯 图 : 


x=rand(1,6); % 生成 横 坐 标 数 据 

Yy=rand(1,6); s 生成 纵 坐 标 数据 

s(1)=subplot(131);stairs(y);  % 绘制 阶梯 图 
xlabel('(a)','Fontsize',14,'Fontname'，'Times New Roman'); gs X 轴 标注 
s(2)=subplot(132) ;stairs(x,Y); sg 绘制 阶梯 图 

hold on;p1lot (X,yY，'FrO'); - 
xlabel(' (b)'，'EFontsize',14,'Fontname'，'Times New Roman'); % X 轴 标注 
s(3)=subplot{133) ;stairs(1:6,Yy,'k-*'); % 绘制 阶梯 图 

xlabellt'(c)' ,Fontsize',14,'Fontname'，'Times New Roman'); $% X 轴 标注 
axis(s,'square')， % 设置 所 有 坐标 轴 为 方形 


在 这 个 例子 中 ， 使 用 随机 数 作为 Y 轴 和 给 入 ， 而 X 轴 的 数据 使 用 默认 、 随 机 数 以 及 指定 的 向 量 3 种 
方式 下 绘制 的 阶梯 图 结果 如 图 16.18 所 示 ， 可 以 根据 数据 位 置 理解 阶梯 图 绘制 时 输入 数据 的 顺序 。 
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图 16.18 ”阶梯 图 
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16.1.2.13 ” 针 状 图 
函数 stem 可 以 绘制 针 状 图 ， 其 调用 格式 为 ， 
Stem(y) ; 
Stem(X,y) 
Stem{(,..，'1Linespec') 


stem(-..，'filled') 


参数 说 明 : x 和 y 分 别 是 横 、 纵 坐标 的 数据 点 ， 其 中 x 的 默认 值 为 [1:length(y)]。linespec 用 于 
指定 线 型 、 颜 色 和 标记 符号 等 。filed 指 用 标记 符号 填充 针 状 图 。 
例 16-13: 调用 函数 stem 绘制 针 状 图 。 


Y=randa{1,6) # 生成 纵 坐 标 数据 

s(1)=subplot{(131) ;stem(1:6,y); % 绘制 针 状 图 
xlabel('(a)'，'Fontsize',14,'Fontname'，'Times New Roman'); sg% X 轴 标注 
s(2)=subplot(132) ;stem(1:2:11,y,'k:s'); # 绘制 针 状 图 
xlabel(' (b)'，'Fontsize',14,'Fontname'，'Times New Roman');  $% X 轴 标注 
s{t3)=subplot (133) ;stem(linspace(0,1,6) ,yer*'y'fill'); g% 绘制 针 状 图 
xlabel('(c)'，'Fontsize',14,'Fontname'，'Times New Roman');  % X 轴 标注 


axis(s,'sdquare'); #% 设置 所 有 坐标 轴 为 方形 


这 里 以 均匀 分 布 的 随机 数 作 为 输入 ， 给 出 3 种 针 状 图 绘制 的 例子 ， 所 得 图 形 如 图 16.19 所 示 ， 
其 中 “针头 ”分 别 以 “圆圈 "方块 ” 和“*"” 来 显示 。 
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图 16.19 ” 针 状 图 


16.1.3 ”符号 绘图 


除了 前 一 小 节 介绍 利用 离散 数据 绘图 的 函数 外 ，MATLAB 还 可 以 根据 函数 的 表达 式 来 绘制 曲 
线 。 本 小 节 介 绍 相关 函数 的 用 法 。MATLAB 提供 的 二 维 符号 绘图 函数 如 表 16.4 所 示 。 


表 16.4 ”二 维 符号 绘图 函数 


函数 名 说 明 函数 名 说 明 
fplot 函数 绘图 ezcontourf 等 高 线 
ezplot 符号 绘图 ezpolar 极 坐 标 图 
ezcontour 等 高 线 
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16.1.3.1 fplot 曲线 图 
函数 fplot 可 以 指定 函数 并 绘制 曲线 ， 其 调用 格式 为 : 


fplot (fun,1ims); 

fplot (fun,1ims,tol)， 

fplot (fun,Iims,D): 

fplot (fun,1lims,'1inespec') 


参数 说 明 : fun 用 来 表达 函数 ， 其 可 以 是 常用 数学 函数 ， 也 可 以 是 用 户 自 定义 的 函数 。lims 用 
于 指定 坐标 轴 的 范围 。tol 用 于 指定 相对 误差 精度 。n 用 于 指定 绘图 的 最 少 点 为 n+1， 因 此 最 大 步 
长 为 (kmax-xmin)/n。linespec 用 于 指定 曲线 的 线 型 、 颜 色 和 标记 符号 等 。 

下 面 一 段 程序 用 来 调用 函数 fplot 绘制 曲线 : 
f = @l(x,n)abs(exp(-1j*x*(0:n-1))*ones(ny,1)); $% 定义 含 参 数 的 函数 
s(1)=subplot(131) ;fplot('humps',[0,2]); # 根据 自 定义 函数 绘图 
xlabel('(a)'，'Fontsize',14，'Fontname'，'Times New Roman ' ) ; # X 轴 标 


s(2)=subplot (132) ;fplot(@(x)x.*sin(x.^2-cos(x) )，[-2,2],1e-4)1 区 半 拉 输入 的 函 
数 绘图 


xlabel('(b)','Fontsize' ,14,，'Fontname'，'Times New Roman ') ;  X 轴 标 注 

- s(3)=subplot(133) ;fplot(@(x)f(x,8)，[0,pixv2]，'z:X') 7 # 绘制 含 参数 的 曲线 
xlabel('(c)' Fontsize', 14, :Fontname'，'Times New Roman'); #% X 轴 标 注 
axis(s,'square'); 设置 所 有 坐标 轴 为 方形 


这 里 给 出 3 种 不 同方 式 的 函数 定义 形式 ， 即 调用 M 文件 定义 的 函数 ( humps.m 函数 入 直接 
输入 函数 ( 如 图 16.20(b) 的 绘制 ) 以 及 预先 定义 的 函数 ( 如 图 16.20(c) 的 绘制 上 述 程序 执行 后 得 到 
如 图 16.20 所 示 的 图 形 。 


自己 定义 的 函数 ， 如 用 M 文件 定义 。 对 于 比较 简单 的 函数 表达 式 ， 用 户 还 可 以 利 


humps 是 MATLAB 自 带 的 一 个 用 函数 文件 定义 的 函数 。 输 入 函数 fun 可 以 使 用 用 户 
竞 明 
用 类 似 于 “f = @(xn)abs(exp(-1j*xx(0:n-1))*ones(n,1))” 的 语句 来 定义 。 
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四 后 
图 16.20 函数 fplot 绘制 的 曲线 


16.1.3.2 ”输入 函数 ezplot 绘图 
函数 ezplot 可 以 根据 输入 函数 进行 绘图 操作 ， 其 调用 格式 为 : 














ezZplot (fun) ; 
ezplot (fun, [a,b])， 
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ezplot (fun，[xmjin, xmax,ymin,ymax]) 
ezplot (funx, funy, [tmin, 上 max]) 


参数 说 明 : fun 是 输入 函数 的 名 或 者 表达 式 ， 其 可 以 是 形 如 jx) 和 8g(xy) 的 函数 ， 对 于 
S(zy) ,MATLAB 将 计算 8(xy)=0 对 应 的 曲线 a 和 b 用 于 指定 自 变 量 的 取 值 范围 xmin, xmax， 
ymin 和 ymax 用 于 指定 横 纵 坐标 的 范围 。funx 和 funy 是 一 元 函数 ，tmin 和 tmax 用 于 设 定 funx 和 


funy 的 自 变 量 范 围 。 

例 16-14: 调用 函数 ezplot 绘图 。 
g = 8B(x,n)sin(x.^2+Xxwn) ; # 定义 含 参数 的 函数 
s(1)=subplot(141) ;ezplot('sin(x.^3/[x+tl])'[-2,2]);  % 根据 自 定义 函数 绘图 
xlabel('(a)'，'EFontsize!,14,'Fontname' ,Times New Roman'); *# X 轴 标注 
s(2)=subplot (132) ;ezplot(e(x,y)x.x*sin(x.^2-x-sinty))) 7; % 根据 直接 输入 的 函数 绘 
图 
xlabel(' (b)'，'Fontsize',14,'Fontname'，'Times New Roman'); $ X 轴 标注 


s(3)=sSubplot (133) ;ezplot (8@(x)g(x,2),@lty)sin(sin(y)*4.5),[0,pi*2]);  g% 绘制 含 参数 
的 曲线 


Xlabel('(c)'，'Fontsize',14,'Fontname'，'Times New Roman'); * X 轴 标 注 
axis(s,'square');  g 设置 所 有 坐标 轴 为 方形 

.这 里 给 出 了 3 种 不 同 输入 函数 形式 的 函数 绘图 示例 ， 同 时 给 出 坐标 轴 范 围 限制 的 操作 演示 。 与 plot 
函数 相 比 ，ezplot 的 输入 参数 要 少 一 些 。 输 出 图 形 如 图 16.21 所 示 ， 图 (a) 是 一 个 单 值 函数 曲线 ， 而 后 面 
两 幅 图 的 函数 曲线 是 多 值 的 ， 可 见 利用 函数 ezplot 绘制 一 些 多 值 函数 表达 式 的 曲线 是 很 方便 的 。 


x Sin(xz-x-sinty))=0 ， x=glx2)y=sinfsiny)4.5) 
1 


sin(xs/[x+ 避 ) 


0 
但 





图 16.21 函数 ezplot 绘制 的 曲线 


函数 的 表达 式 被 显示 在 坐标 轴 的 图 题 位 置 处 。 


16.1.3.3 用 函数 表达 式 绘制 等 高 线 图 
函数 ezcontour 可 以 根据 函数 表达 式 来 绘制 等 高 线 图 ， 其 调用 格式 为 : 


ezZconEour (fun) 


ezcontour (fun,domain) 
ezZcontour (...,n); 


参数 说 明 : fun 表示 函数 的 表达 式 。domain 是 一 个 长 度 为 2 或 者 4 的 向 量 ， 用 于 限制 横 纵 坐 
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标的 范围 ， 其 默认 值 为 -pi*2,pi*2]。n 用 于 指定 绘制 网 格 时 采用 的 离散 取样 点 数 ， 其 默认 值 为 60。 
例 16-15: 调用 函数 ezcontour 绘制 等 高 线 。 


g1 = 8@(x,y)x.^2+Y.^3; $ 定义 第 一 个 二 元 函数 

g2 = @(x,y)sin(x.^2)+cos(ty.^3)， # 定义 第 二 个 二 元 函数 

g3 = @(x,y,C)cos(x.^2+Cry.^2); % 定义 第 三 个 二 元 函数 
s{(1)=subplot(141) ;ezcontour(@(x,Yy)gl1(x,y),[-2,2]); g% 绘制 等 高 线 图 


xlabel(' (a)， ,Fontsize',14,'Fontname'，'Times New Roman'); g% X 轴 标注 
s(2)=subplot(132) ;ezcontour(e@(x,y)g2 (x,y),[-2,2],[-3,3]); 。 % 绘制 等 高 线 图 


xlabel('(b)，'Fontsize' ,14, ,Fontname'，'Times New Roman');  % X 轴 标注 
s(3)=subplot(133) ;ezcontour (Be(x,Y)93 (x,yY,0.8),40); g% 绘制 等 高 线 图 
xlabel('(c)' Fontsize',14,'Fontname'，'Times New Roman' )， s X 轴 标 注 
axis(s,'square'):; % 设置 所 有 坐标 轴 为 方形 


在 例子 中 ， 使 用 3 个 不 同 的 二 元 函数 作为 输入 ， 并 使 用 了 3 种 不 同 输入 方式 利用 ezcontour 
来 绘制 等 高 线 图 。 输 出 的 图 形 如 图 16.22 所 示 , 可 见 这 3 幅 等 高 线 图 的 等 高 线 疏 密 程度 逐渐 变 得 密 
集 ， 同 时 它们 还 存在 着 一 定 的 对 称 性 ( 这 与 输入 函数 有 关 )o 














16.22 ”函数 ezcontour 绘制 的 等 高 线 图 


调用 函数 ezcontour 时 ， 如 果 用 户 使 用 语句 “ezcontour('gl",[--2,2])” 绘 制 等 高 线 
:= 曾 图 ，MATLAB 将 把 “g:” 作 为 自 变 量 来 绘制 等 高 线 图 ， 这 时 得 到 的 等 高 线 是 一 些 坚 
线 ， 而 不 是 用 户 期 望 的 结果 。 


16.1.3.4 “彩色 等 高 线 图 


函数 ezcontourf 绘制 的 等 高 线 在 不 同 区 域 填充 不 同 的 颜色 ,其 调用 格式 和 函数 ezcontour 相 同 。 


把 上 面 例子 中 的 “ezcontour” 换 为 “ezcontourf” 即 可 得 到 如 图 16.23 所 示 的 图 形 。 
gt 9fxy08) 

















图 16.23 函数 ezcontourf 绘制 的 彩色 等 高 线 图 
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16.1.3.5 ezpola 极 坐 标 图 
函数 ezpolar 可 以 绘制 极 坐 标 图 ， 其 调用 格式 为 : 


ezpolar(fun) ; 
ezpolar{(fun, [a,b]); 


参数 说 明 : fun 是 极 坐 标 函数 ， 即 P=fun(28) 。[a,b] 用 于 指定 的 范围 ， 其 默认 值 为 [0,pi*2]。 
例 16-16: 调用 函数 ezpolar 绘制 极 坐标 曲线 。 


Eun=e(t,c)sinf(cxt) .wsin(3xCxt) 7 


subplot (121) ;ezpolar(e@e(t)t.*sin(t/2) ); 负 绘制 极 坐标 曲线 
xlabel('(a)'，,'Fontsize',14,，'Fontname'，'Times New Roman') g% X 轴 标 注 
subplot (122) ;ezpolar(@(x) fun(x,1/sqrt(3)),[0,pix4]); g 绘制 极 坐标 曲线 
xlabel('(b)'，,'Fontsize',14,'Fontname'，'Times New Roman'); % X 轴 标 注 


输出 图 形 如 图 16.24 所 示 ， 其 中 图 (a) 类 似 一 个 心 形 ， 而 图 (b) 的 形状 很 像 一 只 蝴蝶 。 





270 

tsinly2) r=fun(x,t/sqrt(3) 
人) (ob) 

图 16.24 函数 ezpolar 绘制 的 极 坐标 曲线 


16.2 ”图形 编辑 


图 形 编辑 的 使 用 对 于 修正 图 形 的 外 观 具有 重要 作用 。 有 时 MATLAB 默认 情况 下 得 到 的 图 形 可 
能 不 能 满足 用 户 的 要 求 ， 此 时 利用 图 形 编辑 功能 可 以 改变 现 有 图 形 的 样式 而 满足 用 户 的 需要 。 
MATLAB 的 图 形 编辑 功能 可 以 通过 交互 式 操作 ,也 可 以 通过 程序 来 实现 ,二 者 各 自 具有 自己 的 优点 。 
本 节 详 细 介 绍 MATLAB 的 图 形 编辑 功能 。 


16.2.1 应 用 句柄 


句柄 ( handle ) 犹 如 图 形 对 象 的 标签 , 通过 句柄 用 户 可 以 改变 图 形 对 象 的 属性 值 进而 改变 图 形 ， 
句柄 是 一 系列 double 型 数据 。 不 同 对 象 的 句柄 不 能 重复 和 混淆 使 用 。 在 图 形 对 象 的 结构 中 ， 各 个 
图 形 对 象 之 间 是 分 等 级 的 ， 它 们 之 间 的 关系 如 图 16.25 所 示 。 

在 图 16.25 中 , 根 ( Root ) 对 象 是 与 计算 机 屏幕 有 关 的 一 个 图 形 对 象 。MATLAB 系统 只 有 一 个 
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根 对象 ， 它 是 最 上 级 的 对 象 ( 上 面 没有 父 对 象 )， 它 的 子 ( Children ) 对 象 是 Figure。 在 MATLAB 
启动 的 时 候 ， 根 对 象 已 经 被 创建 了 ， 用 户 无 法 重新 创建 或 者 删除 根 对 象 。 根 对 象 的 句柄 值 为 0， 可 
以 通过 get(0) 来 读 取 该 句柄 的 内 容 , 通过 set(0,…) 设 定 该 句柄 的 属性 。 该 句柄 的 常用 属性 如 表 16.5 
所 示 。 


根 [set(0)/set(0)] 
窗口 [set(ecD/set(gcD] 







坐标 轴 [sct(gcaj/get(sca)] 隐藏 的 标注 灿 对 象 






图 16.25 ”句柄 对 象 组 成 的 结构 图 
表 16.5 根 对 象 句柄 的 常用 属性 


属性 名 说 明 属性 名 说 明 
CurrentFigure “标识 当前 图 形 窗 口 数目 RecursionLimit ”限定 递归 的 最 大 次 数 ,默认 值 为 
500 


Language 人 言 环境 ， 与 操作 系统 有 ”PointerLocation ”指针 的 当前 位 置 


ScreenSize Ri 由 [L, B,W.H] 定 义 ”Children 子 句柄 对 象 , 即 图 形 窗 口 的 句柄 


Figure 对 象 ( 图 形 窗口 ) 是 MATLAB 中 包含 GUI 设计 编辑 窗 在 内 的 一 个 显示 窗口 。 在 系统 极限 条 
件 限制 下 ， 用 户 可 以 创建 任意 个 Figure。 如 果 当 前 没有 Figure 对 象 ， 用 户 在 调用 绘图 函数 ( 如 plot ) 
时 ，MATLAB 会 自动 创建 一 个 Figure。 如 果 当 前 存在 Figure, 绘图 函数 将 把 图 形 绘制 在 当前 Figure 上 。 
当前 Figure 的 默认 句柄 是 gcf， 用 户 可 以 通过 函数 get 和 set 读 取 和 设置 当前 Figure 的 属性 。 用户 还 可 
以 通过 语句 “h=figure" 来 记录 Figure 的 句柄 。 用 户 在 命令 窗 中 输入 set(gcf 可 以 得 到 全 部 句柄 属性 及 
可 能 取 值 ( 其 中 花 括 号 内 的 是 默认 值 )。 表 16.6 给 出 了 常用 图 形 窗口 的 句柄 属性 说 明 。 


表 16.6 常用 图 形 窗口 的 句柄 属性 


属性 名 说 明 属性 名 说 明 

Color 背景 颜色 Position 指定 图 形 窗口 的 位 置 和 大 小 
DoubleBuffer 。” 控制 动画 泻 染 时 快速 缓冲 Renderer 设置 屏幕 和 图 片 的 泻 染 方式 
MenuBar 控制 菜单 是 否 显示 Units 设置 显示 度量 的 单位 


坐标 轴 是 位 于 Figure 上 的 子 对 象 ， 一 个 Figure 可 以 有 多 个 坐标 轴 。 坐 标 轴 的 创建 可 以 用 函数 
axes 来 创建 ， 其 调用 格式 为 ， 


axes('position'，Lrect) 


参数 说 明 : position 是 坐标 轴 的 位 置 属性 。 参 数 rect 是 对 应 的 位 置信 息 ， 一 个 由 4 个 元 素 组 成 
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的 向 量 ， 即 rect = [left, bottom, width, heightl ，left 和 bottom 是 坐标 轴 左 下 角 点 的 位 置 坐标 ( 相对 
于 整个 Figure 空 白 区域 的 比例 ), width 和 height 是 坐标 轴 的 宽 和 高 orect 的 默认 值 为 [0.1300, 0.1100， 
0.7750, 0.8150]。 

当前 坐标 轴 的 句柄 可 以 用 gca 表示 ， 用 户 还 可 以 通过 下 面 两 种 方式 记录 句柄 ， 
RARAxl=axes(...):; 
Ax2=SuUbplot(...)， 

与 Figure 相似 ,如 果 不 存在 Figure 或 者 当前 Figure 上 没有 坐标 轴 时 ,调用 绘图 函数 时 ,MATLAB 
会 自动 在 Figure 上 生成 一 个 坐标 轴 。 如 果 绘 图 时 存在 坐标 轴 ，MATLAB 将 把 图 形 绘制 在 当前 坐标 
轴 上 。 用 户 在 命令 窗 中 输入 Set(gca) 可 以 得 到 全 部 句柄 属性 及 可 能 取 值 ( 其 中 花 括 号 内 的 是 默认 
值 )。 表 16.7 给 出 了 坐标 轴 常 用 句柄 属性 说 明 。 


表 16.7 ”坐标 轴 常 用 句柄 属性 





属性 名 说 明 属性 名 说 明 
Box 控制 上 面 和 左 侧 边框 是 否 。 XDirYDirZDir 坐标 轴 刻 度 变化 方向 
显示 
FontAngle 控制 文本 显示 为 斜体 XGridYGird/ZzGrid 对 应 轴 网 格 线 是 否 开启 
FontName 设置 字体 XTick/ YTick/ZTick 轴 上 刻度 位 置 
FontSize 设置 字号 XTickLabel/YTickLabe/ 设置 坐标 轴 上 刻度 的 文本 内 
FontUnits 设置 字体 大 小 的 度量 ZTickLabel 容 
LineWidth 轴线 的 宽度 XColorYColorZColor 设置 轴 的 颜色 ( 包括 网 格 颜 
色 ) 
Position 设置 坐标 轴 位 置 和 大 小 XLimYLir/ZLim 设置 坐标 轴 显 示范 围 
TickLength 刻度 线 的 长 度 XScale/YScale/ZScale 数据 变化 的 比例 : linear，log 
TickDir 选择 刻度 线 向 内 还 是 向 外 。 XAxisLocation/YAxisLoca- ”设置 标记 刻度 的 轴 的 位 置 
tion 


曲线 对 象 的 句柄 是 通过 一 些 绘图 函数 ( 如 plot，line，ezplot 等 ) 来 记录 的 ， 即 : 


hl=plot(...); 
h2=line(...)y; 
h3=ezpLot(...)， 


很 多 绘图 函数 都 支持 类 似 上 面 的 方式 来 标记 句柄 。 用 户 可 以 通过 句柄 来 改变 曲线 的 数据 、 线 宽 、 
颜色 以 及 标记 符号 等 属性 取 值 。 以 plot 函数 的 输出 句柄 为 例 ， 表 16.8 给 出 了 常用 属性 说 明 。 


表 16.8 ”曲线 句柄 的 常用 属性 


属性 名 说 明 属性 名 说 明 

Color 设 定 曲线 颜色 MarkerSize 标记 符号 的 大 小 
EraseMode 绘制 或 者 控 除 曲线 的 模式 MarkerEdgeColor 标记 符号 边缘 的 颜色 
LineStyle 线 型 MarkerFaceColor 标记 符号 内 部 区 域 的 颜色 
LineWidth 线 宽 XData/ YData/ ZData 曲线 对 应 的 坐标 轴 数 据 
Marker 标记 符号 


组 合 对 象 是 一 些 由 曲线 组 成 的 对 象 ， 如 函数 patch，rectangle 和 area 等 绘制 的 图 形 ， 它 们 也 
支持 输出 句柄 的 形式 , 即 h=functionname(..) 的 形式 。 对 于 一 些 绘制 图 像 的 函数 ( 如 image,imshow， 
imagesc 等 ) 所 得 的 对 象 ( 绘图 对 象 ) 也 支持 句柄 输出 。 标 注 对 象 指 由 函数 text，xlabelylabelzlabel， 
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title 以 及 legend 等 绘制 的 标注 内 容 ， 它 们 也 支持 句柄 输出 。 通 过 句柄 用 户 可 以 改变 其 中 的 字体 名 
称 、 字 号 、 斜 体 以 及 颜色 等 属性 。 

利用 句柄 编程 修改 图 形 具 有 可 移植 性 、 重 复 性 好 、 准 确 性 高 等 优点 ， 其 缺点 就 是 确定 一 些 属性 
值 时 可 能 需要 花费 很 多 时 间 ， 比 如 对 象 的 位 置 。 


16.2.2 ”鼠标 控制 
在 图 形 修改 时 利用 鼠标 进行 人 机 交互 操作 具有 快速 、 方 便 的 特点 。 本 小 节 介 绍 这 方面 的 相关 知 
识 。 
16.2.2.1 ”确定 标注 字符 串 的 位 置 
函数 gtext 可 以 实现 用 鼠标 确定 标注 字符 串 的 位 置 ， 其 调用 格式 为 : 


gtext('string'); 
GEtext(...，'propertyname' ,PropertyVvalue,...); 

参数 说 明 : string 是 待 标注 的 字符 串 。PropertyName 是 属性 名 。PropertyValue 是 属性 取 值 ， 
其 可 以 多 组 成 对 出 现 ， 用 于 修饰 标注 内 容 的 字体 和 字号 等 信息 。 

执行 下 面 语 句 ， 可 以 利用 鼠标 指定 标注 内 容 的 位 置 , 
gtext ('The quick brown fox jumps over the lazy dog.'); 
gtext('Nit\bfwelcome to Beijing'，,，'Fontsize',22, 'Fontname'，'Times New 
Roman',，'Rotation'" ,20) 

执行 上 面 的 语句 后 ， 会 在 坐标 轴 窗口 出 现 一 个 “十 字 叉 丝 "， 鼠 标 可 以 移动 叉 丝 的 交点 位 置 ， 
单 击 左 键 后 标注 的 字符 就 从 鼠标 单 击 位 置 开 始 输入 到 坐标 轴 上 。 结 果 如 图 16.26 所 示 。 


这 里 对 “Welcome to Beijing” 字 符 串 设 置 斜 体 、 粗 体 、 字 号 、 字 体 和 旋转 角度 。 


The quick brown fox jumps over the jzy do9 


t0 Be 


e 
03 Wetcom 





ee ee 
0 01 02 0 04 05 06 07 08 09 1 


图 16.26 ”利用 函数 gtext 标注 字符 惠 


16,.2.2.2 ”从 坐标 轴 上 取 点 的 坐标 
函数 ginput 可 以 利用 鼠标 从 坐标 轴 上 取 点 的 坐标 ， 其 调用 格式 为 : 
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[x,y] = ginputtn) 


参数 说 明 : x 和 y 分 别 是 用 鼠标 取得 的 横 、 纵 坐标 值 。n 用 于 指定 取 点 的 个 数 ， 当 其 缺 省 时 ， 
取 点 数目 不 受 限 制 ， ee 


stem(1:5) g# 绘制 针 状 图 
[x,y]=ginput{(5); sg% 设 定 鼠标 取出 5 个 点 的 坐标 
[x'7yY'] # 显示 坐标 值 


执行 上 述 程序 可 以 得 到 的 结果 如 图 16.27 所 示 , 依次 单 击 针 状 图 的 圆圈 可 以 得 到 相应 位 置 的 坐 
标 。 输 出 坐标 的 数据 为 : 
amnSs = 

1.0046 2.0000 3.0046 4.0092 ”5.0046 

1.0015 “1.9810 2.9751 3.9985 4.9781 


可 见 这 些 坐 标的 数据 是 圆圈 附近 的 点 。 








图 16.27 利用 函数 ginput 鼠标 取 点 


执行 过 程 中 出 现 的 “十 字 又 丝 ” 如 图 16.27 所 示 ， 又 丝 长 度 覆 善 整个 Figure 的 空 
NE 白 区 域 。 


下 面 介 绍 利 用 鼠标 改变 坐标 轴 大 小 的 方法 。 首 先 单 击 工具 条 中 的 可 编辑 按钮 ( Edit plot， 如 图 
16.28(a) 所 示 )。 再 激活 当前 的 坐标 轴 ， 坐 标 轴 边 框 上 会 出 现 8 个 黑色 的 实心 方块 ， 如 图 16.28(b) 
所 示 。 用 左 键 按 住 坐标 轴 角 点 的 黑色 方块 可 以 按 比 例 缩放 坐标 轴 大 小 ( 如 图 16.28(c) 所 示 )。 如 果 
按 住 坐 标 轴 中 各 边 中 点 的 黑色 方块 可 以 沿 相应 方向 缩放 坐标 轴 ( 如 图 16.28(d) 所 示 )。 利 用 鼠标 控 
制 坐标 轴 大 小 的 优点 是 比较 方便 ,但 是 精度 控制 比较 难 , 批量 生成 图 形 时 不 方便 。 如 果 利 用 语句 实 
现 ， 可 以 用 函数 axes 设 定 坐 标 轴 的 位 置 。 
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图 16.28 利用 鼠标 缩放 坐标 轴 


16.2.3 图 形 注释 


本 小 节 来 介绍 图 形 注释 的 一 些 方法 ,MATLAB 提供 了 函数 text、title、xlabel ( ylabel 和 zlabel )、 
legend 等 来 完成 注释 的 功能 。 下 面 依次 介绍 这 些 函 数 的 使 用 。 
16.2.3.1 在 坐标 轴 窗 口 标注 
函数 text 可 以 用 来 在 坐标 轴 窗 口 标注 内 容 ， 其 调用 格式 为 ， 
text (X,yY，' String' ); 
text (x,yY,Z，'String') 


text (. . .，'pPropertyname' ,DPIOopertyvalue ...); 


参数 说 明 : x，y 和 z 分 别 为 标注 内 容 的 起 始 位 置 在 X 轴 、Y 轴 和 了 轴 的 刻度 。string 代表 标注 
的 文本 内 容 。PropertyName 和 PropertyValue 是 标注 内 容 属性 名 称 和 取 值 。 


16.2.3.2 ”在 图 题 位 置 标注 
函数 title 用 来 在 图 题 位 置 处 标注 ， 用 于 指定 图 形 中 曲线 或 者 图 形 的 内 容 ， 其 调用 格式 为 : 
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titlef('text') 7 
title( ext'，'Property1l' ,propertyvaluel,，'pProperty2' ,propertyvalue2,，...) 

参数 说 明 :text 代表 标注 的 文本 内 容 。property1( property2 ) 和 propertyvalue1( propertyvalue2 ) 
等 分 别 为 标注 内 容 属 性 名 称 和 取 值 。 


16.2.3.3 ”坐标 轴 的 标注 


函数 xlabel，ylabel 和 zlabel 可 分 别 用 于 在 坐标 轴 的 X 轴 、Y 轴 和 也 轴 标注 ， 这 3 个 函数 用 法 
相同 。 这 里 以 函数 xlabel 为 例 介 绍 其 使 用 方法 ， 调 用 格式 为 : 


Xlabel('text ') 

xjlabel('text '，'Property1', propertyvaluel,，'pProperty2' ,Dropertyvalue2,， ...) 
参数 说 明 :text 代表 标注 的 文本 内 容 。property1( property2 ) 和 propertyvalue1( propertyvalue2 ) 

等 分 别 为 标注 内 容 属 性 名 称 和 取 值 。 


16.2.3.4 ”标注 图 例 
函数 legend 可 用 于 指定 每 条 曲线 对 应 的 内 容 ( 即 图 例 )， 其 调用 格式 如 下 ; 


legend(stringl,string2,sString3，...); % 格式 1 
legend(th,stringl,string2,string3，...); gs 格式 2 
legend off 或 1egend(ax, "off'); 
legena hidae 或 1egend(ax, 'hide'): 
legena show 或 1egend(ax,，'show'); 
legend boxoff 或 1egend(ax，'boxoff'); 
legend boxon 或 1egend(ax,，'boxon'); 
legend( ., .,pos); 

参数 说 明 : string1，string2，string3 等 表示 标注 中 的 字符 串 。 在 格式 1 中 ，MATLAB 自动 
找到 坐标 轴 中 的 曲线 并 对 曲线 线 型 、 线 宽 、 颜 色 、 标 记 符号 等 加 以 标注 ， 当 标注 内 容 ( string1， 
string2，string3… ) 少 于 曲线 的 条 数 时 ，MATLAB 根据 标注 字符 串 数 目 选 取 曲 线 ;， 如 果 标 注 内 
容 ( string1，string2，string3… ) 超过 曲线 的 条 数 ， 多 余 的 标注 字符 串 中 对 应 的 曲线 样 段 部 分 
将 是 空 揣 。 在 格式 2 中 ， 可 以 对 指定 句柄 h 中 的 曲线 进行 注释 ， 而 该 句柄 外 曲线 将 不 予 标注 。 
对 于 格式 2， 可 以 选用 格式 1 等 价 替 换 , 即 先 画 出 需要 标记 的 曲线 并 用 函数 legend 标注 ， 不 想 
标注 的 曲线 在 之 后 用 函数 legend 绘制 。 参 数 off 用 于 关闭 标注 内 容 。hide/show 用 于 隐藏 /显示 
标注 内 容 。boxoffi/boxon 用 于 关闭 /打开 标注 图 例 部 分 之 外 的 边框 。pos 用 于 指定 图 例 相 对 于 坐 
标 轴 的 位 置 ， 其 可 选 值 为 -1，0，1，2，3，4。 各 数值 的 含义 如 下 : -1 表示 坐标 轴 外 面 的 右上 
角 ，0 表示 自动 选择 一 个 最 好 位 置 ( 即 图 例 覆 盖 曲 线 最 少 )，1 表示 右上 角 !( 为 默认 值 )，2 表示 
左上 角 ，3 表示 左下 角 ，4 表示 右 下 角 。 

16.2.3.5 “示例 说 明 

下 面 结合 本 小 节 介 绍 的 各 个 函数 进行 图 形 注释 给 出 相应 的 例子 ， 程 序 内 容 如 下 : 
figure('Position',[57 99 891 538]); g% 生成 图 形 窗口 并 指定 位 置 
t=linspace(0,pi,101)1? 区 生成 采样 数据 


sS1=sSubplot(121): 
hp=plot tt,sin(2xt)，r: tcos(tx2)，'k'); gs 绘制 曲线 
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hold ony; 

plot(t(1:5:end),sinc(tt(1:5:end))，'k-o''markersize' ,4);  g% 绘制 sinc 函数 曲线 

set (ssS1,'Position', [0.13 0.31 0.327023 0.415],，'xlim',， [min(t) ,max(t)])， 
text{(0.1,-0.4,'This is the sine and cosine functions.','Rotation',20); sg% 标注 文 
本 字符 

L1=legend(hp, 'sin(2{Nitc})''cos(2{N\itt))' 3) $ 曲线 的 标签 
Xlabel(f'fNitt]'，'(a)' Fontsize' ,14，'Fontname'，'Times new roman') 多 标注 X 
轴 注 释 内 容 

ylLabel('AF'，'Fontsize',14,，'Fontname'，'Euclid Math one'); g% 标注 立轴 注释 内 


title('Function curVes',，'Fontname','Monotype Corsiva','Fontsize',16); s% 标注 图 题 
S2=SubplLlot (122) 1; 


plot3(cos(t*8) ,sin(t*8), 上 ，'k-o'); 绘制 螺旋 曲线 1 
hold on; 

PlLot3(cos (tx*8) .wxt/max(t),sin(t*8B) .xt/max (上 ) ,七 'z-Xx5) 7 s# 绘制 螺旋 曲 
线 2 


xlabell('{Nitxl(f\itt})' Fontsize',14,，'Fontname'，'Times new roman') 1; 当 标注 XX 


轴 注 释 内 容 


Ylabel('{N\ityl(f\itt})'，'Fontsize' ,14，'Fontname'，'Times new roman') gs 标注 Y 


轴 注 释 内 容 


zlabel('f\itzl({fNittj)'，'Fontsize',14,， :Foncname'，'Times new roman'): # 标注 Z 


轴 注 释 内 容 


text (-0.5,0,5, helix','Fontsize',16,'Fontname'，'Times new roman'); s 用 函数 
text 标注 图 题 

text (-0.5,0,-2.65,'(b)'，'Fontsize'v14,，'Fontname'，'Times new zoman') % 用 函数 
text 标注 图 题 

set(s2,'Position',[0.577977 0.31 0.327023 0.515]) ; % 设 定 坐标 轴 位 置 
L2=legend('Helix1'，'Helix2',2); g 曲线 的 标签 
set([L1,L2],'Fontname'，'Times new roman'); s 设置 两 个 图 例 标 注 的 
字体 


这 里 给 出 sin，cos，sinc 函数 的 绘制 ( 如 图 16.29(a) 所 示 )， 同 时 给 出 等 距 螺旋 线 的 绘制 ( 如 
16.29(b) 所 示 )， 其 中 使 用 了 不 同 的 线 型 和 标记 符号 。 需 要 注意 的 是 标注 性 文字 应 该 离开 曲线 一 
段 距 离 ， 尽 量 不 要 覆盖 曲线 。 


Function curves 





图 16.29 图 形 标注 的 示例 
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16.2.4 ”字体 设 定 
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选择 精美 的 字体 对 于 表现 图 形 具有 重要 的 辅助 作用 ， 用 户 可 以 通过 Office 软件 来 查阅 字体 样 
式 。 在 标注 函数 的 FontName 项 中 设 定 选择 的 字体 即 可 。 在 一 些 公式 中 经 常用 到 希腊 字母 和 特殊 符 
号 ， 表 16.9 列 出 希腊 字母 和 一 些 数学 符号 的 输入 方法 。 该 表 是 利用 MATLAB 绘制 的 ， 相 应 程序 保 
存在 光盘 中 的 \Ch16 文件 夹 中 , 文件 名 是 Greek_Letters.mo。 用 户 把 控制 符 写 入 到 注释 函数 的 string 
部 分 就 可 以 显示 相应 的 “输出 字符 ”了 。 


表 16.9 希腊 字母 和 一 些 数学 符号 








EE 匣 一 攻 工 革 下 天 本 2 本 : 工 于 2 本 本 E2 广 县 
ss | wa | ww | pe el yy | wu | 5 
wmaml ee ee hmhnw ww ne 
wm | 9 | ww lv we | exe | wo | > 
mw wwmwhelw | ， 
we heohe ww ll ss | 迪 | * 
al -mw ha | en e 呈 ~ 
人 
ww | Te hhT hm hv 
was le em mw han | 

ww ww e。|aml r | oo | ^ 
ma | e | Amw ha | wm | na 
se | az wwlr mhe le | 
am oo lw 和 hv he ha fw | ， 
sm | ss | al ww | ww as | e 
| vv em le whe he hr 
| | 由 [hewlh ww em 
we lewwl he hm hz 
wy | we | em | ww 。 | we | 
Se 二 ww se > 
wanow | | womanw | + | sn 。 加 + 
m | ae ww < el aa ea | 。 
mv mrTem ww lw | e 
am | gag | sm aa Te le | | 。 
wa vs ww | 9 
mewnefl | | 


16.3 自 定 义 特 殊 图 形 样式 
本 节 进 一 步 介 绍 一 些 特殊 图 形 样式 的 绘制 , 通过 这 些 修 饰 可 以 美化 图 形 。 下 面 来 具体 介绍 一 些 


方法 。 


16.3.1 用 特殊 字符 标注 刻度 
一 般 情 况 下 ,坐标 轴 的 刻度 是 数字 形式 的 。 可 以 通过 程序 把 刻度 变 为 一 些 字符 形式 。 下 面 举例 


说 明 实现 方式 。 实 现 程序 如 下 : 


figurey 
axXeSi 
set (gca,，'Xtick',0:.2:1) 


# 生成 一 个 新 的 图 形 窗口 
# 生成 一 个 空 的 坐标 轴 


% 设置 刻度 位 置 
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xL={f'0' pi''2Npi','3\pi' avpi''5\pi']; $% 设置 标注 内 容 的 字符 
set (gca,，'XTickLabel',，[]，'Fontname'，'Times New Roman','Fontsize',12,''); sg 删 去 刻 
box ony; gs 保留 上 侧 和 右 侧 的 边框 


for Kk=1:6; 
text ( [k-1]/5,min(ylim)-abs(aiftft(ylim))/30,xD(k)，'Horizontalalignment'，'center' 


'Fontname'，'Times New Roman','Eontsize',12); 务 利 用 函数 text 标注 新 刻度 值 
Ena 


这 段 程序 中 给 出 了 坐标 轴 刻 度 修改 的 示例 ， 其 中 删 去 了 原来 的 刻度 值 而 填 上 了 新 的 标注 刻度 ， 
输出 图 形 如 图 16.30 所 示 。 其 实现 思想 是 利用 函数 text 在 横 轴 相应 位 置 标注 上 需要 的 字符 。 


1 
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图 16.30 ”修改 坐标 轴 的 刻度 值 


16.3.2 ”用 特殊 图 案 填 充 条 状 图 


对 于 函数 bar 绘制 的 条 状 图 , 利用 颜色 可 以 很 好 地 区 分 不 同 竖 条 。 如 果 用 户 受 限 制 不 能 使 用 彩 
色 来 区 分 , 可 以 考虑 使 用 不 同 的 填充 图 案 来 完成 这 个 任务 。 这 里 考虑 新 建 函 数 文件 来 实现 这 样 的 功 
能 ， 条 状 图 可 以 认为 是 由 多 个 形 如 “II ”的 图 形 构成 的 ， 填 充 内容 可 以 通过 不 同 符号 来 完成 。 根 
据 上 面 分 析 编写 函数 文件 barfill,m 实现 上 述 功能 ( 该 文件 保存 在 光 姐 的 \Ch16 文件 夹 下 )j。 该 函数 
调用 格式 为 : 
barfill(y,mark,bw); 


参数 说 明 : y 是 待 分 析 的 数据 。mark 是 一 个 用 于 指定 标记 符号 的 字符 串 ， 如 表 16.2 中 第 3 列 
所 示 的 符号 ，mark 的 长 度 应 该 不 小 于 y 的 列 数 。bw 用 于 指定 条 状 图 的 宽度 。 
调用 函数 barfill 绘制 字符 串 ， 相 应 程序 如 下 ; 


Subplot (121) 7 

barfill(rand(3,3),'sxo',0.7); # 用 符号 填充 的 图 形 

axis imageixlabel('(a)'); 当 设置 坐标 轴 长 宽 比 例 ， 同时 标注 X 轴 
Subplot (122) 1 

barfill(rana(3,2),'sxo'",0.7); ss 用 符号 填充 的 图 形 

axis imageixlabel('(b)');  *# 设置 坐标 轴 长 宽 比 例 ， 同 时 标注 X 轴 
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所 得 图 形 如 图 16.31 所 示 ， 这 里 以 服从 均匀 分 布 随机 数 作为 输入 数据 ， 利 用 函数 barfl 给 出 了 
两 种 填充 示例 。 


0.8 [8 








16.31 用 符号 填充 的 条 状 图 


16.3.3 自 定义 网 格 


MATLAB 中 可 以 使 用 语句 grid on 来 显示 网 格 ， 实 际 上 这 些 网 格 是 两 组 平行 于 X 轴 和 Y 轴 的 虚 
线 ， 可 以 利用 函数 plot 自行 绘制 一 些 这 样 的 线 以 便 按 要 求 添加 网 格 线 。 这 里 编写 函数 文件 plotg,m 
( 该 文件 保存 在 光盘 的 \Ch16 文件 夹 下 ) 实现 网 格 线 的 绘制 ， 该 函数 的 调用 格式 为 : 


Plotg(x,Yy,dG) ; 


参数 说 明 : x 和 y 是 绘图 数据 ， 表 示 平 行 于 X 轴 或 者 Y 轴 曲 线 的 端点 。d 是 一 个 字符 串 ， 用 于 
指定 绘制 X 轴 还 是 Y 轴 上 的 网 格 线 ， 可 取 值 为 x 或 者 ye 

使 用 语句 grid on 和 函数 plotg 来 绘制 不 同形 式 的 网 格 线 ， 相 应 程序 如 下 : 
t=linspace(0,pi*2,201);  $ 生成 离散 数据 


S(1)=sSubplot(231) 
plot(t,sin(t)); sg 绘图 


grid on' % 显示 网 格 
xlabel('(a)','Fontsize',12); 多 X 轴 标 注 
s(2)=subplot(232) ;plot(t,sin(t)); s# 绘图 

set (gca, 'XGrid' ,ron'); # 显示 X 轴 上 的 网 格 
xlabel(' (b)'，'Fontsize',12); sg X 轴 标 注 
s(3) =subplot(233);plot(t,sin(t)); s# 绘图 

set (gca,'YGrid'，'on') 1; # 显示 Y 轴 上 的 网 格 
xlabel('(c)'，'Fontsize'v12)17 g X 轴 标 注 


s(4)=subplot(234) ;plot(t,sin(t)); sg 绘图 
plotg([1:.3:2.1,4:.3:5.5],Yylim,，'x')， 
xlabel('(G) '，'Fontsize' 12) gs X 轴 标 注 
s(5)=subplot (235) ;plot(t,sin(t)); s$% 绘图 
plotg(xlim, [-0.3:.15:0.3],Y') 
Xlabel('(e)'，'Fontsize',12); gs X 轴 标 注 
s(6)=subplot(236);plot{(t,sin(t)); % 绘图 
plotg(xlim, [-0.3:.15:0.3]，'Y') 7 
plotg([1:.3:2.1,4:.3:5.5],yYlim,，'X')， 

griaQ on; # 显示 网 格 
xlabel('(f)'，'Fontsize' ,12) 7 # X 轴 标 注 


这 段 程序 给 出 了 MATLAB 中 自 带 的 网 格 线 与 函数 plotg 绘制 的 网 格 线 的 比较 ， 利 用 函数 plotg 
可 以 在 任意 位 置 添加 网 格 线 。 输 出 图 形 如 图 16.32 所 示 ， 其 中 图 (aj、 图 (b) 和 图 (c) 给 出 的 网 格 线 是 
等 间隔 的 ， 而 图 (d)、 图 (ej 和 图 (给 出 的 网 格 线 是 指定 范围 的 等 高 线 且 可 以 不 等 间距 。 
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人) 
图 16.32 ” 带 网 格 的 图 形 


国生 和 利用 函数 piotg 可 以 在 任 疙 位 置 绘制 刻度 线 , 对 于 图 形 中 此 线 各 上 的 数值 请 查 赔 有 
。 关 帮 助 。 


16.3.4 画 箭头 
MATLAB 中 箭头 的 绘制 可 以 用 下 面 的 形式 以 字符 形式 标注 ; 


上 ext (xX,Y，'\LIeftarrow'); 
text (X,yY，' NIightarrow') 7 
text (x,Y，' uparrow' ); 

text (X,Y，'， NdGownarrow']) 7 


箭头 的 大 小 可 以 通过 Fontsize 属性 来 设置 。 上 述 语 句 得 到 的 箭头 形式 为 二 ,一 ，T ，|j。 上 
述 箭头 是 文本 格式 的 ， 用 户 还 可 以 绘制 一 般 格 式 的 箭头 ， 从 MathWorks 网 站 上 可 以 下 载 到 相应 的 
程序 arrowm， 下 载 网 址 是 ;http:Wwww.mathworks.cornymatlabcentral/ fileexchangey/loadFile.do? 
objectld=278&objectfype=File。 该 函数 的 调用 格式 为 ， 


arIow(Start,stop) 


arrow(. . .，'DPIOPerty1' ,propvall，'Property2' ,Propval2,...) 
参数 说 明 : start 表示 起 点 的 坐标 值 ， 二 维 情 况 时 是 1x2 的 向 量 ， 三 维 情况 时 是 1x3 。stop 是 
终点 的 坐标 。property1 和 property2 等 是 相关 属性 的 名 称 ，propval1 和 propval2 等 是 属性 对 应 的 


取 值 。 该 函数 的 常用 属性 有 : length 表示 箭头 的 长 度 ，baseangle 表示 稍 头 尾 部 的 角度 ，tipangle 
表示 箭头 头 部 半角 宽 ，width 表示 箭 柄 的 线 宽 ， 如 图 16.33 所 示 。 

上 面 介绍 的 arrow 函数 绘制 的 箭头 是 在 坐标 轴 上 的 , 而 且 本 章 所 介绍 的 绘制 函数 所 绘制 的 图 形 
都 限制 于 坐标 轴 范 围 内 。 在 MATLAB 中 还 提供 了 函数 annotation 实现 在 Figure 窗口 绘制 箭头 ， 其 
调用 格式 为 : 
annotation('arrow', xy)， 


参数 说 明 : arrow 表示 绘制 单 头 箭头 ( 该 函数 还 可 以 绘制 双 头 箭头 、 矩 形 、 椭 圆 、 文 本 框 、 线 
段 、 文 本 箭头 )。x 和 y 表示 箭头 的 两 个 端点 的 坐标 值 ( 坐标 值 是 相对 Figure 窗口 而 言 的 ， 其 中 左 


396 = = 了 芒 


本 晤 本 本 第 | 6 二 二 维 数据 可 视 化 
下 角 点 坐标 值 为 (0,0)， 右 上 和 角 点 坐标 值 是 (1,1) ) 





图 16.33 ”箭头 
下 面 调用 上 面 介绍 的 函数 绘制 不 同 的 箭头 和 一 些 特殊 图 形 ， 实 现 程 序 如 下 


T=text(0.5,0.5,['\1Leftarrow',，'\rightarrow',，'\uparrow' ，'\downarrow'],，'Fontsize' 
,14，'Units'，'normalized'); 

axis([0,8,0,8])7 s# 设置 坐标 轴 显 示范 围 
arrow{([1,2],[3,4],，'Length',20,'Baseangle',30,'Tipangle',20,，'Widath',2); % 绘制 坐 
标 轴 内 的 箭头 

annotation('arrow',[0.28,0.21], [0.86,0.95]); % 在 Figure 窗口 绘制 单 头 箭头 
annotation('rectangle',[0.8,0.8,0.15,0.1]); s 在 Figure 窗口 绘制 矩形 
annotation('ellipse', [0.8,0.65,0.15,0.1]); #% 在 Figure 窗口 绘制 椭圆 
annotation('textbox',[0.8,0.5,0.15,0.1],'String',{'ABCDEFGH'，'0123456789'}); 多 
在 Figure 窗口 绘制 文本 杠 

annotation('line',[0.8,0.95],[0.46,0.46]，'Linewidth',2)， g 在 Figure 窗口 绘制 
annotation('doublearrow',[0.8,0.95],[0.4,0.4],'Linewidth',2); $% 在 Figure 窗口 绘 
制 双 头 箭头 

anmnotation('textarrow', [0.8,0.95],[0.32,0.23],'String'，'Liu'，'Linewidth' 1) 村 


文本 箭头 
这 里 给 出 利用 函数 arrow 和 annotation 绘制 箭头 的 例子 ,此 外 利用 函数 annotation 还 可 以 绘制 


其 他 的 基本 图 形 。 输 出 图 形 如 图 16.34 所 示 ， 在 不 同位 置 处 给 出 了 基本 图 形 绘制 ， 读 者 可 以 模仿 示 
例 用 于 自己 的 图 形 中 。 





0 1 2 3 朋 5 5 7 日 


图 16.34 ”箭头 和 一 些 特 殊 图 形 的 绘制 
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因为 函数 annotation 可 以 绘制 结合 文字 和 箭头 的 图 形 ， 因 此 它 可 用 来 标注 一 些 图 
形 的 关键 区 域 。 利 用 函数 text 绘制 的 箭头 并 没有 因为 函数 axis 改变 范围 而 改变 在 


坐标 轴 内 的 相对 位 置 。 


16.3.5 ”多 值 函数 的 绘制 


对 于 多 值 函 数 的 绘制 可 以 考虑 调用 函数 ezplot 进行 绘图 ， 下 面 结合 函数 ezplot 绘制 下 面 两 个 
二 元 函数 对 应 的 曲线 : 








3 2 
e+ 一 “一 -1，xxsinc(t)+ 一 二 -2 
3 2 一 多 / 妇 耳 六 
相应 实现 程序 如 下 


s(I)=sSubplot (121) 
ezplot ('x^2+Y^3w (X^2-Y^4)^[-1/7/3]-1') 7 % 调用 函数 ezplot 绘图 


s(2)=subplot (122); 
ezplot('x^2w*sinc(x*y)+Y^2* (x^2-yY^4)^[-1/2]-2' [-10,10] ); % 调 用 函数 ezplot 绘图 ， 并 


指明 变量 取 值 范围 
axis{s,'square'); g% 设置 两 个 坐标 轴 为 方形 

输出 图 形 如 图 16.35 所 示 ， 其 中 左 图 相对 简单 些 ， 右 图 是 一 个 复杂 的 多 值 函数 图 ， 同 时 它们 具 
有 一 定 的 对 称 性 。 


Xe+ynleJL13]-1=0 XesinckJ+POe-JJ[-12]-2=0 
1 





-6 0 5 -0 上 0 5 10 


图 16.35 ”多 值 函 数 曲 线 


16.4 基本 图 形 的 绘制 


本 节 来 介绍 一 些 基 本 几何 图 形 的 绘制 ， 通 过 它们 的 组 合 ， 用户 可 以 得 到 一 些 复杂 的 图 形 。 基 本 
的 几何 图 形 都 可 以 利用 函数 plot 绘制 出 来 ， 关 键 问题 是 确定 几何 图 形 的 端点 坐标 值 。 下 面 依次 介 
绍 基 本 几何 图 形 的 绘制 。 
16.4.1 线段 和 弧 线 
线段 只 需要 两 个 端点 就 能 确定 , 而 圆 弧 可 以 看 做 是 圆 的 一 部 分 , 通过 圆心 和 角度 范围 就 可 以 确 
定 圆 弧 。 下 面 结合 例 子 说明 它 们 的 绘制 。 
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figurerhold on; ss 新 建 图 形 窗口 

plot{([1,3], [1,1]，'k')zplot([2,2],[3,2],k');plot([2,3],[4,3]，k'); g% 绘制 3 条 线段 
plot (3+i+1.2*exp(ixlinspace(1,3))，'Kk'); s 绘制 圆 红 

plot (3+4i+0.5*exp(ivlinspace(0,pi*2)),'k');y s% 绘制 圆 形 

axis([0,5,0,5], equal'); s# 设置 坐标 轴 范 围 和 坐标 轴 长 度 比 例 


所 得 图 形 如 图 16.36 所 示 ， 其 中 给 出 了 线段 、 圆 弧 和 圆 等 基本 图 案 的 绘制 结果 。 


| 
| 一 


图 16.36 ”线段 和 弧 线 


16.4.2 ”和 矩 形 
和 玫 形 的 绘制 可 以 利用 函数 plot 依次 连接 4 个 顶点 而 成 。 在 MATLAB 中 提供 了 函数 rectangle 专 
门 来 绘制 矩形 ， 该 函数 的 调用 格式 为 : 


rectangle('position'，[xXY whl) 
rectangle('curvature'，[a bl]，...) 


参数 说 明 : position 是 一 个 属性 名 ， 用 于 定义 矩形 的 位 置 和 大 小 。x 和 y 分 别 是 矩阵 左下 角 点 
的 横 、 纵 坐标 值 。w 和 h 表示 拢 形 的 宽 和 高 。curvature 表示 答 形 4 个 角 点 的 圆 弧 大 小 : 当 a=b=0 
( 其 为 默认 值 ) 时 得 到 一 个 矩形 ; 当 a=b=1 时 得 到 一 个 椭圆 ; 当 a 和 b 介 于 0~1 之 间 时 得 到 一 
个 圆 角 矩形 。 

调用 函数 rectangle 绘制 和 矩形， 实现 程序 如 下 ; 
axis([0,7,-2,2],'equal');ylim(ylim-0.5) ;hola onybox on;  *# 设置 坐标 轴 范 围 和 比例 
rectangle('Position',[1,1,2,1]); g 绘制 德 形 
rectangle('Position',，[4,1,2,1],，'Curvature',[1,1]); # 绘制 椭圆 


rectangle('Position', [1,-1,2,1]，'Curvature'，,[0.2,0.5]) ， # 绘制 圆 角 矩形 
plot(5+cos(linspace(0,pi*2)),sin(linspace(0,pix2))/2-0.5,'k:'); # 绘制 椭圆 


所 得 图 形 如 图 16.37 所 示 。 


虚线 椭圆 是 根据 椭圆 方程 az cos29+b2zsin2D=1 绘 制 的 。 
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图 16.37 ”和 珑 形 和 椭 回 


16.4.3 正 N 边 形 和 圆 
正 N 边 形 的 绘制 可 以 依次 连接 所 有 项 点 得 到 ， 通 用 程序 可 以 表示 为 : 
plot(exp(i* [linspace(0,pix*2,N+1)+piV2]),，'k') 7， 


其 中 N 表示 多 边 形 的 边 数 。 利 用 上 面 语 句 绘制 正三 角形 、 正 六 边 形 、 正 七 边 形 和 正 十 边 形 的 
程序 如 下 : 
s(1)=subplot (141) ;N=3;plot (exp(ix[linspace(0,pi*2,N+1)+pi/2])，'k');g% 绘制 正三 角形 
s(2)=subplot (142) ;N=6;plot (exp(ir[linspace(0,pi*2,N+1)+pi/2]),，'k')7s 绘制 正六 边 形 
s(3)=subplot(143) ;N=7;p1lLot (exp (i*[linspace(0,pi*2,N+1)+pi/2])，'k')7% 绘制 正七 边 形 


s(4)=subplot(144) ;N=10;plot(exp(ix[linspace(0,pix*2,N+1)+pi/2])，'k')7;g% 绘制 正 十 边 形 
axis(s,'square'); 当 设置 坐标 轴 为 方形 


图 形 如 图 16.38 所 示 ， 图 中 给 出 了 几 种 正 N 边 形 的 示例 ， 在 图 形 中 央 标 注 了 边 的 数目 。 


1 1 1 1 
0.5 05 05 05 ， 

0 0 0 0 
-05 -05 -0.5 -05 1 

- - -1 
1 0 1 1 0 1 2 0 1 -1 0 1 


图 16.38 正 多 边 形 
在 语句 “plot(exp{i*[linspace(O,pi*2,N+1)+pi2]),k);” 中 , 当 N 取 值 较 大 时 正 多 边 形 就 趋 近 于 
圆 ， 比 如 N=200。 用 户 可 以 改变 N 的 数值 尝试。 
正 N 角 星 的 绘制 思想 可 以 这 样 设 计 : 当 N 是 奇数 时 ， 从 任意 项 点 开始 按 顺 时 针 方向 每 隔 dn 
( dn= [N-1]/2 ) 个 点 连接 即 可 得 到 N 角 星 图 案 ; 当 N 是 偶数 时 ， 任 意 选择 两 个 相 邻 的 点 ， 分 别 从 
这 两 个 点 开始 按 顺 时 针 方向 每 隔 两 个 点 连接 起 来 。 根 据 上 面 的 思想 编写 nstarm 文件 ( 该 文件 保存 
在 光盘 的 \Ch16 文件 夹 下 ) 来 绘制 N 角 星 。 该 函数 调用 格式 为 : 
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nsSstar(N) ; 


参数 说 明 : N 是 N 角 星 的 项 点数 。 该 函数 文件 的 内 容 不 在 此 显示 了 ， 感 兴趣 的 用 户 可 以 查看 
光盘 中 \Ch16 文件 夹 下 的 nstarm 文件 。 
调用 函数 nstar 可 以 得 到 不 同 的 多 角 星 ， 下 面 绘制 几 个 图 形 作为 示例 ， 实 现 程序 如 下 ， 


subplot(231) ;nstar(5) ;axis squareititle{('{NitN}=5'); Y% 绘 制 5 角 星 
subplot (232) ;nstar(9) ;axis squareititle('{\itN}=9'); $% 绘制 9 角 是 
subplot (233) ;nstar{(15) ;axis squareititle('f\itN}=15'); $ 绘制 15 角 星 
subplot (234) ;nstar(6);axis squareititle('f\itN}=6'); 8% 绘制 6 角 星 
subplot (235) ;nstar(8);axigs squareititle('f\itN}=8')) ss 绘制 8 角 星 
subplot (236) ;nstar(10) ;axis squareititle('fNitN}=10'); sg 绘制 10 角 星 


输出 图 形 如 图 16.39 所 示 ， 可 见 其 中 N 为 奇数 时 ， 图 形 可 以 一 笔画 出 来 ， 而 N 为 偶数 时 是 两 
个 正 NM2 边 形 的 错位 释放 。 


AM5 ME9 广 15 
1 1 1 
0.5 0.5 05 
0 0 0 
0.5 -0.5 -0.5 
1 -1 1 
1 0 1 -1 0 1 1 0 1 
A-6 AMF8 上 旺 10 
1 1 1 
0.5 0.5 0.5 
0 0 0 
-0.5 -0.5 -0.5 
1 -1 1 
1 0 1 -1 0 1 1 0 1 


16.39 多 角 星 的 绘制 


16.4.4 弯曲 的 圆 管 


把 弯曲 的 圆柱 按 轴线 分 若干 段 , 在 每 个 垂直 于 轴线 的 断面 都 是 圆 ， 而 圆 的 法 线 就 轴线 的 切 向 方 
向 。 柱 面 的 绘制 可 以 用 若干 条 平行 于 轴线 的 曲线 表示 。 作 者 根据 上 述 思 想 编 写 了 相应 的 程序 , 将 其 
保存 于 光盘 的 \Ch16 文件 夹 下 ， 文 件 名 为 tube_draw.m。 因 程序 复杂 , 不 在 这 里 显示 了 。 执 行 该 程 
序 后 可 以 得 到 如 图 16.40 所 示 的 图 形 ， 其 中 左 图 是 截面 和 法 线 的 示意 图 。 


是 可 可 是 401 


MATLAB 科学 计算 与 可 视 化 仿真 宝典 拓 j> > 随 





图 16.40 弯曲 的 圆 管 


16.4.5 封闭 图 形 的 填充 


图 形 填 充 对 部 分 区 域 起 到 突出 的 作用 ， 可 以 利用 仙 ，area，patch 等 3 个 函数 完成 。 这 3 个 函 
数 的 基本 调用 格式 为 : 
fill(x,y,c)y， 


Patch(x,yvc)， 
area(X,Y):; 


参数 说 明 : x 和 y 是 区 域 项 点 的 横 、 纵 坐标 ， 要 求 坐标 值 按 顺序 排列 。c 用 于 指定 填充 的 颜色 ， 
其 颜色 可 以 是 定义 特殊 颜色 的 字母 构成 的 字符 串 ， 也 可 以 是 1x3 的 向 量 。 
调用 这 个 3 个 填充 函数 实现 填充 区 域 ， 实 现 程 序 如 下 : 


figureyhold on;plot([1,5],[1,5],'k'); # 生成 图 形 窗口 并 绘制 线段 
fill([3,2,2,3,4],[1,2,4,4,2],[0.6,0.6,0.6]); % 填充 区 域 为 灰色 
DPIlot fit37272735 和 【7 27 人 帮 72 人 人 g% 绘制 区 域 顶 点 
figure;hold on;plot([1,5],[1,5]，'k')7 gs 生成 图 形 窗口 并 绘制 线段 


patch([3,4,4.5,4.5,4],[4,2,3,4,4.5],[0.6,0.6,0.6],'Facehlpha',0.5); % 填充 区 域 为 
灰色 ， 同 时 指定 透明 度 


plot([3,4,4.5,4.5,4]，[4,2,3,4,4.5]，xw); g 绘制 区 域 顶 点 
figure;hold on;plot([3,5], [3,5],'k'); # 生成 图 形 窗口 并 绘制 线段 
h=area([3,4,4.5,4.5,4,3],[4,2,3,4,4.5,4])7 % 填充 区 域 
plot([3,4,4.5,4.5,4],[4,2,3,4,4.5]，z*')) sg 绘制 区 域 顶 点 


在 这 个 例子 中 分 别 利用 函数 仙 ，patch 和 area 来 填充 指定 的 区 域 ， 而 在 调用 patch 时 进行 了 
透明 度 设 置 。 上 述 程序 执行 后 得 到 如 图 16.41 所 示 的 3 个 图 形 。 
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图 16.41 填充 区 域 


7 和 利用 属性 FaceA1pha 可 以 改变 填充 区 域 的 透明 度 ( 参见 图 16.41 中 patch 函数 得 到 
JE 首 。 的 图 形 )， 该 属性 的 默认 值 为 1 (不 透明 )。 函 数 area 填充 区 域 的 颜色 是 蓝 色 ， 可 
以 通过 句柄 来 改变 填充 颜色 。 


16.5 “多 图 布局 


有 时 出 于 节省 空间 或 者 对 曲线 进行 比较 等 目的 , 在 同一 个 图 形 窗口 中 要 设置 多 个 坐标 轴 。 实现 
这 一 目的 的 函数 有 subplot 和 axes。 下 面 介 绍 这 两 个 函数 的 用 法 。 


16.5.1 subplot 函数 
前 面 程 序 中 已 经 用 到 了 函数 subplot， 这 个 函数 用 于 生成 多 个 子 图 ， 它 的 调用 格式 为 ， 


subplot (m,n,p)  % 格 式 1 
subplot (mnp) # 格 式 2 

参数 说 明 : m 和 mn 分 别 表示 图 形 窗 口中 子 图 的 行 数 和 列 数 。p 表示 子 图 的 序号 ， 其 值 为 1，…'， 
玉 xn 格式 { 是 一 种 标准 写法 ， 而 格式 2 是 一 种 省 略 写法 ， 当 m，n 和 p 都 是 一 位 整数 时 允许 这 
样 写 ， 如 果 它 们 之 中 存在 一 个 两 位 整数 ，MATLAB 将 会 出 现 如 下 提示 : 
??? Error Using -==> Subplot at 141 
Index must be a 3-digit number of the format mnp. 

此 时 换 用 第 一 种 格式 即 可 。 除 了 按 常 规 调用 函数 subplot 绘制 疾 x 的 子 图 阵列 外 ， 还 可 以 生 
成 一 些 特殊 排 布 的 子 图 阵列 ， 比 如 下 面 的 示例 。 
figure' 


subplot (231) ;subplot (234); s% 生成 第 一 列子 图 
subplot (233) ;subplot (236); # 生成 第 三 列子 图 


subplot (132) ; 当 生成 另外 一 种 排 布 方式 的 第 二 个 子 图 
figurey; 
subplot (211) ; g 生成 第 一 个 子 图 


subplot (223) ; subplot (224) ; % 生成 另外 一 种 排 布 方式 的 第 二 行 子 图 
执行 上 述 程序 后 可 以 得 到 如 图 16.42 所 示 的 多 图 布局 形式 。 
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图 16.42 ”多 图 布局 形式 


网 和 8 上面 程序 设计 思路 是 把 两 个 或 者 多 个 子 图 的 位 置 替 换 为 一 个 较 大 的 子 图 ,用户 在 
[Ai 相应 子 图 后 面 写 入 绘图 语句 就 可 以 得 到 希望 的 曲线 图 。 


16.5.2 ”axes 函数 
函数 axes 可 以 用 来 生成 坐标 轴 并 指定 坐标 轴 为 确定 位 置 ， 其 调用 格式 为 : 
axes('position'，[x,Yy,w,h]):， 
参数 说 明 :x 和 y 是 坐标 轴 左 下 角 点 相对 于 Figure 窗口 的 横 、 纵 坐标 值 ( 坐标 值 是 相对 于 Figure 


窗口 的 空白 区 域 而 言 的 )。w 和 h 是 坐标 轴 的 宽 和 高 。 
比如 ， 调 用 函数 axes 绘制 坐标 轴 的 程序 如 下 ， 


figurey sg 生成 新 的 图 形 窗口 
axes('Position',[0.11,0.13,0.4,0.3]);plot(rand(1,12));  *% 生成 坐标 轴 并 绘图 
axes('Position',[0.51,0.53,0.4,0.3]);Pplot(randa(1,12)); ss 生成 坐标 轴 并 绘图 


输出 图 形 如 图 16.43 所 示 ， 可 见 函数 axes 可 以 把 坐标 轴 放 置 在 图 形 窗口 的 不 同位 置 上 。 
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图 16.43 ”利用 函数 axes 布局 多 个 坐标 轴 窗 口 
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16.5.3 图 上 图 
有 时 为 了 在 一 个 较 大 坐标 轴 上 绘制 一 个 一 个 小 图 来 说 明 局 部 方法 的 结果 ， 可 以 调用 axes 函数 
实现 这 个 要 求 。 下 面 通过 绘制 y?=1/(t-3) 的 曲线 举例 说 明 该 函数 的 做 法 。 程 序 如 下 ， 


figurey *# 生成 新 的 图 形 窗口 
t=linspace(0,6,300);tl=linspace(2.8,3.2,300); 8% 生成 曲线 的 整体 离散 坐标 值 t 和 局 部 离散 


坐标 值 t1 


rn 光 Ce #% 生成 曲线 的 整体 离散 函数 值 y 和 局 部 离散 
函 Yy1 

plot{(t,y) ;axis('equal'); $ 绘制 整体 曲线 图 

axes('Position', [0.18,0.62,0.28,0.25]); g 生成 子 图 

plLlot(tl,y1)， gs 绘制 局 部 曲线 图 

xlim( [min(t1l),max(tl)]); # 设置 坐标 轴 范 围 


输出 结果 如 图 16.44 所 示 , 图 中 给 出 了 对 其 中 变化 剧烈 的 部 分 的 放大 处 理 ， 从 而 得 到 了 更 清楚 
的 显示 效果 。 





图 16.44 ”绘制 图 上 图 的 示例 


16.6 图像 处 理 函 数 


本 节 介 绍 利用 MATLAB 进行 基本 图 像 处 理 的 知识 ， 包 括 图 像 的 读 写 、 剪 切 、 旋 转 等 
一 幅 图 像 对 应 一 个 M xN {( 灰 度 图 像 ) 或 者 M xNx3 ( 彩色 图 像 ， 红 R、 绿 G、 蓝 B 三 基 
色 分 量 值 ) 的 数组 。 在 MATLAB 中 提供 了 函数 imread 和 imwrite 来 读 写 数字 图 像 ， 它 们 的 调用 格 
式 为 : 
a = imread('filename'); 
imwrite(aA，'Eilename')， 
参数 说 明 : A 是 数字 图 像 对 应 的 数组 。filename 是 数字 图 像 的 文件 名 。MATLAB 支持 的 图 片 格 


式 有 jpg，bmp，tff，png 等 。 
在 MATLAB 显示 图 像 的 函数 有 imshow 和 image， 它 们 的 调用 格式 为 : 
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imshow (IN) 
image(I) 


参数 说 明 : 工 是 数字 图 像 对 应 的 数组 。N 表示 灰 度 级 ， 其 默认 值 是 256。 
下 面 给 出 利用 函数 imshow 和 image 显示 图 像 的 例子 ， 程 序 如 下 


figure; sg 生成 新 的 图 形 窗口 
C=imread('cameraman.cif'): g% 读 入 图 像 

load womany; gs 导入 图 像 数据 ( 该 图 像 是 小 波 工具 箱 中 带 有 的 ) 
subplot (121) ;imshow(C) ;xlabel('(a)'); # 显示 图 像 
subplot (122) ; image(X) ;xlabel('(b)'); # 显示 图 像 

axis('sdquare'); g% 设置 坐标 轴 为 方形 


所 得 图 形 如 图 16.45 所 示 ， 从 中 可 以 看 出 利用 函数 imshow 显示 的 图 片 不 带 刻 度 值 ， 而 函数 
image 显示 的 图 片 带 有 刻度 。 





50 100 150 200 260 
(9 tb) 


图 16.45 ”图像 显示 


轴 自 动 设置 为 关闭 状态 。 函 数 image 显示 图 像 时 坐标 轴 的 长 帘 比 例 不 变 ， 同 时 坐标 
轴 处 于 显示 状态 。 如 果 在 调用 函数 jimage 显示 图 像 后 , 利用 语 名 “axis(imagevoff)” 
设置 坐标 轴 ， 则 得 到 显示 图 像 的 效果 和 函数 imshow 一 样 。 


省 函数 imshow 显示 图 像 时 ， 坐 标 轴 直 接 按 图 像 的 行 数 和 列 数 对 应 比例 显示 ， 同 时 坐标 
说 明 


函数 imshow 和 image 都 是 按 正常 方向 显示 图 像 ,利用 函数 surface 可 以 在 图 形 窗 口中 把 图 像 
倾斜 地 显示 ， 调 用 格式 如 下 : 
surface (X,Y,Z,C，'PropertEtyNamel'，'PropertyValuel '，...):; 

参数 说 明 : X，Y，Z 是 坐标 位 置 。C 是 灰 度数 据 。ProperttyName1 和 PropertyValue1 等 是 属 
性 名 称 和 相应 的 属性 值 。 

例 16-17: 利用 函数 surface 显示 图 像 。 


load woman; g 导入 图 像 数据 
R=imread('cameraman,tif');a=double(a); % 读 入 数字 图 像 
B=imread('rice.png');B=double(B) ; #% 读 入 数字 图 像 
Z=zeros (size(X));Y=ones(size(X) ) ; $ 生成 全 1 和 全 0 和 矩阵 
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[xx,yy]=meshgrid(lIinspace(0,1,256) ) 


本 可 可 本 第 ]6 = 二 维 数据 可 视 化 
# 生成 网 格 坐 标 矩 阵 


Surface (Y,Xx,YYy,flLipud(X) ，'FaceCcolor'，'Eexturemap',，'Edgecolor','none'，'CDataMa 


pping'，'direct'); 


Colormap (map) ;view(3) ;xlim([0,1]);hold on; 多 


设置 颜色 和 坐标 轴 范 围 


Surface (xx,Y,yy,flipudG(A)，'PFaceCcolor'，'texturemap',，'Edgecolor'，'none'，'CDataMa 


pping'，'Qirect') 7 


SuUrface (xx,YyYy,2z,flipuda(B),，'FaceCcolor'，'texturemap',，'Edgecolor','none'，'CDataMa 


pping'，'dairect'); % 显 示 图 像 


view([-71,22])》 #% 设置 视角 


这 里 首先 读 入 3 幅 图 像 ， 然 后 利用 函数 surface 把 它们 分 别 放 置 在 XOY，XOZ 和 YOZ 平面 上 。 


输出 图 像 如 图 16.46 所 示 。 
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图 16.46 ”倾斜 显示 图 像 





可 以 通过 改变 函 赦 view 的 参数 来 旋转 图 像 的 角度 ， 从 而 得 到 任意 角度 显示 。 


通过 提取 数组 中 不 同位 置 的 数据 ， 可 以 实现 图 像 剪 切 的 目的 。 另 外 ，MATLAB 还 提供 了 一 个 专 


门 的 图 像 剪 切 函 数 ， 即 imcrop ， 其 调用 格式 为 : 


I2= imcrop{(I，rect) ; 
I2= imcrop (I,map,rect); 


参数 说 明 : 工 是 图 像 数 据 矩 阵 。rect 用 于 定义 剪 切 的 


区 域 ， 其 由 4 个 元 素 组 成 , 即 [xywh] ， 其 





中 x 和 y 表示 切 下 的 子 图 像 在 原 图 像 右 上 角 点 的 坐标 ，w 和 h 分 别 表示 切 下 子 图 像 的 宽 和 高 。 


下 面 举 例 说 明 剪 切 图 像 。 


# 生成 新 的 图 形 窗口 
# 导入 图 像 数据 


figurey 
1oad womany; 


subplot (131) ;imshow(X, []); s* 显示 图 像 
xlabel('(a)''Fontsize',12); #% X 轴 标 注 
Xc=ones (size(X) ) *255; # 生 成 空白 图 像 


Xc(65:192,65:192)=X(65:192,6531192) 


s# 切 出 中 心 区 域 的 图 像 数 据 


subplot (132) ;imshow(Xc, []); # 显示 图 像 
xlabel('(b)'，'Fontsize' ,1I2) 7 s X 轴 标 注 
Xs= imcrop(X,map, [1,1,128,64]); g% 前 切 和 矩阵 数据 
subplot (133) ;imshow(Xs, [])， s 显示 图 像 
xlabel('(c)' :Fontsize',12); g% X 轴 标 注 
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这 里 读 入 woman.mat 数据 对 应 的 图 像 ， 然 后 通过 提取 和 矩阵 中 部 分 元 素 实现 图 像 剪 切 的 目的 ， 
最 后 给 出 利用 函数 imcrop 实现 前 切 的 任务 。 原 图 和 前 切 后 的 图 像 利 用 函数 imshow 显示 出 来 。 输 
出 图 形 如 图 16.47 所 示 ， 其 中 图 (bj) 和 (c) 给 出 了 原 图 部 分 数据 的 显示 。 





{ 人 b) (9c) 
图 16.47 ”图像 剪 切 ， (al) 原 图 ， (b) 切 出 的 中 心 区域 


用 函数 imrotate 可 以 旋转 图 像 ， 其 调用 格式 为 : 
B = imrotate(a,angle，'method'，'bbox'); 


参数 说 明 : B 是 旋转 后 图 像 的 数据 。A 是 输入 图 像 。angle 表示 旋转 的 角度 。 参 数 method 用 
于 指定 计算 过 程 中 采用 的 插值 方法 ，nearest ( 其 为 默认 值 ) 表示 最 近邻 插值 ，bilinear 表示 双 线 性 
插值 ，bicubic 表示 双 三 次 插值 。 参 数 bbox 用 于 控制 旋转 后 图 像 大 小 是 否 改变 ， 可 选 参数 为 : crop 
表示 剪 切 旋转 后 的 图 像 中 间 部 分 返回 和 原 图 像 大 小 一 样 的 图 像 ，loose ( 其 为 默认 值 ) 表示 缩小 图 
像 ， 图 像 的 边缘 还 在 返回 的 图 像 中 。 

下 面 调用 函数 imrotate 来 旋转 图 像 ， 相 应 程序 如 下 : 





R = imread('lena.bmp'); sg 读 入 原 图 像 

R1 = imrotate{(RA,-10,'bilinear','crop'); # 将 图 像 顺 时 针 旋 转 10? 
R2 = imrotate(R,-10,'bilinear'); % 将 图 像 顺 时 针 旋 转 10? 
subplot (131) ; imshow(&R) ; # 显示 原始 图 像 

xlabel('(a)'，'Fontsize' 12) # X 轴 标 注 

subplot (132) ; imshow(R1);  $% 显示 旋转 后 的 图 像 
xlabel('(b)'，'Fontsize',12); ， # X 轴 标注 

subplot (133) ; imshow{(R2);  s% 显示 旋转 后 的 图 像 
xlabel('(c)''Fontsize',12); * X 轴 标 注 


这 里 给 出 了 利用 函数 imrotate 把 lena 图 像 顺 时 针 旋 转 102 的 例子 ， 其 中 分 别 给 出 保持 图 像 大 
小 不 变 和 缩小 一 定 比例 的 两 种 结果 。 输 出 图 形 如 图 16.48 所 示 ， 其 中 图 (b) 图 像 大 小 不 变 ， 图 (c) 缩 
小 一 定 比例 使 图 像 内容 不 被 切 掉 。 

函数 imresize 可 以 改变 图 像 的 像素 数目 ， 该 函数 调用 格式 为 


B = imresize(A,m，'method') 


参数 说 明 : B 是 缩放 后 的 图 像 数 据 。A 是 输入 的 原始 图 像 。m 是 缩放 比例 。method 用 于 指定 
缩放 计算 中 的 插值 方法 : nearest( 其 为 默认 值 ) 表示 最 近邻 插值 ,bilinear 表示 双 线 性 插值 , bicubic 
表示 双 三 次 插值 。 
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图 16.48 图 像 旋转 
下 面 举 例 说 明 函 数 imresize 的 用 法 。 
R = imread('bb.bmp'); g 读 入 图 像 
Z1 = imresize(a,0.5,'bilinear'); s# 将 图 像 缩小 到 0.75 倍 
2Z2 = jimresize(R,2,'bicubic'); % 将 图 像 放 大 到 1 .25 倍 


s(1I)=subplot (131) ; 
image (及 ) s# 显示 原始 图 像 


xlabel{('(a)'，'Fontsize',12); # X 轴 标 注 
s(2)=Subploct(132); 

image(Z1); # 显示 缩小 后 的 图 像 
xlabel('(b)' Fontsize',12)， s X 轴 标 注 
s(3)=Subplot (133) ; 

image(Z2) ; # 显示 放大 后 的 图 像 
xlahel('{c)'，'EFontsize', 12) gs X 轴 标 注 


colormap (gray) ;axis(s,'image'); $% 显示 为 灰 度 图 , 设置 坐标 轴 属 性 


上 述 程序 给 出 了 利用 函数 imresize 改变 矩 阵 的 大 小 ， 包 括 缩 小 和 放大 两 种 情况 。 输 出 图 形 如 
图 16.49 所 示 ， 从 刻度 可 以 看 出 图 (b) 数 据 量 缩小 而 图 (c) 数 据 量 增加 。 
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图 16.49 图 像 编 放 
从 图 16.49 中 的 坐标 轴 数 值 可 以 读 出 图 像 像素 的 数目 。 更 多 图 像 处 理 函 数 可 以 在 MATLAB 的 
安装 路 径 下 查询 ， 即 \MathTools\MATLAB\ R2008avtoolboximages\images。 





16.7 ”动画 的 绘制 


利用 动画 可 以 观察 变化 全 过 程 的 更 多 信息 ， 同 时 可 能 得 到 相关 的 规律 。 本 节 介绍 如 何 利用 
MATLAB 制作 动画 ， 同 时 给 出 相关 的 例子 。 
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16.7.1 制作 动画 的 方法 
在 MATLAB 中 可 以 通过 动画 来 显示 一 个 变化 的 过 程 ， 动 画 的 制作 可 以 有 下 面 两 种 方式 : 
信 在 图 形 窗口 中 不 断 地 计算 并 画 出 图 形 ， 在 当前 图 形 窗口 中 只 显示 利用 当前 参数 计算 所 得 的 
图 片 ， 这 样 看 起 来 就 具有 动画 效果 了 。 这 种 方式 适用 于 获得 图 像 时间 较 短 的 情况 。 


人 在 保存 多 幅 图 像 后 以 电影 的 形式 播放 出 来 ,这 种 方式 适用 于 获取 一 幅 图 像 时 间 较 长 的 情况 ， 
用 户 可 以 在 计算 出 所 有 图 像 后 反复 观察 图 像 变化 过 程 。 


对 于 变化 曲线 的 数据 ， 可 以 通过 改变 句柄 中 的 属性 “XData"、"YData” 和 “ZzData"” 的 值 来 改 
变 曲线 的 形状 。 
16.7.2 ”保存 动画 

记录 动画 可 以 用 函数 getframe 来 记录 图 形 窗口 的 内 容 ， 该 函数 的 调用 格式 为 : 


f=getframe (H) ; 


参数 说 明 : f 是 记录 的 结果 。H 是 图 形 窗口 或 者 坐标 轴 对 应 的 句柄 。 下 面 是 调用 函数 getframe 
的 基本 结构 : 


for k=1:n 

plot_command; sg 绘图 程序 段 

M(k) = getframe(gcf); % 记录 当前 窗口 内 容 到 M 中 
end 
movie(M) ; s* 以 电影 的 方式 播放 记录 的 内 容 


上 面 介绍 的 getframe 函数 保存 内 容 到 MATLAB 的 变量 空间 { workspace ) 中 ， 此 外 MATLAB 
还 提供 函数 avifile 来 记录 动画 过 程 ， 利 用 这 个 函数 可 以 得 到 一 个 avi 文件 。 该 函数 调用 格式 为 : 


avifile 人 t+filename') 
avifiletft+filename'，'Propertyname' ,value,...):; 


avVviobj 
avViobj 
参数 说 明 :aviobj 用 于 标记 avi 文 件 , 相 当 于 一 个 句柄 。filename 是 avi 文件 的 名 称 propertyname 
和 value 分 别 是 该 函数 的 属性 和 相应 取 值 ， 用 于 控制 avi 文件 的 质量 等 属性 。 
例 16-18: 函数 avifile 的 例子 。 


fig=figurey 

set (fig,'DoubleBuffer'，'on'):; g 设置 泻 染 效果 

set (gca, 'Xxlim',[-80 80],'ylim',，[-80 80]，.,。 
'NextPlot','replace'，'Visible','oftf')  s% 设置 坐标 轴 范 围 、 绘 图 方式 和 不 可 见 


mov = avifile('example.avi') gs 定义 avi 文件 名 
x = -pi:.1:pi; * 生成 离散 数据 
radqius = [0:length(x)]; 当 生成 离散 数据 


for i=1:1ength(x) 
h = patch(sin(x)*tradius(I),cos (kx)*radius(i),[abs(cos(x(i))) 0 0]); 季 填充 区 域 


set (h, EraseMode'，'xor')) g 设置 擦 除 方式 
F = getframe(gca); # 获取 当前 坐标 轴 图 像 信 息 
mov = addframe (mov,F); % 把 当前 图 像 添加 到 avi 文件 中 
ena 
mov = close(mov); sg 关闭 句柄 mov 
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上 面 对 相 关 语句 作用 做 了 注释 。 在 利用 avifile 函数 制作 avi 文件 过 程 中 记录 的 图 
形 窗口 区 域 不 能 被 其 他 界面 遗 挡 ， 和 否则 记录 区 域 的 内 容 被 挡住 。 


16.7.3 ”实例 


本 小 节 举 例 说 明 这 两 种 方式 制作 动画 的 过 程 。 首 先 绘制 动态 的 Koch 曲线 。 该 曲线 的 定义 如 图 
16.50 所 示 。 
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16.50 ”Koch 曲线 的 示意 图 
可 见 Koch 曲线 是 三 等 分 线段 ， 中 点 处 的 分 点 向 外 移动 到 3/2 倍 线段 长 的 位 置 处 ， 依 次 连接 
起 来 就 得 到 Koch 曲线 。 不 断 地 按照 这 个 规律 就 得 到 不 同 n 对 应 的 曲线 ， 这 种 曲线 即 著名 的 分 形 曲 
线 之 一 。 这 里 考虑 把 中 点 向 外 移动 的 过 程 做 成 动画 。 
首先 定义 函数 kochxy 计算 Koch 曲线 的 三 等 分 点 、 中 点 和 中 点 处 法 线 的 角度 ， 这 样 的 函数 定 
义 如 下 : 
function [z1,RA]=kochxy(z) 
zl1=z{(1);R=[]， g 初始 化 坐标 z1 和 角度 
for k=1l1:1length(z)-1; 
&A=[R,angle(z(k+l)-z(k))+pi/2]; ， s 记录 线段 中 点 的 法 线 方向 
zl1=[z1, [2*z(k)+2Z(k+1)]/3,[z{k)+z(k+1)]V2，[z(k)+z(k+l)*2]/3,z(k+1)]; g% 计算 三 
等 分 点 、 中 点 并 记录 
end 
参数 说 明 : z1 ( 其 为 一 个 复数 ) 表示 下 一 级 Koch 曲线 端点 、 三 等 分 点 和 中 点 向 量 。A 是 中 点 
处 法 线 的 角度 。z 是 当前 一 级 Koch 曲线 端点 和 折 点 的 坐标 值 ( 其 为 一 个 复数 )。 
调用 函数 kochxy 计算 关键 点 ， 用 更 新 曲线 数据 的 方法 制作 Koch 曲线 动态 过 程 的 程序 如 下 : 
figure; 多 生成 新 的 图 形 窗口 
set (gcf,'Color'，,'w','DoubleBuffer','on'); s*% 设置 图 形 窗 口 的 位 置 、 大 小 、 背 景色 和 演 染 效果 
z=[0,1]; s% 位 置 初 值 


N=8; s# 线段 中 点 升 高 的 次 数 
hp=plot (real(z),imag(z)，'r); g% 绘制 初 值 对 应 的 曲线 
axis([0,1,0,1],'square'); g 设置 坐标 轴 范 围 和 宽 高 比例 
Eor n=1:4; 
[z,R]=kochxy(z); g% 得 到 Koch 曲线 的 分 点 数据 
d=abs(z(2)-z(1)); % 计算 子 线段 长 度 
dd=a/N; g% 中 点 每 次 升 高 的 步 长 
for Kk=1I:N7 
z(3:4:end)=z(3:4:end)+ddrexp(irR); 更 新 中 点 坐标 
set (hp, 'XData',real(z),'YData',imag(z)); g% 更 新 曲线 数据 
pause(0.2) ; g% 停顿 一 下 
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end 


end 


其 中 利用 函数 pause 进行 0.2 秒 的 停顿 突出 变化 效果 , 最 终生 成 图 案 如 图 16.51 所 示 , 中 间 的 
动画 过 程 用 户 可 以 运行 上 面 的 程序 。 
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图 16.51 动画 最 终生 成 的 图 案 
第 2 个 示例 是 螺旋 片 绕 其 轴线 旋转 的 动画 。 光 盘 中 \Ch16 文件 夹 下 的 helix.m 文件 是 一 个 绘制 
螺旋 片 的 函数 文件 ( 该 程序 较 长 ， 这 里 就 不 显示 了 ， 感 兴趣 的 用 户 可 以 自己 研究 这 个 程序 )， 其 调 
用 格式 为 : 


helix(a) 


参数 说 明 : A 是 一 个 角度 参数 ， 用 于 确定 螺旋 片 的 旋转 角度 。 调 用 这 个 函数 可 以 在 坐标 轴 上 绘 
制 一 个 螺旋 片 。 
调用 上 面 的 函数 helix 来 绘制 一 个 旋转 动画 ， 相 关 语 句 如 下 ， 


figurey; s% 生成 新 的 图 形 窗口 

set (gcf,'Position',[11 153 995 420],'Color'，'w'，'DoubleBuffer'，,'on'); $ 设置 图 形 
窗口 的 位 置 等 
R=linspace(0,Pi*4,40) 7 g% 生成 角度 变化 序列 

subplot (121) ;helix(0); # 在 第 一 子 图 中 绘制 特定 角度 的 螺旋 片 


Subplot (122) 
for Kk=1:1ength(A) ; 

helix(R(k))， # 绘制 不 同 角度 的 螺旋 片 

text(0,3,3， [Time = ,num2stzr(k)]，'Fontsize' 18，'Fontname'，'Times new roman'): 
s# 显示 变化 的 参数 

M(k) =getframe(gca); ， $ 记录 到 动画 的 帧 序列 中 


end 

figure' g 生成 新 的 图 形 窗口 
axis off; sg 关闭 轴 标 轴 
movie (M,1) gs 播放 一 次 记录 的 动画 


首先 在 图 形 窗口 左 侧 画 出 一 个 静止 的 螺旋 片 ， 然 后 调用 函数 helix 在 右 侧 的 坐标 轴 鹤 口内 画 出 
不 同 旋转 角度 的 螺旋 片 。 最 后 利用 函数 movie 播放 动画 。 记 录 过 程 中 的 一 帧 如 图 16.52 所 示 , 利用 
函数 movie 播放 动画 的 界面 如 图 16.53 所 示 。 
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图 16.53 ”播放 动画 的 界面 


16.8 图 形 的 保存 
如 果 利 用 语句 来 实现 计算 所 得 图 形 的 保存 , 在 不 断 修 改 程序 中 的 参数 时 就 显得 很 方便 。 保 存 图 
形 的 常用 函数 有 saveas 和 print。saveas 的 调用 格式 如 下 : 


Saveas (h，'filename') 


参数 说 明 : h 是 图 形 窗口 或 者 坐标 轴 的 句柄 。filename 是 图 像 文件 的 名 称 ， 图 片 文件 的 扩展 名 
可 以 是 bmp，jpg， tiff，png 等 ， 其 中 tiff 和 png 是 科技 写作 中 常用 的 图 片 格式 。 比 如 下 面 的 语句 
可 以 把 图 形 窗口 的 内 容 保 存 到 图 片 文件 中 : 


SavVeas (gcf,'abc.tiff') 
saveas (gcf，'cde.png') 


SN 
调用 函数 Saveas 保存 图 像 时 ， 需 要 把 该 函数 放 在 图 形 已 经 绘制 完毕 的 位 置 。 
利用 函数 print 可 以 像 打印 文档 一 样 打印 图 形 窗 口中 的 内 容 ， 该 函数 的 调用 格式 为 : 
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Print -options filename 


参数 说 明 : options 用 于 指定 打印 的 选项 ， 如 图 片 类 型 、dpi 等 。filename 是 文件 名 ( 不 包括 扩 
展 名 )。 
下 面 给 出 jpg，tiff，png，eps 和 ps 文件 的 语法 格式 : 


Print -djpeg90 -r300 Liu gs% 打印 为 jpg 文件 . 


print -dtiff -r300.DLiu # 打印 为 iff 文件 

print -dtiffnocompression -r300 Liu  s 打印 为 无 压缩 tiff 文件 
print -dpng -r300 Liu % 打印 为 png 文件 

print -depsc -tiff -r300 Liu  % 打印 为 eps 文件 

print -dpsc -rzr300 Liu g 打印 为 ps 文件 


其 中 r300 用 于 定义 dpi 的 数值 ( 300 为 dpi 的 数值 ) 用 户 可 以 根据 需要 选用 不 同 的 数值 。eps 
图 形 文件 一 般 用 于 编辑 软件 CTeX 的 文档 中 。 


16.9 小 结 


本 章 主要 介绍 了 二 维 图 形 的 绘制 方法 。 首 先 介绍 了 二 维 曲线 的 绘制 , 给 出 了 常用 函数 的 调用 格 
式 。 对 于 特殊 图 形 ，MATLAB 提供 了 专门 的 函数 来 实现 。 除 了 利用 离散 数据 绘图 外 ， 用 户 还 可 以 利 
用 符号 绘图 函数 根据 数学 表达 式 绘图 。 图 形 编辑 对 于 美化 图 形 具 有 重要 作用 ,MATLAB 提供 了 交互 
式 编辑 窗口 和 函数 控制 两 种 方式 来 完成 图 形 的 编辑 任务 , 其 中 掌握 句柄 的 控制 是 核心 部 分 。 利 用 基 
本 函数 可 以 实现 坐标 刻度 、 坐 标 网 格 、 箭 头等 的 重 绘 。 根 据 基本 几何 图 形 的 关键 点 可 以 利用 函数 
plot 来 绘制 常见 的 图 形 。 多 子 图 的 布局 对 于 管理 较 多 曲线 有 重要 作用 。 基 本 图 像 处 理 操作 和 动画 制 
作对 于 视觉 上 观察 结果 有 重要 意义 。 最 后 本 章 还 介绍 了 常见 的 图 片 保存 方法 。 


售 人 令 
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多 基本 函数 介绍 基本 三 维 绘图 函数 的 用 法 及 曲面 的 剪裁 知识 。 

人 彩色 图 及 颜色 条 ”介绍 彩色 图 形 的 颜色 管理 以 及 色 轴 的 添加 方法 。 

人 无 色 网 格 曲面 介绍 两 种 单 色 网 格 曲 面 的 绘制 方法 。 

人 视角 与 光照 ”介绍 控制 视角 和 光照 效果 的 函数 及 相关 方法 。 

@ 图 形 的 注释 ”介绍 三 维 图 形 的 注 灵 方 法 以 及 带 有 和 斜体 希腊 字母 图 形 的 输出 方法 。 


前 一 章 主要 介绍 了 二 维 绘图 的 知识 。 与 二 维 图 形 相 比 ， 三 维 图 形 的 信息 量 远 远 大 于 二 维 图 形 ， 
而 且 对 于 统计 函数 与 不 同 变量 之 问 的 关系 具有 重要 的 辅助 作用 。 本 章 将 介绍 MATLAB 在 三 维 绘图 
方面 的 知识 ， 如 三 维 曲线 、 曲 面 、 不 规则 图 形 的 绘制 等 方面 的 编程 要 点 。 


17.1 基本 函数 


本 节 主 要 介绍 在 MATLAB 中 三 维 图 形 的 基本 函数 ， 包 括 它们 的 用 法 和 相应 的 举例 说 明 。 利 用 
它们 可 以 得 到 不 同样 式 的 三 维 图 形 。 
17.1.1 函数 meshgrid 

进行 三 维 绘图 的 一 个 常用 函数 是 meshgrid， 其 调用 格式 为 : 


[X,Y] = meshgrid(x) 
[X,Y] = meshgrid(x,y) 


参数 说 明 : X 和 Y 表示 网 格 点 的 坐标 。x 和 y 分 别 表示 X 轴 和 Y 轴 方 向 的 离散 采样 点 ， 当 y 默 
认 时 选择 y=x。 函 数 ndgrid 可 以 生成 N 维 网 格 坐 标 ， 其 用 法 和 meshgrid 函数 相似 。 
下 面 举例 说 明 函 数 meshgrid 的 使 用 。 


[X,Y] =meshgrid(1:4,5:8) 


输出 结果 为 : 


5 5 
6 6 

了 7 了 

8 8 : 

可 见 X 和 Y 分别 是 水 平和 竖 直 方向 变化 的 坐标 。 数据 X 和 Y 用 于 在 三 维 绘图 函数 中 表示 坐标 。 
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MATLAB 提供 的 三 维 绘图 函数 如 表 17.1 所 示 。 
表 17.1 三 维 绘图 函数 


函数 名 说 明 函数 名 说 明 

line，plot3， 绘制 三 维 曲线 Surfl 绘制 带 有 光照 的 三 维 曲面 图 
ezplot3 - 
mesh，ezmesh ”绘制 三 维 网 状 图 surfnorm 计算 或 者 显示 三 维 表面 法 向 
meshc, ezmeshc ”绘制 带 有 等 高 线 的 三 维 网 状 。 contour3 绘制 三 维 等 高 线 图 

meshz 绘制 带 有 “围裙 ”的 网 状 图 “waterfall 绘制 带 有 水 流 效 果 的 三 维 图 
surf，ezsurf 绘制 三 维 曲面 图 pcolor 绘制 以 颜色 表示 高 度 的 图 形 


surfc，ezsurfc 绘制 带 有 等 高 线 的 三 维 曲面 
图 


下 面 依次 介绍 这 些 函数 的 用 法 。 


17.1.2 三 维 曲 线 
函数 line 绘制 三 维 曲 线 的 语法 格式 为 : 
1ine(x,y,zZ) 


参数 说 明 : x，y 和 z 表 示 三 维 曲线 在 相应 轴 的 数据 。 
函数 plot3 可 用 来 绘制 三 维 曲线 ， 其 调用 格式 为 


P1l1ot3 (x,YyvZ) 
plot3(x,yv,Z，'S') 
BpLot3 (xl1,yYl,21，'81:7X2,yY2,22，482'，--) 
plot3 (.. .，'PropertYy1l' ,PropertyValuel, ...) 
参数 说 明 : x，y 和 z 表示 三 维 曲线 在 相应 轴 的 数据 。s，s1 和 s2 等 用 于 指定 曲线 的 线 型 、 颜 
色 和 标记 符号 等 信息 ， 它 们 的 取 值 可 参见 表 16.2。x1，y1，z1，x2，y2 和 z2 等 表示 三 维 曲线 在 相 
应 轴 的 数据 ， 用 于 同时 绘制 多 条 三 维 曲线 。Property1 和 PropertyValue1 是 曲线 属性 和 相应 取 值 。 
函数 ezplot3 用 于 根据 符号 表达 式 绘 制 函数 曲线 ， 其 调用 格式 为 : 


ezplot3 (xfun,yfun,zftun) 
ezZp1lLot3 (xftun,yfun, zftun,，[tniin, 上 max]) 


参数 说 明 : xfun，yfun 和 zfun 是 3 个 一 元 函数 。tmin 和 tmax 分 别 表示 自 变 量 的 下 限 和 上 限 。 
下 面 举例 说 明 函 数 iine，plot3，ezplot3 的 用 法 ， 程 序 如 下 : 


figurey; g 生 成 新 的 图 形 窗口 

t=linspace(0,pi,401); s 生成 离散 采样 点 
xf=inline('sin(tw8)*2');yf=inline('cos(t*8)*3')7 s# 定义 内 联 函 数 
s(1)=subplot(131);1line(sin(t*8),cos(txw8), 尼 ) # 利用 函数 line 绘制 三 维 曲线 


s(2)=subplot(132);PLet3(sin(t*8)/2,cos (t*8)/2,，'k'vsin(tt*16) ,Cos (ty*16) ,七 ， 工 :“ 
) ; 8% plot3 绘制 两 条 三 维 曲线 
s(3)=subplot (133) ;ezplot3 (xf,yf,inline('t')，[-3,3]) ;axis equali 多 根据 符号 表达 式 


绘制 三 维 曲线 
view(s(1),[-33,14]) yview{s{2)，[-33,14]) ;view(s(3)，[44,62]);  s% 设置 坐标 轴 的 视角 
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这 里 给 出 利用 等 距 螺旋 线 的 绘制 ， inline 函数 定义 了 含 参数 t 的 函数 形式 。 分 别 利用 函数 line， 
plot3 和 ezplot3 进行 三 维 曲线 的 绘制 。 
运行 上 述 程序 ， 所 得 曲线 如 图 17.1 所 示 。 


35 x=Sintl 8)j2Yy=cosll 8)3Z=t 





1 -1 


图 17.1 三 维 曲线 的 绘制 


6 昌 利用 函数 ezplot3 绘制 三 维 曲线 时 ，MATLAB 自动 进行 X 轴 、Y 轴 、Z 轴 和 图 题 的 标 
人 用 注 。 和 坐标 办 的 视角 可 以 通过 函数 view 来 调整 。 


17.1.3 三 维 网 格 图 
函数 mesh 可 以 绘制 三 维 网 格 图 ， 其 调用 格式 为 : 
mesh(Z):; 
Imesh(X,Y,Z); 
mesh (X,Y,Z,C) 
mesh (. ..，'PropertyName' ,PropertyValue,...): 


参数 说 明 : X，Y,， Z 分 别 表示 网 状 图 节点 在 X 轴 、Y 轴 和 了 Z 轴 的 坐标 。X 和 Y 是 向 量 或 者 矩 阵 ， 
Z 是 向 量 ， 其 中 X 和 Y 默 认为 1:n 和 1m ( m 和 nm 对 应 于 矩阵 Z 的 列 数 和 行 数 )j。C 表示 网 格 线段 
的 颜色 ， 其 黑 认 值 为 Z。PropertyName 和 PropertyValue 表示 函数 mesh 的 属性 和 相应 取 值 。 

下 面 给 出 利用 函数 mesh 绘制 不 同 着 色 方 式 的 网 状 图 ， 实 现 程序 如 下 : 


figure; % 生 成 新 的 图 形 窗口 

[X,Y] = meshgrid(-2:.2:2，-2:.2:2);  s# 生成 坐标 网 格 矩 阵 

2 =X.* exp(-X.^2 -Y.^2) 7 # 计算 二 元 函数 z (x,y) 的 离散 数值 

subplot (131) ;mesh(X,Y,Z)， # 绘制 网 状 图 
Xlabel('(a)'，'Fontsize',14,'Fontname'，'Times New Roman') X 轴 标 柱 
subplot (132) ;mesh(X,Y,Z,rand(size{tZ)) ) ; 钊 绘制 随机 彩色 网 状 图 
Xlabel(' (b)'，'Fontsize',14,，'Fontname'，'Times New Roman') % X 轴 标 柱 
subplot (133) ;m=mesh(X,Y,Z,2*ones(size(Z)),'Bdgecolor'，'k'); 本 绘制 单 色 网 状 图 
xlabel('(c)'，'Fontsize',14,，'Fontname'，'Times New Roman'); X 轴 标 柱 


这 里 利用 mesh 函数 对 二 元 函数 绘制 相应 的 网 格 图 , 其 中 给 出 3 种 不 同 着 色 方 式 。 运 行 上 述 程 
序 ， 所 得 的 图 形 如 图 17.2 所 示 。 
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17.2” 带 有 不 同 着 色 方式 的 网 状 图 


RD 在 属性 EdgeColor 中 设置 不 同 颜色 可 以 进行 单一 着 色 的 网 格 〔( 如 图 17.2(c) 所 示 )， 
LE 首 。 其 中 颜色 可 以 使 用 特殊 颜色 控制 符 ， 也 可 以 利用 一 个 含 3 个 元 素 的 向 量 定义 。 


17.1.4 用 ezmesh 绘制 三 维 网 格 图 
函数 ezmesh 可 以 根据 数学 表达 式 绘制 三 维 网 格 图 ， 其 调用 格式 有 ， 


ezmesh(zfun) ; 
ezmesh(zfun,dGomain) 
ezmesh (xfun,yfun,zfun, [xmin,xmax,ymin,ymax]): 
ezmesh(...,N): 
参数 说 明 :xfun,yfun 和 zfun 表 示 相 应 坐标 轴 的 数学 表达 式 , 其 可 以 利用 函数 inline 定 义 cdomain 
表示 数学 表达 式 中 变量 的 取 值 范围 ， 它 是 含 2 个 或 者 4 个 元 素 的 向 量 ， 即 [a, b] 或 者 [la, bj，[c, d]， 
前 面 给 出 的 区 间 是 限定 变量 范围 的 ，domain 的 默认 值 为 [-2*pi2*pi,-2*pi2*pi] 。 向 量 
[smin,smax,tmin,tmax] 用 于 限制 xun，yfun 和 zfun 中 变量 的 范围 。N 用 于 指定 变量 的 采样 点 数 。 
例 17-1: 利用 函数 ezmesh 绘图 。 





figure; % 生 成 新 的 图 形 窗口 

zfun=inline('sdrt(1-s^2-t^2)'); ,s# 根据 表达 式 定义 内 联 函 数 
xs=inline{t'cos(s)*cos(t)'); $ 根据 xfun 的 表达 式 

Ys=inline('cos(s)*sin(t) '); # 根据 vfun 的 表达 式 

zs=inline('sin(s)) 17 s# 根据 zfun 的 表达 式 

subplot (131) ;ezmesh(zfun,100); sg 绘制 网 状 图 并 指明 采样 点 数 

xlabel(t'(a)' Fontsize',14,'Eontname'，'Times New Roman'); % X 轴 标 柱 
subplot (132) ;ezmesh(zfun, [-1,1],20); #% 绘制 网 状 图 并 指明 采样 点 数 
xlabel('(b)'，'Fontsize',14,'EFontname' Times New Roman'); s# X 轴 标 柱 
subplot (133) ;ezmesh(xs,ys,2zs, [-pi,pi],20)7 g 根据 xfuny yfun 和 zfun 绘 
制 网 状 图 

xlabel('(e)，， Fontsize' ,14,'Fontname' ,Times New Roman');  s% X 轴 标 柱 


利用 函数 inline 定义 球 坐 标 系 下 的 球面 ， 通 过 参数 s 和 t 表 示 方 位 角 。 通 过 设置 参数 范围 给 出 
半球 和 完整 球面 图 形 。 运 行 上 述 程序 ， 得 到 如 图 17.3 所 示 的 图 形 。 
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图 17.3 ”利用 函数 ezmesh 绘制 网 状 图 
在 调用 函数 ezmesh 绘图 时 ，MATLAB 自动 添加 坐标 轴 标 注 和 图 题 。 在 图 17.3(c) 中 ， 结 果 是 
一 个 圆 球 ， 其 中 xfun，yfun 和 zfun 的 表达 式 是 根据 圆 球 的 极 坐 标 表 达 式 确定 的 。 函 数 ezmesh 不 
支持 通过 属性 方式 改变 其 着 色 方 案 , 同时 也 不 支持 句柄 输出 。 为 了 实现 对 函数 ezmesh 绘制 图 形 的 
着 色 方案 进行 调整 ， 需 要 通过 坐标 轴 句 柄 来 查找 ezmesh 绘制 的 图 形 对 象 ， 相 关 语句 为 ， 


S=get (gca,，'Children'); 


其 中 Children 是 当前 坐标 轴 句 柄 下 面 的 子 句柄 。S 对 应 着 网 状 图 的 句柄 ， 通 过 S 可 以 对 网 状 
图 的 属性 进行 编辑 ， 从 而 实现 对 网 状 图 着 色 方 案 的 编辑 。 

下 面 以 上 半球 的 网 状 图 为 例 给 出 着 色 方 案 编辑 的 代码 。 
figurer g% 生 成 新 的 图 形 窗口 


xs=inline('cos(s)*cos(t)');  % 根据 xfun 的 表达 式 
ys=inline('cos(s)*sin(t)');  % 根据 yfun 的 表达 式 


zs=inline{'sin(s)') 7 # 根据 zfun 的 表达 式 

Subplot (131) ;ezmesh(xs,ys,zs, [0,pil,16);view([-39,56] ) s 根据 xfunyyfun 和 zfun 
绘制 网 状 图 

xlabel('(a)'，'Fontsize',14，'Fontname' Times New Roman'); $ X 轴 标 柱 

subplot (132) ;ezmesh(xs,ys,zs, [0,pi]l,16);view([-39,56]) # 根据 xfun,yfun 和 zfun 
绘制 网 状 图 


S1=get (gca, 'Children');yset(S1,'CData'rand(size(get(S1,'CData'))));  g% 通过 句柄 
对 网 状 图 着 色 


xlabel(' (b)'，'Fontsize',14,，'Fontname'，'Times New Roman');  *% X 轴 标 柱 


subplot (133) ;ezmesh(xs,ys,zs, [0,pi],16);view([-39,56]) s 根据 xfun，yfun 和 
zfun 绘制 网 状 图 
S2=get (gca, 'Children');set(S2,'Edagecolor'，'k'); % 通过 句柄 对 网 状 图 着 色 


xlabel('(c)''Fontsize',14,'Fontname'，'Times New Roman');  $% X 轴 标 柱 


这 里 改变 颜色 通过 句柄 gca,， 查找 下 面 的 子 句柄 而 得 到 曲面 对 象 对 应 的 句柄 。 对 其 中 的 CData 
属性 值 进行 修改 可 以 得 到 更 改 着 色 的 目的 。 运 行 上 述 程序 ， 输 出 如 图 17.4 所 示 。 
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图 17.4 改变 函数 ezmesh 绘制 的 网 状 图 的 着 色 方 案 





在 图 17.4 中 ， 图 (a) 是 默认 的 着 色 方 案 ， 图 (b) 是 随机 着 色 的 结果 ， 图 (C) 是 单 色 的 。 


17.1.5“ 带 有 等 高 线 的 网 状 图 
函数 meshc 可 绘制 带 有 等 高 线 的 网 状 图 ， 其 调用 格式 与 函数 mesh 相似 ， 其 调用 格式 为 : 


meshc (2Z) 
meshc (X,Y,Z) 
meshc (X,Y,Z,C) 

参数 说 明 : X，Y，Z 分 别 表示 网 状 图 节点 的 在 X 轴 、Y 轴 和 了 Z 轴 的 坐标 ，X 和 Y 是 向 量 或 者 矩 
阵 ，Z 是 向 量 ， 其 中 X 和 Y 默 认为 1n 和 1:m ( m 和 nm 对 应 于 和 矩 阵 Z 的 列 数 和 行 数 )。C 表示 网 格 线段 的 
颜色 ， 其 默认 值 为 Z。 与 mesh 函数 不 同 的 是 用 户 不 能 在 函数 meshc 的 输入 参数 中 通过 属性 改变 网 格 曲 
线 或 者 等 高 线 的 属性 值 ， 但 是 可 以 通过 句柄 来 改变 函数 meshc 绘制 的 网 状 图 。 

下 面 举 例 说 明 函 数 meshc 的 用 法 ， 程 序 代码 如 下 ; 


figure; % 生 成 新 的 图 形 窗口 

[X,Y,Z]=peaks(30) ; % 生成 坐标 数据 

subplot (121) ;meshc(Z); ， s% 生成 带 等 高 线 的 网 状 图 

xlabel('(a)','Fontsize' ,14,'Fontname'，'Times New Roman'); % X 轴 标 柱 

subplot (122) ;m=meshc (X,Y,Z,Z) 1; s 生成 带 等 高 线 的 网 状 图 ， 并 输出 句柄 
set (和 (1)，'Edgecolor'，'k') s 通过 句柄 改变 属性 值 

xlabel(' (bj) Fontsize',14, Fontname','Times New Roman'))  #% X 轴 标 柱 


运行 上 述 程序 ， 所 得 图 形 如 图 17.5 所 示 。 


图 形 ， 而 其 他 元 素 对 应 着 等 高 线 。 这 里 通过 设置 m(1) 的 EdgeColor 属性 把 网 状 图 


到 代码 中 的 输出 句柄 m 是 由 多 个 元 素 组 成 的 向 量 ， 其 第 一 个 元 素 对 应 着 网 状 曲面 的 
的 颜色 改 为 黑色 。 
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图 17.5” 带 等 高 线 的 网 状 图 


17.1.6 ” 带 有 等 高 线 的 网 状 图 
函数 ezmeshc 可 以 根据 数学 表达 式 绘 制 带 有 等 高 线 的 网 状 图 ， 其 调用 格式 为 : 


ezmeshc (zfun) 
ezmeshc (zfun, DOMRAIN) 
ezmeshc (xfun,yfun,zfun, [smin, smax,trmin,tmax]) 
ezmeshc (. . .,N) 
ezZmeshc (...，'circ') 

参数 说 明 :xfun,yfun 和 zfun 表 示 相 应 坐标 轴 的 数学 表达 式 ,其 可 以 利用 函数 inline 定 义 cdomain 
表示 数学 表达 式 中 变量 的 取 值 范围 ， 它 是 含 2 个 或 者 4 个 元 素 的 向 量 ， 即 [a, b] 或 者 [a, bl ，[c, d]， 
前 面 给 出 的 区 间 是 限定 变量 范围 的 ，domain 的 罗 认 值 为 [-2*pi,2*pi,-2*pi,2*p] 。 向 量 
[smin,smax,tmin,tmax] 用 于 限制 xxun，yfun 和 zfun 中 变量 的 范围 。N 用 于 指定 变量 的 采样 点 数 。 
circ 表示 在 domain 参数 限定 区 域内 的 一 个 圆 形 区 域 中 绘制 网 状 图 。 

下 面 调 用 函数 ezmeshc 绘制 网 状 图 ， 程 序 如 下 : 


figurey % 生 成 新 的 图 形 窗口 
subplot (131) ;ezmeshc ('imag(atan(xX + iwy))'，[-4,4]); 
xlabel('(a)'，,'Fontsize' ,14，'Fontname'，'Times New Roman');  % X 轴 标 柱 


subplot (132) ;ezmeshc ('real(1log(X + i*y))'，[-4,4],30); 

xlabel(' (b)','Fontsize',14, :Fontname' Times New Roman');  $% X 轴 标 柱 

S2=get (gca, 'Children')yset(S2(end)j,'Edgecolor'，'Kk'); g 通过 句柄 对 网 状 图 着 色 
Subplot (133) ;ezmeshc ('real(log(X + iwy))'，[-4,4],，'circ') 


xlabel('(c)'，'Fontsize' ,14，'Fontname'，'Times New Roman');  % X 轴 标 柱 


运行 上 述 程序 ， 输 出 图 形 如 图 17.6 所 示 。 
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《 (c) 
图 17.6 利用 函数 ezmeshc 绘制 的 网 状 图 
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穆 在 获取 函数 ezmeshc 所 绘图 形 的 句柄 时 ， 在 句柄 S2 中 ， 最 后 一 个 元 素 对 应 上 面 的 
和 网 状 曲面 ， 而 其 他 元 素 对 应 于 下 面 的 等 高 线 。 


17.1.7 ” 带 有 “ 围 衬 ”的 网 状 图 
函数 meshz 可 以 用 来 绘制 带 有 “围裙 ”的 网 状 图 ， 其 调用 格式 为 


meshz(Z) 
meshz (X,Y,Z): 
meshz (X,Y,2,C); 

参数 说 明 : X，Y，Z 分 别 表示 网 状 图 节点 的 在 X 轴 、Y 轴 和 了 Z 轴 的 坐标 ，X 和 Y 是 向 量 或 者 矩 
阵 ，Z 是 向 量 ， 其 中 X 和 Y 的 默认 值 为 X = 1:n 和 Y = 1m ( m 和 n 对 应 于 矩阵 Z 的 列 数 和 行 数 ) C 
表示 网 格 线段 的 颜色 ， 其 默认 值 为 Z。 与 mesh 函数 不 同 的 是 用 户 不 能 在 函数 meshz 的 输入 参数 中 通 
过 属性 改变 网 格 曲线 或 者 等 高 线 的 属性 值 ， 但 是 可 以 通过 句柄 来 改变 函数 meshz 绘制 的 网 状 图 。 

例 17-2: 调用 函数 meshz 绘图 。 


figure; % 生 成 新 的 图 形 窗口 

[X,Y,Z]=peaks (30); gs 生成 坐标 数据 

subplot (121) ;meshz (Z) ; sg 生成 带 人 的 网 状 图 
Xlabel('(a)'，'Fontsize',14,'Fontname'，'Times New Roman')y X 轴 标 柱 

subplot (122) ;m=meshz (X,Y,Z,Z); % 生成 带 . 负 相 。 的 网 状 图 ， 并 输出 句柄 
set (m, 'EdgeColor'，'k') 1; % 通过 句柄 改变 网 状 图 的 着 色 方 案 
xlabel('(b)'，,'Fontsize',14,'Fontname'，'Times New Roman'); % X 轴 标 柱 


运行 上 述 程序 ， 所 得 图 形 如 图 17.7 所 示 。 





17.7 带 “ 围 裙 ”的 网 状 图 


zlim 设置 坐标 轴 范 围 将 会 使 “围裙 " 部 分 变形 , MATLAB 不 能 相应 地 切 去 多 余 的 “ 转 


函数 meshz 绘制 图 形 的 输出 句柄 S2 是 单个 数值 而 非 一 个 向 量 。 如 果 用 户 利用 函数 
裙 ”( 部 分 “ 围 祷 ” 滋 出 坐标 轴 范 围 )。 


17.1.8 三 维 曲面 图 
函数 surf 可 以 绘制 三 维 曲 面 图 ， 其 调用 格式 为 ， 
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Surf(2) 

Surf (2,C) 

SUTfE (X,Y,Z,C) 

SUrf ( . . .，'PropertyName' ,PropertyValue,...) 


参数 说 明 : X，Y，Z 分 别 表 示 网 状 图 节点 的 在 X 轴 、Y 轴 和 了 Z 轴 的 坐标 ，X 和 Y 是 向 量 或 者 矩 
阵 ，Z 是 向 量 ， 其 中 X 和 Y 的 默认 值 为 X= 1:n 和 Y= 1:m ( m 和 n 对 应 于 矩阵 Z 的 列 数 和 行 数 )。 
C 表示 网 格 线段 的 颜色 ， 其 默认 值 为 Z。PropertyName 和 PropertyValue 表示 函数 mesh 的 属性 和 
相应 取 值 。 

下 面 给 出 调用 函数 surf 绘图 的 例子 ， 程 序 如 下 : 


figure; s 生 成 新 的 图 形 窗口 

[x,Y]=meshgrid{linspace(-3,3,21)); % 生成 网 格 坐标 

Z= (X-Y) .*exp(-{(x.^2+Y.^2)7V2); s 生成 高 散 的 二 元 函数 值 

subplot (121) ;surf(x,y,z); sg 绘制 曲面 图 
Xlabel('(a)'，'Fontsize',14，'Fontname'，'Times New Roman'); $ X 轴 标 柱 

subplot (122) ;sur 站 (x,y,z, 'Edgecolor'，'flat'); gs 绘制 曲面 图 , 并 设 定 网 格 线 
的 颜色 属性 

xlabel(' (b)'，'Fontsize',14,'Fontname'，'Times New Roman'); g% X 轴 标 柱 


运行 上 述 程序 ， 输 出 图 形 如 图 17.8 所 示 。 


1 1 
05 05 
0 
05 05 
人 1 
4 ， 4 
we 
z ee 
0 本 
字 | 
和 
(9) 


图 17.8 函数 surf 绘制 的 三 维 曲面 


在 图 17.8(bj 中 黑色 网 格 线 的 EdgeColor 属性 被 设置 为 "flat"， 当 函数 值 的 取样 点 较 
| 





多 时 ， 图 (b) 中 的 颜色 变换 就 变 得 连续 起 来 。 


17.1.9 . 基于 数学 表达 式 的 三 维 曲面 
函数 ezsurf 可 以 用 来 根据 数学 表达 式 绘制 三 维 曲面 ， 其 调用 格式 为 ， 


ezSurf{(funz): 
ezsurf(funz,domain): 
ezSsurf (funx, funy, funz); 
ezsurfE (funx,funy, funz,dGomain) 1; 
ezZSuzE ( 。 。， 队 ) 7 
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参数 说 明 : funx，funy 和 funz 分 别 是 相应 坐标 轴 的 函数 。domain 是 一 个 含有 2 个 或 者 4 个 元 
素 的 向 量 ， 用 于 限制 函数 表达 式 中 变量 的 取 值 范围 ， 其 默认 值 为 [-pi*2,pi*2,-pi*2,pi*2]。n 表示 变 
量 的 取样 点 数 。circ 表示 在 domain 参数 限定 区 域内 的 一 个 圆 形 区 域 中 绘制 曲面 图 。 

下 面 举例 说 明 函 数 ezsurf 的 用 法 ， 相 关 程 序 如 下 


funx=inline('sin{fs)xc'); g# 定义 数学 表达 式 

funy=inline('cos(S)wt')) # 定义 数学 表达 式 

funz=inline('sinc(t)'); g% 定义 数学 表达 式 

figurey # 生 成 新 的 图 形 窗口 

subplot (231) ;ezsurf(e@(x,y)funz(x)*cos(y)); # 绘制 曲面 图 
xlabel('(a)'，'Fontsize',14,'Fontname'，'Times New Roman');  $% X 轴 标 柱 

subplot (232) ;ezsurf(e@(x,y)sin{x*2)*sinc{y),，[-pi,pi]); % 绘制 曲面 图 ,并 设 定 网 格 
线 的 颜色 属性 

xlabel('(b)'，'Fontsize',14,'Fontname'，'Times New Roman');  % X 轴 标 柱 

subplot (233) ;ezsurf(funx, funy, funz) ; s 绘制 曲面 图 , 并 设 定 网 格 线 的 颜色 
属性 

Xlabel('{(c)'，'Fontsize',14,'Fontname'，'Times New Roman') % X 轴 标 柱 


Subplot (234) ;ezsurf(e(s, 上 )funx(s, 上 )*sin(t) ,els,t)funy(s,t)*cos(t^2) ,@(s, 七 )Eunz 
(t)*sinc(s)，[-2,2]) 


xlabel('(da)'…'Fontsize',14,，'Fontname'，'Times New Roman') % X 轴 标 柱 

subplot (235) ;ezsurft(@(s,t)funz(t)*sin(s),30); g% 绘制 曲面 图 ， 并 设 定 网 格 线 
的 颜色 属性 

Xlabel('(e)'，'Fontsize',14,'Fontname'，'Times New Roman'); $ X 轴 标 柱 

subplot (236) ;ezsurf(e(s,t)exp(-[s^2+t^2]),[-2,2],2, circ'); 绘制 曲面 图 并 设 定 
网 格 线 的 颜色 属性 

xlabel('(f)'，'Fontsize',14,，'Fontname'，'Times New Roman'); #% X 轴 标 柱 


上 面 的 代码 给 出 了 利用 不 同 输入 函数 时 的 曲面 绘制 结果 ( 其 中 利用 输入 选项 circ 得 到 在 圆 形 
区 域内 绘图 的 目的 )。 运 行 上 述 程序 ， 输 出 图 形 如 图 17.9 所 示 。 
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图 17.9 函数 ezsurf 绘制 的 曲面 
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函数 ezsurf 在 绘制 曲面 时 进行 了 坐标 轴 标 注 和 图 题 注 炙 。 
对 于 函数 ezsurf 曲面 属性 不 能 在 输入 参数 中 编辑 ， 需 要 通过 函数 ezsurf 的 句柄 来 修改 属性 值 。 
下 面 举 例 说 明 修改 方法 。 


2Z = inline('y.w(X.^a)./(x.^b +y.^c+0.5) xy'ra'b'c'); ss 定义 函数 
figure' % 生 成 新 的 图 形 窗口 
% 直接 绘制 三 维 曲面 


Subplot (121) ;ezsurf(B@(x,Y)z(x,y,2,2,4)); 
Subplot (122) ;m=ezsurf(G@(x,y)z(x,Yy,2,2,4)); 
set (m,，'Edgecolor'，'None' ) : 


输出 图 形 如 图 17.10 所 示 ， 其 中 图 (b) 的 网 格 线 颜 色 设 置 为 “None"， 即 不 显示 网 格 线 。 


% 直接 绘制 三 维 曲面 ， 同 时 输出 句柄 
$% 通过 句柄 设置 曲面 上 网 格 线 的 颜色 
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17.10 ”利用 句柄 修改 曲面 上 网 格 的 颜色 


17.1.10 ” 带 有 等 高 线 的 曲面 
函数 surfc 可 以 绘制 带 有 等 高 线 的 曲面 ， 其 调用 格式 和 函数 surf 相似 。 这 里 举例 说 明 其 用 法 : 

[x,Y]=meshgrid(linspace(-4,4,30)); gs 生成 自 变 量 的 采样 数值 

Z = 3(X-1).^2 .wexp(-X.^2 -~- (yY-1).^2) -~- 8w*(X/5 - X.^3 -YY.^5) .*exp (-X.^2-yY。^2) - 

1/4xexp(-(x+l).^2 - y.^2); % 计算 函数 值 


subplot (121) ;surfc(x,y,z); gs 三 维 曲 面 
xlabel('(a)','Fontsize' ,14,，'Fontname'，'Times New Roman'); gs X 轴 标 柱 

subplot (122) ;s=surfc(x,y,z, 'Edgecolor'，,'k','Facecolor','None'); s$ 设置 曲面 的 颜色 
属性 

xlabel('(b)'，'Fontsize',14,，'Fontname'，'Times New Roman'); # X 轴 标 柱 


运行 上 述 程序 ， 输 出 图 形 如 图 17.11 所 示 。 


同和 在 图 17.11 中 ， 图 (b) 的 网 格 线 被 设置 为 黑色 ， 而 网 格 内 部 的 填充 颜色 被 设置 为 
说 明 “None"， 这 样 曲面 就 变 为 “网 格 ” 了 ， 即 与 函数 mesh 绘制 的 网 状 图 一 样 。 可 见 
函数 ezsurf、 函 数 Surf 与 函数 mesh 可 以 通过 属性 的 设置 转化 。 


函数 ezsurfc 可 以 根据 数学 表达 式 绘 制 带 有 等 高 线 的 曲面 ， 其 调用 格式 与 函数 ezsurf 相似 。 这 
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里 直接 举例 说 明 函 数 ezsurfc 的 用 法 。 





17.11 ” 带 有 等 高 线 的 曲面 图 


figure; 生成 新 的 图 形 窗口 

subplot (121) ;ezsurfc(el(x,y)sin(x)*exp(-x^2-Y^2)); sg 绘制 带 有 等 高 线 的 三 维 曲面 
subplot (122) ;ezsurfc(@(x,y)sin(2x*y)*exp(-x^2-Y^2/2),[-2,2],'circ'); s$ 绘制 曲面 ， 
并 设置 变量 范围 和 圆 形 区 域 


view([-111,42]) g 设置 视角 


运行 上 述 程序 ， 输 出 图 形 如 图 17.12 所 示 。 





图 17.12 函数 ezsurfc 绘制 带 有 等 高 线 的 曲面 图 形 


网 天。 天 效 ezsurfc 属性 的 修改 不 能 直接 在 输入 参数 中 进行 ， 需要 通过 句柄 来 修改 。 用 户 
根据 前 面 介绍 函数 ezsurf 时 给 出 的 例子 即 可 模仿 出 属性 修改 的 方法 。 


17.1.11， 带 有 光照 效果 的 曲面 
函数 surfl 可 以 绘制 带 有 光照 效果 的 曲面 图 ， 其 调用 格式 为 ， 


Surf1l(2Z) 
SuUzfEl (X,Y,Z) 
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Surfl(...，'1LIight') 
Surfl(.。.。.,S) 
Surfl (X,Y,Z,S,k) 


参数 说 明 : X，Y 和 Z 是 曲面 关键 点 的 坐标 值 。light 表示 引入 光照 效果 。s 表示 光源 照射 的 方 
向 ,其 为 一 个 含 2 个 或 者 3 个 元 素 的 向 量 。k 是 一 个 含有 4 个 元 素 的 向 量 , 即 k = [ka, kd, ks, shine]， 
其 中 ka 是 环境 光 的 贡献 ，kd 是 漫 反射 系数 ，ks 是 镜面 反射 系数 ，shine 镜面 发 光 系 数 ，k 的 默认 
值 是 [0.55,0.6,0.4,10]。 

下 面 举 例 说 明 函 数 surfl 的 用 法 ， 程 序 如 下 : 


figurey # 生 成 新 的 图 形 窗口 
Subplot (121); 
[x,y,z] = peaks(30); s#% 生成 曲面 数据 
Surfl{(x,y,Zz); s% 绘制 曲面 图 
shading interpi; g% 着 色 淡 化 处 理 
colormap (gray) ;axis([-3,3,-3,3]);view(3); 8% 设置 颜色 为 灰 度 格式 、 坐 标 轴 范围 和 视角 
Subplot (122) ; 


surfl(x,y,z,[0.8,0.2,0.8],'light');  s 带 有 光照 效果 
shading interpi; g% 着 色 淡 化 处 理 
axis([-3,3,-3,3]) ;view(3); gs 设置 坐标 轴 范 围 和 视角 


上 面 的 代码 给 出 了 利用 函数 surfl 绘制 带 有 光照 效果 的 三 维 曲面 其 中 曲面 数据 是 由 函数 peaks 
得 到 的 ， 而 图 17.13 的 左 图 是 利用 函数 shading 得 到 的 光滑 曲面 。 运 行 上 述 程序 ， 所 得 图 形 如 图 
17.13 的 右 图 所 示 。 
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图 17.13 ” 带 有 光照 效果 的 三 维 曲面 


17.1.12 三 维 表面 法 向 
函数 surfnorm 可 以 用 来 计算 或 者 显示 三 维 表面 法 向 ， 其 调用 格式 为 : 


[Nx,Ny,Nz] = surfnorm(Z) ; 
[Nx,Ny,Nz] = Surfnorm(X,Y,Z); 


参数 说 明 : Nx，Ny 和 Nz 是 返回 的 方向 数据 。X，Y 和 了 表示 三 维 表面 的 坐标 数据 。 当 输出 参 
数 黑 认 值 ，MATLAB 将 绘制 出 含 法 向 线段 的 曲面 。 
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下 面 举 例 说 明 函 数 surfnorm 的 用 法 。 
[X,Y,Z]=peaks (30) s 生成 曲面 数据 
figurey; 生成 新 的 图 形 窗口 
surfnorm(X,Y,Z);xlim([-3,3]);ylim([-3,3]1); s# 绘制 含 法 线 的 曲面 


运行 上 述 程序 ， 输 出 图 形 如 图 17.14 所 示 。 





图 17.14 含 法 线 的 曲面 图 


17.1.13 三 维 等 高 线 
函数 contour3 可 以 用 来 绘制 三 维 等 高 线 ， 其 调用 格式 为 : 


Contour3 (2Z) 
COntour3 (X，Y，2) 
参数 说 明 : X，Y 和 忆 是 相应 曲面 数据 。 
例 17-3: 调用 函数 contour3 绘制 三 维 等 高 线 。 


figurey s% 生 成 新 的 图 形 窗口 

subplot (121) ;contour3 (Peaks(40) ) ; % 绘制 三 维 等 高 线 
xlabel('(a)'，'Fontsize',14,'Fontname'，'Times New Roman'); g X 轴 标 柱 

subplot (122) ;mesh(peaks(40),'Edgecolor',[0.85,0.85,0.85]); 8% 绘制 三 维 网 状 曲面 ， 并 
把 网 格 线 设置 为 浅 灰 色 

hold on;contour3 (peaks(40) ) ; $# 绘制 三 维 等 高 线 
xlabel('(b)','Fontsize',14，'Fontname'，'Times New Roman'); g% X 轴 标 柱 


运行 上 述 程序 ， 所 得 图 形 如 图 17.15 所 示 。 


图 17.15 ”三维 等 高 线 
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17,f14 流水 效果 的 曲面 
函数 waterfall 可 以 产生 在 X 轴 或 者 Y 轴 方 向 的 具有 流水 效果 的 曲面 ， 其 调用 格式 为 ， 


waterfall(2Z) 

waterfall(X,Y,Z) 

waterfall(...,C) 
参数 说 明 : X，Y 和 Z 是 曲面 采样 点 的 数据 。C 用 于 指定 曲面 网 格 线 的 颜色 。 
下 面 的 程序 调用 函数 waterfall 绘制 带 有 流水 效果 的 曲面 。 


[x,y,z] = peaks(40) ; #% 生成 曲面 数据 

figurey % 生 成 新 的 图 形 窗口 

subplot (131) ;waterfall{(peaks(40) ) ; 千 人 
Xlabel(' (a)'，'Fontsize',14,，'Fontname'，'Times New Roman'); $% X 轴 标 柱 

subplot (132) ;waterfall (peaks(40) ,rand(40) ) ; 多 外 制 员 有 流水 效果 的 曲面 
xlabel{' (b)'，'Fontsize',14， 0 Times New Roman'); % X 轴 标 

subplot (133) ;w=waterfall(x'vy',z'); 各 人 
set (w, 'Edgecolor'，'k'); gs 设置 网 格 线 为 黑 

xlabel('(c) Fontsize',14,，'Fontname'，'Times New Roman'); $% XX 9 人 


运行 上 述 程序 ， 所 得 图 形 如 图 17.16 所 示 。 
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《C) 利 用 函数 waterfal] 的 句柄 属性 EdgeColor 设置 黑色 的 网 格 线 。 当 同时 绘制 水 平 


省 在 图 17.17 中 ,图 (b) 是 利用 随机 欠 阵 进行 着 色 的 (此 时 网 格 线 为 随机 的 彩色 )， 图 
说 明 
和 坚 直 方向 的 带 有 流水 效果 的 曲面 时 就 等 价 于 前 面 介绍 的 函数 meshz。 


17.1.15 颜色 表示 高 度 值 的 图 形 
函数 pcolor 可 以 绘制 以 颜色 表示 高 度 值 的 图 形 ， 其 调用 格式 为 ， 


pcolor(C) 
pcolor (X,Y,C) 


参数 说 明 : C 是 一 个 矩阵 。X 和 Y 表示 位 置 的 数组 ， 它 们 可 以 是 向 量 或 者 和 矩阵。 函数 pcolor 
绘制 的 图 形 需 要 通过 句柄 来 编辑 。 
下 面 调用 pcolor 来 伪 色 绘图 ， 程 序 如 下 : 
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[x,y,z] = peaks(20) $% 生成 曲面 数据 

subplot (131) ;pcolor (x,yvz)， g% 伪 色 绘图 
xlabel('(a)','Fontsize',14,'Fontname','Times New Roman'); % X 轴 标 柱 
subplot (132) ;P=pcolor (xy,Z); $ 伪 色 绘图 

set (P,'Edgecolor'，'flat'); gs 隐 去 网 格 线 
xlabel('(b)'，'Fontsize',14,,Fontname'，'Times New Roman');  #% X 轴 标 柱 
subplot (133) ;hi=image{z); sg 利用 函数 绘图 作为 比 对 

set (hi,，'CDataMapping'，'scaledG'); % 设置 颜色 映像 属性 

xlabel('(c)' Fontsize' ,14,'Fontname'，'Times New Roman');  $ X 轴 标 柱 
set (gca,'YDir'，'normal')) g 设置 Y 轴 方 向 


上 述 程 序 执行 后 会 得 到 图 17.17 所 示 的 图 形 。 如 果 将 最 后 一 行 语句 “set(gca,YDir,normal);” 
注释 掉 , 将 会 得 到 如 图 17.18 所 示 的 一 个 倒置 图 形 ,其 中 前 两 个 图 坐标 刻度 值 与 X 轴 标 注 倒置 ， 第 
三 个 图 坐标 刻度 值 、X 轴 标 注 和 坐标 轴 内 的 图 案 倒置 。 
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四 
图 17.17 ” 伪 色 绘图 的 结果 
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0 
8 倒置 的 图 形 
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S 
图 17.1 


如 果 将 函数 pcolor 绘制 的 图 形 中 的 网 格 线 隐 去 ( 如 图 17.17(b) 所 示 )， 其 结果 与 函 
必 = 四 数 image 绘制 的 图 形 〔 如 图 17.17(c) 所 示 ) 一 致 


前 面 介 绍 了 三 维 图 形 的 绘制 方法 , 这 里 再 补充 三 维 图 形 的 切割 方法 。 首 先 介绍 沿 水 平方 向 切割 
曲面 的 方法 。 基 本 思路 是 对 于 和 矩阵 Z, 将 其 中 Ztm,m)>Z0 的 元 素 设置 为 Z0 就 可 以 实现 切割 的 效果 ， 
下 面 举 例 说 明 切 割 的 效果 。 

[x,y,z]=peaks(800) ; # 生成 离散 数据 


subplot (131) ;surf(x,y,z) ;shading interp' 争 绘制 原 函数 图 像 
xlabel('(a)，，'Fontsize',14,'Fontname'，'Times New Roman'); $ X 轴 标 柱 


2Z(Z>4)=2; gs 控 洞 
2z(z<-4)=-4; sg% 切割 
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subplet (132) ;surf(x,y,z);view(-48,52);shading interp; % 绘制 切 、 挖 操作 的 结果 并 
设置 视角 

xlabel('(b)'，'Fontsize',14,'Fontname'，'Times New Roman'); % X 轴 标 柱 
subplot(133) ; surf (x,y,-z) ;view(-48,52) ;shading interp) g% 绘制 切 、 挖 操作 的 结果 并 
设置 视角 


xlabel('(c)'，'Fontsize',14,'Fontname'，'Times New Roman'); sg% X 轴 标 柱 


运行 上 述 程序 ， 所 得 图 形 如 图 17.19 所 示 。 





17.19 ”曲面 切 、 挖 效果 图 


出 现 一 个 “平底 的 坑 "。 而 语句 “z(Z<-4)=-4” 把 曲面 上 小 于 -4 的 部 分 切 去 而 留 


本 语句“z(z>4)-2;” 把 大 于 4 的 曲面 部 分 函数 值 设置 为 2 这样 在 图 形 上 的 效果 就 会 
说 明 
下 一 个 “水 平 的 切面 "。 图 17.19(c) 是 上 下 翻转 了 图 17.19(b) 的 结果 。 


在 XY 平面 的 切割 可 以 通过 把 相应 位 置 的 元 素 值 设置 NaN 的 方式 进行 。 对 于 NaN，MATLAB 
将 不 绘图 ， 从 而 实现 了 切割 的 效果 ， 下 面 举例 说 明 。 


[x,y,z]=peaks(200) ; # 生成 离散 数据 
zl=z;zl(x<0&Y>0)=nany #% 利用 NaN 切割 曲面 

zZ2=z712Z2(SqrL (xx.^2+Y.^2)<1.2)=nani s% 利用 NaN 切割 曲面 
subplot (131) ;surf(x,y,z) ;shading interp;xlim([-3,3]);ylim([-3,3]); #% 绘制 原 函 
数 图 像 

xlabel(' (a)'，'Fontsize',14,，'Fontname'，'Times New Roman'); gs X 轴 标 柱 
subplot (132) ;surf(x,y,z1l) ;shading interp;xlim([-3,3]);Yylim([-3,3]); % 绘制 切割 
操作 的 结果 

xlabel('(b)','Fontsize',14,'Fontname'，'Times New Roman'): % X 轴 标 柱 
subplot (133) ;surf(x,y,zZ2) ;shading interp;xlim([-3,3]);Yy1lim([-3,3]); % 绘制 切 
割 操作 的 结果 

xlabel{('(c)'，'Fontsize' ,14,，'Fontname'，'Times New Roman'): g X 轴 标 柱 


运行 上 述 程序 ， 所 得 图 形 如 图 17.20 所 示 。 
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图 17.20 ”曲面 切割 结果 图 


和 程序 中 画 线 部 分 是 切割 的 关键 部 分 。 语 名 “zl1=Z;Z1(xX《0&y>0)=nan;” 把 曲面 1/4 
角 内 的 数据 设置 为 NaN， 从 而 实现 了 第 二 象限 内 数据 的 切割 ; 而 语句 
“z2=Zz;Zz2(sqrt(Xx.`2+y. 2)K1.2)=nam” 把 距 原点 让 离 为 1.2 的 圆 形 区 域内 点 的 函数 
值 设 置 为 NaN， 从 而 实现 圆 形 区 域 的 切割 。 用 户 可 以 根据 需要 自行 定义 区 域 利 用 特 
殊 值 NaN 来 切除 。 
17.1.16 三 维 饼 图 


函数 pie3 可 以 用 来 绘制 三 维 饼 图 ， 其 调用 格式 为 : 


pie3 (X) 
pie3 (x,explode) 
pie3(...,1Labels) 


参数 说 明 : x 表示 待 统 计 的 数据 。explode 用 于 指定 切片 是 否 分 离 出 来 ， 其 元 素数 目 与 x 一 致 ， 
explode 中 非 零 元 素 表示 对 应 的 切片 分 离 。labels 用 于 重新 标 柱 切 片 名 称 。 
下 面 是 用 函数 pie3 绘制 三 维 饼 图 的 例子 。 
figurey; s# 生 成 新 的 图 形 窗口 
subplot (121) ;pie3([3,2,3,4,2], [1,0,1,0,0])， g% 绘制 饼 图 
subplot (122) ;p=pie3([3,2,3,4,2],[1,0,1,0,0],{'RA'，'B' CD'， BE }) | 多 绘制 饼 图 


set(p(8), "Position',[-1.21866 -0.478151 -0.1]);  % 重新 设置 标 柱 字符 'B' 的 位 置 
set(p(12),'Position',[-0.300403 -1.31615 -0.1]); $% 重新 设置 标 柱 字符 'c ' 的 位 置 


运行 上 述 程序 ， 所 得 图 形 如 图 17.21 所 示 。 
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21%% 





图 17.21 三 维 饼 图 
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在 切 块 侧面 ， 看 不 清楚 。 右 侧 饼 图 通过 句柄 中 的 Position 属性 把 隐藏 在 切 块 内 的 


上 在 图 17.21 中 ， 左 侧 饼 图 的 默认 标注 是 百分比 ， 其 中 下 面 两 个 切 块 的 百分比 标注 
说 明 
标注 移出 来。 


17.1.17 ”螺旋 体 坐 标 
函数 cylinder 可 以 生成 关于 Z 轴 旋 转 对 称 的 螺旋 体 坐 标 ， 其 调用 格式 为 : 


[x,y,Z] = cylinder; 
[x,yY,z] = Cylinder (rz); 
[x,y,z]】 = cylinder(r,n) 


参数 说 明 : x，y 和 zz 是 螺旋 体 曲面 的 坐标 。r 用 于 指定 旋转 母线 的 半径 ， 其 默认 值 为 [1, 1]。n 
用 来 指定 输出 坐标 的 采样 点 数 ， 其 默认 值 是 20。 当 函数 cylinder 默认 输出 参数 时 ，MATLAB 将 直 
接 绘制 螺旋 体 。 

下 面 调 用 cylinder 函数 绘制 螺旋 体 ， 程 序 如 下 : 


r=2+cos(linspace(0,pix*2)); gs 生成 半径 向 量 

[xl,yl,zl]=cylinder(r); # 生成 螺旋 体 坐 标 
[x2,y2,z2]=cylinder(r,30) g 生成 螺旋 体 坐 标 

figure; # 生 成 新 的 图 形 窗口 

subplot (131) ;cylinder(r); g 生成 三 维 螺 旋 体 
xlabel('(a)'，'Fontsize'14，'Fontname'，'Times New Roman'); $ X 轴 标 柱 
subplot (132) ;surf(x1,y1,z1); # 生成 三 维 螺 旋 体 


xlabel(' (b)'，'Fontsize',14,，'Fontname'，'Times New Roman'); $% X 轴 标 柱 
subplot (133) ;mesh(x2,Yy2,z2);  $# 生成 三 维 螺旋 体 
xlabel(' (b)'，'Fontsize',14,，'Fontname'，'Times New Roman'); % X 轴 标 柱 
这 里 给 出 了 利用 函数 cylinder 得 到 螺旋 体 ， 利 用 函数 surf| 和 mesh 绘制 旋转 曲面 的 例子 。 对 
比 可 以 发 现 函数 cylinder 和 函数 mesh 画 出 的 图 形 相 同 。 运 行 上 述 程序 , 输出 图 形 如 图 17.22 所 示 。 


3 症 。 其 等 价 于 两 条 语句 “[x1,y1,z1]=cylinder(r)” 和 “surf(xl,y1,z1)” 组 合 的 效果 ( 如 


省 当 输 出 参数 默认 时 ， 语 名 “cylinder(r)y” 直 接 得 到 螺旋 体 (如 图 17.22 (a) 所 示 )， 
图 17.22 (b) 所 示 )。 图 17.22(c) 是 指定 采样 点 为 30 的 结果 。 





mm 串 





0 
5 三 {a) 5 大 fb) 6 瑟 ({c) 
图 17.22 利用 函数 cylinder 制作 的 螺旋 体 
函数 cylinder 绘制 螺旋 体 的 母线 是 关于 z 的 函数 ， 而 作者 编写 了 函数 rotationy !( 该 程序 保存 
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在 光 查 的 \Ch17 文件 夹 中 , 文件 名 是 rotationy ) 来 实现 母线 是 rho ( rho=sqrt(x^2+y^2)-) 的 情况 
对 应 的 旋转 体 ， 其 调用 格式 为 : 





[X,Y,2Z]=rotatiory: 
[X,Y,Z2]=rotationy (R) ; 
[X,Y,Z]=rotationy(R,N) ， 

参数 说 明 : X，Y 和 Z 是 生成 旋转 曲面 的 坐标 。R 是 母线 ， 其 为 极 径 的 函数 ， 默 认 值 为 
R=besseli(0,[0:.1:20])。N 表示 采样 点 数 ， 黑 认 值 等 于 20。 函 数 rotationy 中 用 到 的 播 值 方法 是 线 
性 插值 法 。 当 输出 参数 默认 时 ，MATLAB 将 直接 绘制 旋转 体 的 图 形 。 

下 面 调 用 函数 rotationy 绘图 ， 计 算 程 序 如 下 : 


R=sin(1linspace(0,pi*2,401)); g 生成 母线 
[X,Y,Z]=rotationy(R,200,'circ'); 生成 曲面 坐标 

figure; gs 生成 新 的 图 形 窗口 

subplot (121) ;rotationy; sg 绘图 
xlabel('(a)'，,'Fontsize',14,'Fontname'，'Times New Roman'); $ X 轴 标 柱 
subp1lot (122) ;surf(X,Y,Z) ;shading flat; # 绘图 


xlabel('(b)'，'Fontsize',14,'Fontname'，'Times New Roman');  % X 轴 标 柱 


运行 上 述 程序 ， 生 成 图 形 如 图 17.23 所 示 。 
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图 17.23 ”旋转 体 图 形 


17.1.18 单位 球体 的 坐标 
函数 sphere 用 于 生成 单位 球体 的 坐标 ， 其 调用 格式 为 ， 


Sphere; 
Sphere (P) ; 


[x,Y,z] 
[xvYy,z] 


参数 说 明 : x，y 和 z 表示 球面 坐标 。n 用 于 指定 采样 点 数 ， 其 默认 值 为 20。 当 函数 sphere 的 
输出 参数 默认 时 ，MATLAB 将 直接 绘制 球面 。 
下 面 举例 说 明 该 函数 的 用 法 。 


[x,y,z]=sphere; 多 生成 球面 坐标 
figure' $% 生 成 新 的 图 形 窗口 


中 
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subplot (121) ;sphere:; g 直接 绘制 球面 
xlabel('(a)'，'Fontsize',14,'EFEontname'，'Times New Roman'); $% X 轴 标 柱 
subplot (122) ;surf(x,y,z); $ 绘图 
xlabel('(b)'，,'Fontsize',14,'Fontname'，,'Times New Roman'); g% X 轴 标 柱 


运行 上 述 程序 ， 输 出 图 形 如 图 17.24 所 示 。 


畏 图 17.24 分 别 是 利用 函数 sphere 直接 绘制 球面 (如 图 17.24(a) 所 示 ) 和 利用 surf 
[4 首 。 函数 根据 球面 坐标 绘制 的 效果 ( 如 图 17.24(b) 所 示 )， 二 者 结果 一 祥 。 
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图 17.24 ”球面 的 绘制 


17.1.19 ” 椭 球 体 表面 坐标 
函数 ellipsoid 用 来 生成 椭 球 体 表 面 坐标 ， 其 调用 格式 为 : 


[x,Y,Z]=ellipsoid(xc,yc,zcXr,YL, ZI) ; 
[x,Y,Z]=ellipsoid(xc,yc,zc,xr,yr, Zn); 

参数 说 明 : x，y 和 Zz 是 椭 球 面 的 坐标 。xc，yc 和 zc 是 椭 球 中 心 的 坐标 。xr，yr 和 zr 是 李 球 在 
相应 坐标 轴 上 的 半径 。n 用 于 定义 采样 点 数 ， 黑 认 值 为 20。 当 输出 参数 默认 时 ，MATLAB 将 直接 
绘制 椭 球 面 。 

函数 ellipsoid 的 使 用 与 函数 sphere 相似 ， 用 户 可 以 参阅 前 面 调 用 函数 sphere 的 例子 。 


17.1.20 函数 slice 
函数 slice 可 以 用 来 绘制 三 维 切 片 图 ， 其 调用 格式 为 ， 


Slice(x,y,z,vV,SXx, SYS2zZ) ; 
slice(x,y,z,V,Xi,yi,zi)y; 
slice(V,SX,SY,SzZ); 
slLice(Vv,xi,yi,zi)y; 
slice(...，'method'); 


参数 说 明 : x，y 和 z 表示 三 维 坐标 。v 是 一 个 数组 ， 是 x，y 和 z 的 函数 。sx，sy 和 sz 用 于 指 
定 切 平面 的 坐标 。xi，yi 和 了 ij 定义 完全 的 切面 。method 用 于 指定 内 插值 的 方法 ， 可 选 值 为 ， linear 
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( 其 为 默认 值 ) 表示 使 用 三 次 线性 内 插值 法 ，cubic 表示 使 用 三 次 立方 插值 法 ，nearest 表示 使 用 


最 近 点 内 插值 法 。 

下 面 举例 说 明 函 数 slice 的 用 法 。 
[x,y,z] = meshgrid(-2:.2:2，-2:.25:2，-2:.16:2); % 生成 三 维 空间 的 坐标 
V=X.* exp(-x.^2 -Y.^2 - z.^4); g% 生成 三 元 函数 值 
[xi,yi]=meshgrid(-2:.1:2); $ 计算 网 格 坐 标 
zi=6xexp(-[xi.^2+yi.^2]) .xxiy # 计算 完全 切面 轴 坐 标 
zi(zi>l1)=1;zi(zi<-1)=-1) # 限制 zi 取 值 范围 
figurey $% 生 成 新 的 图 形 窗口 
subplot(121) slice(x,y,z,v,[-1.2 .8 2],2,[-2.-.2]);  s% 绘制 切片 图 
xlabel('{(a)',，'Fontsize',14,'Fontname' 'Times New Roman'); % X 轴 标 柱 
subplot (122) ;slice(x,yv,z,V,Zi,xivyi)y g 绘制 切片 图 


xlabel('(b)','Fontsize',14,'Fontname'，'Times New Roman'); $ X 轴 标 柱 


上 述 代 码 中 对 右 图 中 的 切面 数据 进行 了 削 项 操作 ， 再 调用 函数 slice 绘制 切片 图 。 运 行 上 述 程 
序 的 输出 结果 如 图 17.25 所 示 。 其 中 图 (a) 使 用 平面 进行 切片 ， 图 (b) 使 用 曲面 进行 切片 。 


ij: 轩 在 图 17.25 中 ， 图 (a) 是 利用 平整 的 面 切 三 元 函数 的 曲面 ， 而 图 (b) 利 用 的 则 是 这 曲 
的 面 。 





图 17.25 ”三维 切 片 图 


17.2 ”彩色 图 及 颜色 条 


前 面 介绍 的 函数 surf 和 surfc 等 可 以 得 到 彩色 的 图 形 , 对 于 彩色 图 形 的 修改 可 以 得 到 不 同 的 视 
觉 效 果 ， 利 用 好 彩色 图 像 的 着 色 技术 可 以 增加 图 形 的 表现 力 。 


17.2.1 控制 着 色 方 式 
MATLAB 提供 了 函数 colormap 控制 着 色 方 式 ， 该 函数 调用 格式 为 ， 


colormap (map) 
colormap('default') 
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Colormap ('Sstylename') 

参数 说 明 : map 是 一 个 3 列 矩 阵 ， 其 元 素数 值 定义 于 区 间 [0,1。 和 矩阵 的 每 行 元 素 表示 1 个 真 
彩色 向 量 ， 即 红 、 绿 、 蓝 3 基色 的 系数 。default 用 于 设置 当前 彩色 图 为 默认 色 图 。 stylename 表示 
MATLAB 提供 的 预定 义 的 色 图 样式 名 称 ， 其 具体 取 值 如 表 17.2 所 示 。 





表 17.2 MATLAB 中 预定 义 的 色 图 样式 











色 图 名 称 说 明 _ 色 图 名 称 说 明 
autumn 平滑 的 红 、 橘 黄 、 黄 色 jet 蓝 色 为 头 、 红 色 为 尾 的 饱和 色 
bone 高 蓝 色 灰 度 渐进 lines 多 线 绘制 时 的 配置 色 
colorcube 三 纯色 浓淡 交错 pink 淡 粉 红色 图 
cool 青色 、 品 红色 浓淡 交错 prism 
copper 纯 铜 色 线 性 spring 
flag 红 、 白 、 蓝 、 黑 色 交 错 summer 
gray 灰 度 渐 进 winter 蓝 绿 浓淡 色 图 
hot 黑 、 红 、 黄 、 和 白色 浓淡 交错 white 纯 白 色 图 
hsv 两 端 为 红色 的 饱和 色 
下 面 给 出 色 图 着 色 方案 控制 的 例子 : 
load spine; # 导入 图 像 数据 
figure; image(X) ; colormap bone;  $% 显示 图 像 ， 并 设置 着 色 方 案 为 bone 
figure; image(X); colormap{('hot');  % 显示 图 像 ， 并 设置 着 色 方 案 为 hot 


运行 上 述 程序 ， 输 出 图 像 如 图 17.26 所 示 。 





图 17.26 着 色 方 案 测 试 结果 


5 函数 colormap 将 对 图 形 窗口 内 的 所 有 图 形 着 色 ， 因 此 需要 在 不 同 图 形 窗口 中 才能 
得 到 不 同 的 着 色 方 案 。 
17.2.2 图 片 亮度 的 控制 
函数 brighten 可 以 实现 对 图 片 明暗 的 控制 ， 其 调用 格式 为 : 
brighten(beta)，; 


参数 说 明 : beta 是 一 个 定义 于 [-1, 1 区 间 内 的 数值 ， 其 中 beta 在 [0, 1 范围 内 时 色 图 较 亮 。 
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下 面 的 语句 可 以 测试 明暗 的 差别 : 


figureyimage(X) ;colormap bonelbrighten(0.6) 
figure;image (X) ;colormapb boneibrighten(-0.6) 


上 述 程序 得 到 如 图 17.27 所 示 的 结果 ， 读 者 可 以 比较 二 者 的 亮度 与 输入 参数 的 关系 。 








图 17.27 不同 亮 度 的 比较 


17.2.3 绘制 色 轴 
函数 colorbar 用 于 绘制 色 轴 ， 即 各 种 颜色 对 应 的 数值 ， 其 调用 格式 为 ， 


Colorbar' 
Colorbar ('Location') 7 

参数 说 明 : Location 用 于 指定 色 轴 的 位 置 ， 其 可 选 值 为 , North 对 应 于 坐标 轴 内 部 上 侧 ，South 
对 应 于 坐标 轴 内 部 下 侧 , East 对 应 于 坐标 轴 内 部 右 侧 , West 对 应 于 坐标 轴 内 部 左 侧 , NorthOutside 
对 应 于 坐标 轴 外 部 上 侧 ，SouthOutside 对 应 于 坐标 轴 外 部 下 侧 ，EastOutside 对 应 于 坐标 轴 外 部 右 
侧 ，WestOutside ( 其 为 默认 值 ) 对 应 于 坐标 轴 外 部 左 侧 ， 这 些 位 置 关系 对 应 于 地 图 上 的 方位 关系 。 


17.2.4 ”指定 色 轴 的 刻度 
函数 caxis 用 于 指定 色 轴 的 刻度 范围 和 比例 ， 其 调用 格式 为 : 


caxis(V) 
caxis('manual ') 
caxis('auto') 
参数 说 明 : v 是 一 个 含 2 个 元 素 的 向 量 ， 用 于 指定 色 轴 的 取 值 范围 。manual 用 于 指定 在 当前 
范围 内 的 色 轴 比例 。Auto 表示 设置 自动 对 应 于 数值 范围 。 
下 面 举例 说 明 函 数 colorbar 和 函数 caxis 的 用 法 ， 程 序 如 下 : 
figure; g 生 成 新 的 图 形 窗 口 


colorbar('North'); s 把 色 轴 放置 在 坐标 轴 内 部 上 便 
colorbar('South'); s% 把 色 轴 放置 在 坐标 轴 内 部 下 侧 


colorbar{('East');  % 把 色 轴 放置 在 坐标 轴 内 部 右 侧 
colorbar('West'); g% 把 色 轴 放 午 在 坐标 轴 内 部 左 侧 
caxis([0,2]); #% 设置 色 轴 范围 
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colorbar('Northoutside'); ss 把 色 轴 放置 在 坐标 轴 外 部 上 侧 
colorbar('Southoutside'); % 把 色 轴 放置 在 坐标 轴 外 部 下 侧 
colorbar('EastOutside'):; 当 把 色 轴 放置 在 坐标 轴 外 部 右 侧 
colorbar('WestOutside'); s# 把 色 轴 放置 在 坐标 轴 外 部 左 侧 


上 述 程序 运行 后 可 以 得 到 如 图 17.28 所 示 的 图 形 。 

0 0o5 1 15 2 

2 1 2 

1 二 民 1 

有 -| 
o 05 1 
0 05 1 15 2 

图 17.28 色 轴 的 绘制 


从 图 17.28 中 可 以 看 出 函数 caxis 对 其 前 后 调用 函数 colorbar 绘制 的 色 轴 的 数值 范 
CE 困 都 是 有 限制 的 。 


17.2.5 图 形 的 映像 数据 表 
函数 rgbplot 可 以 用 来 绘制 图 形 的 映像 数据 表 ， 其 调用 格式 为 : 
rgbplot (map) 
参数 说 明 : map 是 颜色 映像 ， 是 3 列 矩 阵 。 函 数 rgbplot 以 红 、 绿 、 蓝 3 种 颜色 绘制 相应 的 3 


列 数 据 。 
下 面 举 例 说 明 函 数 rgbplot 的 用 法 。 


figurey % 生 成 新 的 图 形 窗口 

load woman; subplot (131) ;rgbplot (map) axis square; % 绘制 woman .mat 数据 中 的 颜 
色 上 映像 

xlabel('(a)'，'Fontsize',14,'Fontname'，'Times New Roman'); $ X 轴 标 柱 

load spine;subplot (132) ;rgbplot (map) axis squarei #% 绘制 spine .mat 数据 中 的 
颜色 映像 

xlabel(' (b)','Fontsize',14,，'Fontname'，'Times New Roman'); $ X 轴 标 柱 

subplot (133) ;rgbplot (jet) ;axis square; # 绘制 jet 着 色 方 式 的 颜色 映像 
xlabel('(c)'，'Fontsize' ,14, Fontname'，'Times New Roman');  #% X 轴 标 柱 


运行 上 述 程序 ， 输 出 图 形 如 图 17.29 所 示 。 





4 











图 17.29 函数 rgbplot 绘制 的 图 形 
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17.2.6 设置 颜色 演 染 属性 
函数 shading 可 以 用 来 设置 图 形 的 颜色 泻 染 属性 ， 调 用 格式 为 ， 


shading 
shading flat 
shading interp 
shading faceteda 

参数 说 明 : flat 表示 网 格 线 与 网 格 表面 颜色 相同 ， 颜 色 取 线段 两 端 或 者 网 格 中 下 标 最 小 点 的 颜 
色 。Interp 表示 网 格 线 和 网 格 表面 的 颜色 由 端点 和 顶点 的 颜色 经 插值 计算 获得 。faceted ( 其 为 默认 
值 ) 表示 在 flat 着 色 方 式 的 基础 上 ， 由 网 格 四 周 勾画 黑色 网 格 线 。 

下 面 举例 说 明 函 数 shading 的 3 种 着 色 方式 的 效果 。 


figurey # 生 成 新 的 图 形 窗口 

subplot (131) ;peaks(40) ;shading flat; g 绘图 并 以 flat 方式 进行 颜色 泻 
xlabel('flat', Fontsize',14,'Fontname'，'Times New Roman'):; 当 X 轴 标 柱 

subplot (132) ;peaks (40) ; shading interpy; g 绘图 并 以 interp 方式 进行 颜色 
泻 染 

xlabel('interp'，,'Fontsize',14,'Fontname','Times New Roman'); sg% X 轴 标 柱 

subplot (133) ;peaks(40) ;shading faceted; % 绘图 并 以 faceted 方式 进行 颜色 
演 染 

xlabel ('faceted','Fontsize',14,'Fontname','Times New Roman'); % X 轴 标 柱 


运行 上 述 程序 ， 输 出 图 形 如 图 17.30 所 示 。 





图 17.30 ”颜色 泻 染 结果 


在 图 17.30 中 ， 当 绘图 数据 中 采样 点 较 多 时 ， 图 (a) 将 和 图 (b) 相 近 。 


17.2.7 ”透明 度 的 设置 


可 以 通过 绘图 对 象 的 属性 FaceAlpha 和 EdgeAlpha 来 设 定 曲面 对 象 的 透明 度 ， 此 外 用 户 还 可 
以 利用 函数 alpha 设置 当前 坐标 轴 内 绘图 对 象 的 透明 程度 ， 该 函数 调用 格式 为 : 


alpha (V) 
alpha('x'") 
alphal('y') 
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alpha('Z') 
alphal(' rand' ) 
alphal('scaled') 
alphal('direct') 

参数 说 明 : v 是 一 个 介 于 0 和 1 之 间 的 数 ， 用 于 控制 图 形 对 象 的 透明 程度 ， 当 v 较 小 时 透明 性 
较 好 。x，y 和 z 用 于 设 定 相应 方向 为 透明 。rand 用 于 设 定 随机 透明 。scaled 和 direct 用 于 指定 透 
明 性 的 映像 数据 类 型 。 

下 面 举 例 说 明 透 明 性 的 设 定 。 


figure' gs 生成 新 的 图 形 窗口 

subplot (131) ;surf(peaks, 'FaceRlpha',0.3,'Edgealpha',0.3);  * 绘图 并 指定 面 和 线 的 透 
明 参 数 

subplot (132).;surf(peaks);alpha(0.4); s 绘图 ， 设 定 坐 标 轴 内 图 形 的 透明 程度 
subplot(133) ;surf(peaks);alphal('rand'); g 绘图 ， 设 定 坐 标 轴 内 图 形 的 透明 程 
度 为 随机 


运行 上 述 程序 ， 所 得 图 形 如 图 17.31 所 示 。 





0D 0 0 0 0 0 


图 17.31 设 定 图 形 对象 为 不 同 的 透明 程度 


说 明 这 里 使 用 了 图 形 对 象 属性 FaceAlpha 和 EdgeAlpha 以 及 函数 alpha 来 设 定 曲面 的 透 
明度 。 


17.2.8 单 色 网 格 曲面 

有 时 需要 得 到 黑色 网 格 线 对 应 的 曲面 ， 从 前 面 介 绍 的 例子 中 ， 知 道 通过 设置 图 形 对 象 的 
EdgeColor 属性 可 以 使 网 格 线 颜 色 变 为 黑色 。 本 节 再 介绍 利用 函数 colormap 来 设置 黑色 网 格 线 的 
方法 ， 即 通过 下 面 的 语句 实现 : 


[X,Y,Z]=peaks (30) ; sg 生成 曲面 数据 
figurey % 生 成 新 的 图 形 窗口 

mesh (X,Y,Z) ; # 绘制 网 状 图 
colormap([0,0,0]); gs 设置 为 黑色 映像 关系 


运行 上 述 程序 ， 输 出 图 形 如 图 17.32 所 示 。 
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图 17.32 ”黑色 网 格 线 的 网 状 图 


AiE 症 需要 注意 的 是 绘制 这 样 的 网 格 线 图 时 ， 采 样 点 数据 适中 即 可 。 如 果 网 格 线 密集 则 


用 户 可 以 在 函数 colormap 中 设置 其 他 含 3 个 元 素 的 向 量 以 得 到 其 他 颜色 的 网 格 线 。 
显示 不 出 来 曲 面 的 脉络 ， 稀 芍 则 会 使 精度 降低 。 


前 面 介绍 的 函数 waterfall 绘制 的 曲面 带 有 下 面 的 流水 效果 部 分 ， 这 里 考虑 去 掉 流 水 效果 ， 即 
绘制 由 单 向 线条 组 成 的 曲面 图 。 作 者 编写 了 函数 meshxy ( 其 保存 于 光盘 中 \Ch17 文件 夹 下 的 
meshxy.m 文件 ) 来 实现 这 个 功能 ， 程 序 实现 的 思想 是 依次 调用 函数 plot3 绘制 三 维 曲线 。 该 函数 
调用 格式 为 : 

Immeshxy (X,Y,Z,c,G): 

参数 说 明 : X,，Y 和 Z 表 示 曲 面 的 数据 ， 这 里 要 求 X, Y 和 了 Z 是 3 个 相同 大 小 的 矩阵 。c 表示 取 
线 的 颜色 ， 可 以 是 特殊 颜色 ， 也 可 以 用 3 个 元 素 定义 的 颜色 来 表示 。d 是 表示 方向 的 字符 串 ， 可 选 
值 为 x 和 y， 其 中 x 表 示 X 轴 上 的 网 格 线 ，y 表示 Y 轴 上 的 网 格 线 。 


下 面 举 例 说 明 函 数 meshxy 的 用 法 。 
[X,Y,Z]=peaks (30) ; gs 生成 曲面 的 离散 数据 
[Xi,Yi]=meshgrid(-3:.1:3,-2:.1:2); gs 生成 离散 采样 坐标 
Zi=Yi.*exp(-[Xi.^2+Yi.^2]); g 计算 二 元 函数 值 
subplot (121) ;meshxy (X,Y,Z，'k'y'x3); # 绘制 X 轴 上 的 黑色 线条 曲面 
xlim([-3,3]);ylim([-3,3])， s# 设置 数据 范围 
xlabel('(a)'，'Fontsize',14,，'Fontname'，'Times New Roman'); % X 轴 标 柱 
subplot (122) ;meshxy (Xi,Yi,Zzi,'r''y'); ss% 绘制 Y 轴 上 的 红色 线条 曲面 
xlim([-3,3]);ylim([-2,2])， # 设置 数据 范围 
xlabel('(b)','Pontsize',14,'Fontname'，'Times New Roman'); % X 轴 标 柱 


上 面 的 程序 利用 函数 meshxy 和 两 个 输入 参数 绘制 一 个 方向 的 网 状 图 , 其 中 分 别 给 出 了 X 轴 方 
向 和 Y 轴 方 向 的 曲面 图 。 运 行 上 述 程序 ， 所 得 图 形 如 图 17.33 所 示 。 
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图 17.33 ”由 单 向 线条 组 成 的 网 状 图 
对 于 函数 meshxy 的 图 形 ， 同 样 可 以 利用 NaN 切割 。 把 下 面 两 条 语句 加 到 前 面 程序 中 语句 
“subplot(121);meshxy(X,YZ,k',x); "之 前 ,执行 后 即 可 得 到 如 图 17.34 所 示 的 具有 切割 效果 的 图 形 。 


Z(X<0&Y>0) =NaN; 
Zi (Xi<0O&Yi<0)=NaNy; 





图 17.34 ”具有 切割 效果 的 网 状 图 


17.3 视角 与 光照 
本 节 来 介绍 视角 和 光照 方面 的 函数 用 法 ， 利 用 它们 可 以 进一步 加 强 三 维 图 形 的 表现 力 。 


17.3.1 改变 三 维 图 形 的 视角 
用 户 可 通过 函数 view 和 鼠标 两 种 方式 来 改变 三 维 图 形 的 视角 。 函 数 view 的 调用 格式 为 ; 


View(RAZ,EL) 
view([RAZ,EL]) 
view([X，Y，2]) 
View(2) 
View(3) 
参数 说 明 : 参数 AZ 和 EL 分 别 为 方位 角 ( Azimuth ) 和 仰角 ( Elevation )。 X，Y 和 莹 用 于 设置 
笛 卡 儿 坐 标 系 视角 ， 向 量 [X, Y 刁 对 应 的 单位 方向 矢量 起 作用 ( MATLAB 忽略 了 该 向 量 的 振幅 )。 2 
表示 设 定 图 形 对 象 为 二 维 形 式 ， 即 从 Z 轴 上 方向 下 看 ( 即 俯视 图 ， 其 中 AZ=0，EL=90 )。3 是 函 
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数 view 的 默认 值 ， 此 时 AZ=-37.5，EL=30。 


下 面 举例 说 明 函 数 view 的 用 法 。 
[x,y,z]=peaks(30) s 生成 绘图 数据 
figure s# 新 建 图 形 窗口 
subplot (131) ;mesh(x,y,z) ;view(-49,36);xlim([-3,3]);ylim([-3,3]); ss 绘图 并 设 定 视 
角 和 坐标 范围 
xlabel('(a)'，'Fontsize',14,'Fontname'，'Times New Roman') gs X 轴 标 柱 
Subplot (132);surf (x,y,z) ;view([3,2,1]);xlim([-3,3])7ylim([-3,3])7  $ 绘图 并 设 定 
视角 和 坐标 范围 
Xlabel('(b)'，'Fontsize',14，'Fontname'，'Times New Roman' )， s X 轴 标 柱 
subploct (133) ;Surf{(x,y,z);view(2);xlim([-3,3]);ylim([-3,3])， 绘图 并 设 定 视 
角 和 坐标 范围 
Xlabel('(c)'，'Fontsize',14,，'Fontname'，'Times New Roman'); s X 轴 标 柱 


运行 上 述 程序 ， 输 出 图 形 如 图 17.35 所 示 。 
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图 17.35 “不同 视角 下 的 曲面 图 形 
除了 前 面 介绍 的 函数 view， 用 户 还 可 以 利用 鼠标 来 手动 设置 坐标 轴 的 视角 。 有 具体 做 法 如 下 : 
首先 单 击 图 形 窗口 中 3 维 旋转 按钮 ( Rotate 3D )， 如 图 17.36 所 示 ; 然后 在 坐标 轴 窗 口内 单 击 鼠 标 
左 键 就 会 出 现 一 个 虚线 圆圈 , 按 住 左 键 不 放 移 动 鼠 标 就 可 以 旋转 坐标 轴 , 此 时 窗口 左下 角 位 置 会 出 
现 AZ 和 EL 的 实时 取 值 ， 用 户 判断 当前 坐标 轴 视 角 是 否 合适 ， 如 果 满 足 要 求 了 ， 释 放 左 键 就 可 以 
选 定 当前 视角 了 。 利 用 这 种 方法 确定 单个 坐标 轴 的 视角 可 以 比较 快 地 找到 合适 的 视角 。 





图 17.36 ”利用 鼠标 修改 坐标 轴 的 视角 
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17.3.2 ”灯光 效果 设置 


MATLAB 提供 了 camlight，light，ligtangle，lighting，material 等 函数 设置 灯光 效果 ， 下 面 介 
绍 这 几 个 函数 的 用 法 。 
camlight headlight 
camlight right 
camlight 1eft 
camlight (AZ，EL) 
carlight(...，'Style') 

参数 说 明 : headlight，right，left 表示 创建 相对 于 摄像 方位 的 灯光 ， 它 们 分 别 表示 上 方 、 左 侧 
和 右 侧 方位 。AZ 和 EL 表示 灯光 的 方位 角 ( Azimuth ) 和 仰角 ( Elevation )。style 表示 灯光 的 类 型 ， 
可 取 值 为 :local ( 其 为 黑 认 值 ) 表示 灯光 在 各 个 方向 都 有 辐射 光 ; infinite 表示 光源 发 出 平行 光 ， 
即 光源 置 于 无 限 远 处 。 

函数 light 用 于 修改 当前 灯光 对 象 的 属性 ， 其 调用 格式 为 : 


1ight ('PropertyName' ，PropertyValue，...) 


参数 说 明 : 参数 PropertyName 和 PropertyValue 分 别 是 灯光 对 象 的 属性 和 属性 值 。 该 函数 的 
属性 有 : Position 表示 灯光 的 位 置 ， 其 为 3 个 元 素 的 向 量 ， 默 认 值 为 [1,0,1] ，Color 表示 灯光 的 颜色 ， 
默认 为 白色 ; style 表示 光源 的 位 置 ， 可 选 值 为 infinite 无 穷 远 ( 其 为 默认 值 ) 和 local 近 处 。 

函数 lightangle 用 于 设 定 光 源 的 方位 角 ， 其 调用 格式 为 : 


1ightangle{(aA2，EL) 


参数 说 明 : AZ 和 EL 表示 灯光 的 方位 角 { Azimuth ) 和 仰角 ( Elevation ) 
函数 lighting 用 于 指定 光源 照明 的 模式 ， 其 调用 格式 为 : 


1ighting flat 
1ighting gouraud 
1ighting phong 
1ighting none 

参数 说 明 : flat ( 其 为 默认 值 ) 表示 光线 均匀 地 照射 到 图 形 面 上 。gouraud 表示 对 顶点 颜色 插 
补 ， 然 后 对 项 点 勾画 的 面色 进行 插 补 ( 常用 于 曲线 表现 j。phong 表示 对 项 点 法 线 插 值 后 计算 像素 
的 反 色 。none 表示 关闭 光源 。 

函数 material 用 来 控制 光照 效果 的 材质 ， 其 调用 格式 为 : 


material shiny 

material dul1 

material metal 
material([ka，kd，ks]) 
material([ka，kda，ks，n]) 
material([ka，kda，ks，n，sc])》 


参数 说 明 : shiny 表示 光照 比较 明亮 。dull 表示 光照 暗淡 。metal ( 为 默认 值 ) 表示 光照 带 有 人 金 
属 光泽 。Ka，kd，ks，nm，sc 表示 反射 过 程 的 系数 ， 具 体 含义 为 : ka 表示 各 向 同性 均匀 的 背景 光 
的 强度 ，kd 表示 漫 反射 强度 ，ks 表示 硬 反射 系数 ，n 表示 控制 镜面 亮点 大 小 的 镜面 指数 ，sc 表示 


晤 二 可可 445 


MATLAB 科学 计算 与 可 视 化 仿真 宝典 > > je 和 


镜面 颜色 的 反射 系数 。 
下 面 举 例 说 明 上 面 介绍 的 函数 用 法 。 


subplot (141) ;surf(peaks(30) ) ;camlight(43,120) g% 绘图 并 设置 光源 位 置 
Xlabel('(a)'，'Fontsize' ,14,，'Fontname'，'Times New Roman'); # X 轴 标 柱 

本 (142) ;surf(peaks{(30))71ight('Color' rz) g 绘图 并 设置 光源 颜 
xlabel('(b)','Fontsize',14,，'Fontname'，'Times New Roman' ); 多 X 轴 标 柱 

subplot (143) ; surf(peaks (30) ) ;1ighcing{'phong') % 绘图 并 设置 插值 算法 
xlabel('(c)'，'Fontsize',14,，'Fontname'，'Times New Roman' ); s X 轴 标 柱 

subplot (144) ;surf(peaks(30) ) ;material dull1; # 绘图 并 设置 光照 效果 材质 
xlabel('(d)'，,'Fontsize' ,14,，'Fontname'，'Times New Roman'); $% X 轴 标 柱 


上 述 程序 运行 后 得 到 图 形 如 图 17.37 所 示 。 
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图 17.37 ”光照 效果 图 


17.4 图 形 的 注释 


对 于 三 维 图 形 的 注释 可 以 使 用 的 函数 有 text，xlabel，ylabel，zlabel 和 legend 等 ， 这些 函 数 的 
调用 格式 在 第 16 章 已 经 介绍 过 ， 这 里 直接 举例 说 明 这 几 个 函数 的 用 法 。 
下 面 一 段 程序 给 出 了 不 同类 型 的 标注 。 


t=1linspace(0,pPi,201); #% 变量 离散 采样 

xl=cos(t*8);Y1=sin(t*8);ZI1=t， g 生成 绘图 数据 

x2=cos (t*8)/2;Y2=sin(t*8)/2;z2=t; sg 生成 绘图 数据 

plot3 (xl,yl,zl,'k')zhold on; # 绘制 三 维 曲线 

plot3(x2,y2,z2,r:'); gs 绘制 三 维 曲线 

legenda('C1'，'C2' ,1); # 图 例 标 注 

xlabel('f\itxl (mm)' :Fontname'，'Times New Roman'，'Fontsize',14,'Rotation' ,17) 
# 标注 X 轴 


ylabel('{\ity] (mm)'，'Fontname'，'Times New Roman'，'Fontsize',14， "Rotation',-30)7 


% 标注 Y 轴 


z=zlabellt'f\itzl (mm)'，'Fontname'，'Times New Roman'，'Fontsize'， 14) 务 
标注 Z 轴 
title('3D curves'，'Fontname'，'Times New Roman',，'Fontsize',14): 甸 
标注 图 题 


text(-0.5,0.5,4,'3D {Nitcircle}'，'Fontname'，'Times New Roman',，'Fontsize'v14) 1; 


% 注释 文字 


首先 程序 给 出 了 三 维 曲线 的 绘制 , 然后 调用 函数 legend 添加 图 例 、 调 用 函数 xlabel 以 及 ylabel 
和 zlabel 添加 坐标 轴 标 注 、 调 用 title 函数 添加 图 题 、 调 用 函数 text 在 图 中 加 字符 标注 。 运行 上 述 程 
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序 ， 输 出 如 图 17.38 所 示 的 图 形 。 
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17.38 图 形 注释 示例 
在 用 户 调用 函数 gtext 利用 鼠标 在 三 维 坐标 轴 内 进行 标注 时 ， 调 用 下 面 语句 : 


gtext{('3D {N\itcirclel'，'Fontname'，'Times New Roman'，'Fontsize' 14) g 鼠标 注 
释文 字 


MATLAB 将 会 提示 用 户 : 


??? ErIor using ==> 9gEext at 39 
View must be two-dimensional . 


如 果 用 户 把 函数 文件 gtext,m ( 可 用 语句 edit gtext 打开 该 文件 ) 中 的 37 一 40 行 语 句 打 开 ， 看 


到 
[az el] = View; 
if az ~=0 1| el ~= 90 
error('MRATLRB :gtext :InvalidView'，'View must be two-dimensional.') 
end 


就 表示 函数 gtext 可 以 在 三 维 坐标 轴 中 注释 文字 内 容 了 。 通 过 可 编辑 按钮 ( Edit plot ) 可 以 调 
整 函数 gtext 标注 文字 的 字体 、 字 号 和 位 置 等 属性 。 

斜体 希腊 字母 的 注释 可 以 利用 控制 字符 “\it” 和 希腊 字母 的 控制 符 ( 具体 内 容 可 参见 表 16.9 )， 
语法 格式 为 : 

上 text (X,Yy,Z，'{NitNVbetal ') 

此 时 得 到 斜体 希腊 字母 的 图 形 通过 找 屏 的 方式 可 以 得 到 斜体 的 希腊 字母 ， 但 是 如 果 是 通过 
saveas 和 print 来 复制 得 到 图 形 ， 其 斜体 希腊 字母 将 变 为 直 体 。 另 外 一 个 得 到 斜体 希腊 字母 的 途径 
是 利用 完整 版 Adobe Acrobat 软件 提供 的 打印 机 “Adobe PDF” 来 打印 当前 图 形 窗口 中 的 内 容 为 
PDF 文件 。 在 利用 Adobe Acrobat 软件 把 PDF 文件 转 为 eps 或 者 tif 等 文件 格式 时 ， 所 得 图 像 文 
件 在 四 周 存在 空白 区 域 ， 可 以 通过 Adobe Acrobat 软件 提供 的 “剪裁 页 面 ”菜单 功能 将 其 切 去 。 
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17.5 “小 结 
本 章 主 要 介绍 了 三 维 图 形 的 绘制 方法 。MATLAB 提供 了 很 多 关于 三 维 绘图 方面 的 函数 , 利用 它 
们 可 以 方便 地 绘制 三 维 图 形 。 首 先 介 绍 了 三 维 网 状 图 、 曲 面 图 以 及 特殊 形式 的 三 维 图 形 ( 如 饼 图 、 
旋转 体 、 流 水 效果 的 图 形 和 等 高 线 等 ) 的 绘制 方法 。 接 下 来 介绍 了 彩色 图 形 的 颜色 管理 以 及 色 轴 的 


添加 与 修改 方法 ， 它 们 对 于 增加 图 形 表现 力 具 有 重要 作用 。 最 后 还 介绍 了 单 色 网 格 曲面 的 绘制 、 控 
制 视 角 和 光照 的 方法 ， 以 及 三 维 图 形 的 标注 方法 。 


会 令 镶 
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第 ]8 章 ， 用 户 图 形 界 面 设计 


人 菜单 设计 介绍 不 同类 型 菜单 条 的 设计 方法 。 

@ 自 定义 工具 条 介绍 工具 条 的 制作 和 按钮 的 设计 方法 。 

人 控件 设计 介绍 利用 函数 uicontrol 设计 不 同 控件 的 方法 。 

急 对 话 框 ”介绍 不 同类 型 对 话 框 的 创建 过 程 。 

多 实例 介绍 利用 GUIDE 工具 设计 图 形 界 面 窗 口 ， 同 时 给 出 GUI 实例 。 


图 形 用 户 界 面 { Graphical User Interfaces， 简 称 GUI ) 是 MATLAB 提供 的 人 机 交互 操作 的 一 
个 工具 和 方法 ， 本 章 主要 介绍 这 方面 的 知识 。GUI 是 包含 基本 图 形 对 象 ， 如 坐标 轴 窗口 、 按 钮 、 编 
辑 框 文本 框 、 滑 动 条 等 控件 的 用 户 操作 界面 。 通 过 选择 不 同 的 图 形 对 象 、 设 置 其 关键 属性 ,可 以 引 
起 不 同 的 动作 ， 比 如 利用 鼠标 在 坐标 轴 取 点 、 单 击 鼠 标 执行 不 同 的 动作 等 。 一 个 比较 好 的 GUI 作 
品 可 以 很 直观 地 让 用 户 进行 交互 式 操作 。MATLAB 提供 了 比较 全 面 的 空间 类 型 来 组 建 GUI。 同 时 在 
GUI 环境 中 还 可 以 调用 其 他 MATLAB 计算 程序 ， 从 而 结合 MATLAB 强大 的 计算 功能 。 


18.1 菜单 设计 


除了 MATLAB 自 带 的 图 形 窗 口 菜单 ， 如 图 18.1 所 示 ， 用 户 还 可 以 创建 新 的 菜单 。MATLAB 提 
供 了 uimenu, menu 和 uicontextmenu 等 函数 来 制作 不 同形 式 的 菜单 。 下 面 详细 介绍 这 些 函 数 的 用 
法 。 








图 18.1 图 形 窗口 的 界面 


18.1.1 函数 及 使 用 说 明 
函数 uimenu 可 以 在 图 形 窗口 内 添加 菜单 条 ， 其 调用 格式 为 ， 
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uimenu (H,'PropertyNamel' ,valuel,，'PropertyName2' ,value2,..:.) 


参数 说 明 : H 是 Figure 窗口 或 者 菜单 条 对 象 的 句柄 。PropertyName1 和 PropertyName2 是 
菜单 条 对 应 的 属性 名 称 ，value1 和 value2 是 属性 相应 的 取 值 。 
函数 uimenu 的 常用 属性 如 表 18.1 所 示 。 


表 18.1 uimenu 的 属性 说 明 


属性 名 称 说 明 属性 名 称 说 明 

Checked 菜单 检查 标记 ， 默 认 值 为 of Accelerator 键盘 快捷 键 设置 ( Ctl+ 字 符 ) 

ForegroundColor ”菜单 条 上 文字 的 颜色 ， 默 认 值 为 ”Callback 回调 函数 ， 由 若干 语句 组 成 

黑色 
Label 菜单 上 的 文字 内 容 Enable 设置 菜单 是 否 有 效 ， 默 认 值 为 
on 
Position 菜单 的 相对 位 置 序号 Separator 分 割 行 模式 ， 默 认 值 为 of 
下 面 举 例 说 明 函 数 uimenu 的 用 法 : 

figurey #$ ”新 建 图 形 窗口 
H=uimenu(gcf,，'1abel'，'Tools1'); gs 在 Figure 窗口 上 添加 菜单 项 目 rools1 
H1=uimenu(H,'1label'，'cut'); % 在 项 目 Toolsl 中 增加 cut 选项 
H2=uimenu(H, '1abel'，'Delete') 1; g% 在 项 目 Toolsl 中 增加 Delete 选项 
H3=uimenu(H,'Label','Ccopy'，,'Separator','on'); % 在 项 目 Toolsl 中 增加 copy 选项 
H4=uimenu(H,'1abel'，'Undo') g% 在 项 目 Toolsl 中 增加 Undeo 选项 
H21=uimenu(H2,'Label','curve')) ， # 在 选项 Delete 中 增加 Curve 选项 


运行 上 述 程序 ， 所 得 菜单 展开 形式 如 图 18.2 所 示 。 
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图 18.2 自制 菜单 示例 
函数 uicontextmenu 可 以 用 来 创建 上 下 文 菜单 ， 其 调用 格式 为 : 
handle = uicontextmenu('PropertyName',PropertyValue,...) 


参数 说 明 : 参数 handle 是 函数 uicontextmenu 输出 的 句柄 ， 通 过 它 用 户 可 以 查看 和 修改 上 下 
文 菜单 的 属性 值 。PropertyName 和 PropertyValue 分 别 是 属性 名 称 和 相应 的 取 值 。 
使 用 函数 uicontextmenu 一 般 要 结合 一 些 绘图 函数 , 用 于 创建 鼠标 在 图 形 对 象 上 单 击 右键 弹 出 
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的 菜单 。 下 面 以 函数 surf 绘制 的 曲面 为 例 说 明 函 数 uicontextmenu 的 用 法 ， 相 应 程序 如 下 ， 


cmenu = uicontextmenu:; % 定义 上 下 文 菜单 

hline = Surf{(peaks{(30),，'FaceCcolor','none','UIContextMenu'，cmenu) ; % 绘 制 曲面 ， 同 
时 设置 上 下 文 菜单 

cbl = ['set(gco，' LinesStyle''，''--')']; s 定义 回调 函数 内 容 

cb2 = ['set(gco，''DLineStyle''，'':')']) g% 定义 回调 函数 内 容 

cb3 = ['set(gco，''LineStyle''，'…-'…)']; % 定义 回调 函数 内 容 

cb4 = ['set(gco，''Edgecolor''，'y'')']; s# 定义 回调 函数 内 容 


uimenu (cmenu， "Label'，'dqashed'，'Ccallback'，cbl); & 利用 函数 uimenu 设置 右键 弹出 菜单 
uimenu (cmenu， "Label'， 'dotted'，'Callback'，cb2);  #% 利用 函数 uimenu 设置 右键 弹出 菜单 
uimenu (cmenu， "Label'，'solid'，'callback'，cb3); ss 利用 函数 uimenu 设置 右键 弹出 菜单 
uimenu (cmenu，“'Label'， 'yellow'，'Ccallback'，cb4); % 利用 函数 uimenu 设置 右键 弹出 菜单 


运行 上 述 程序 ， 用 户 在 曲面 对 象 内 右键 单 击 会 弹出 上 下 文 菜单 ， 如 图 18.3 所 示 。 











18.3 上 下 文 菜单 的 示例 


函数 Uicontextmenu 创建 对 象 的 句柄 作为 绘图 函 孝 surf 的 UIContextMenu 属性 值 ， 
上 下 文 菜 单 的 内 容 是 通过 函数 Uimenu 建立 的 ,设置 相应 的 回调 函数 内 容 可 以 执行 
不 同 的 动作 ， 这 里 设置 了 3 种 线 型 和 ye]llow 等 4 项 操作 ， 其 中 选 定 的 项 目 将 被 执 
行 相 应 回调 函数 中 的 内 容 。 





在 图 18.3 中 依次 选择 不 同 的 项 目 可 以 得 到 如 图 18.4 所 示 的 图 形 , 读者 可 以 比较 不 同 的 显示 效 
果 。 

MATLAB 中 部 分 函数 支持 UIContextMenu 属性 , 如 mesh, surf, plot 等 函数 , 而 fplot 和 ezplot 
等 函数 则 不 支持 这 个 属性 。 因 此 用 户 在 利用 UIContextMenu 属性 时 ， 需 要 事先 确定 绘图 函数 是 否 
支持 该 属性 ， 不 支持 则 需要 寻找 等 价 绘图 函数 来 替换 。 

函数 menu 可 生成 一 个 弹出 菜单 ， 可 供用 户 单 击 鼠标 选择 不 同 选项 ， 其 调用 格式 为 : 


menu ('header'，'iteml'，'item2'，..。); 
menu ( 'header'，itemlist); 


choice 
chojice 


Ni 外 
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图 18.4 利用 上 下 文 菜单 控制 图 形 对 象 的 样式 
参数 说 明 : choice 是 选择 结果 的 序号 。Header 表示 弹出 对 话 框 的 提示 内 容 。item1 和 item2 
等 表示 选项 按钮 上 面 显 示 的 文字 。ltemlist 是 由 item1 和 item2 等 组 成 的 细胞 数组 。 
下 面 举例 说 明 函 数 menu 的 用 法 。 


itemlist={'Red','Blue','Green']) % 输入 颜色 字符 串 
K = menu('Cchoose a color','Red','Blue','Green') % 生成 菜单 控件 
K1 = menu('Cchoose a color again',item1list) % 生成 菜单 控件 


执行 上 述 程序 可 以 得 到 如 图 18.5 所 示 的 图 形 窗口 。 





图 18.5 弹出 菜单 窗口 
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有。 和 用 画 效 nenu 得 到 的 来 单 窗口 的 大 小 被 针 定 ， 用 户 不 能 通过 风 标 拖 动 改变 大 小 。 
4 有。 窗口 默认 名 称 是 MENU。 用 户 单 击 鼠 标 选择 某 个 选项 之 后 ,这 个 图 形 窗口 自动 关闭 


18.1.2 回调 函数 设计 

回调 函数 是 GUI 设计 的 灵魂 , 控件 的 响应 动作 都 是 由 这 里 定义 的 。 在 函数 uimenu 以 及 回调 函 
数 ( CallBack ) 设计 中 ， 需 要 注意 的 是 : 回调 函数 的 内 容 以 字符 串 形 式 输入 ，MATLAB 自动 执行 字 
符 串 对 应 的 内 容 ， 即 相当 于 eval(CallBack_str) ， 因 此 要 求 输出 的 内 容 无 语法 错误 ， 回 调 函数 中 的 
内 容 是 合法 字符 串 。 值 得 注意 的 是 ， 字 符 串 型 内 容 中 的 单 引 号 需要 用 两 个 单 引 号 来 替换 。 比 如 : 


as=:BEZ1? 
Set (gcf，'Color'，w') 


将 上 述 这 样 的 语句 放 在 回调 函数 中 需要 按 下 述 方式 替换 : 
uimenu (hl,'1abel'，'RABC'，'CallBack' ya='str'557); # 在 句柄 hl 中 添加 菜单 条 
ns '1abel'，'DEF'，'CallBack''set(gcf, color yw5)7 9 在 句柄 hl 中 添 
加 菜单 


有 的 用 户 把 两 个 单 引 号 看 成 双 引 号 ， 从 而 引起 程序 错误 。 

回调 函数 中 ， 有 时 输入 内 容 过 长 ， 需 要 进行 换行 ， 此 时 需要 把 回调 函数 中 的 内 容 分 开 为 几 个 字 
符 串 。 不 同 字符 串 利用 方 括号 连接 起 来 ， 在 字符 串 之 间 用 逗号 分 开 , 在 任意 一 个 逗号 后 面 可 以 用 换 
行 符 换行 ， 比 如 下 面 的 例子 : 


El1=uimenu (gct,'1abel','Edit',，'callback',['a=''Str''i..。 
'set (gcf, Color 和 w'5)7])) % 设置 菜单 的 回调 函数 


在 换行 符 后 面 不 能 加 入 注释 内 容 ， 需 要 在 整个 语句 结束 后 面 的 位 置 加 入 注释 文字 。 
对 于 比较 复杂 的 回调 函数 内 容 ， 用 户 可 以 另行 建立 M 文件 实现 回调 函数 的 内 容 ， 然 后 把 M 文 
件 的 内 容 写 入 回调 函数 中 即 可 执行 其 任务 。 


18.2 自 定 义工 具 条 


图 18.6 给 出 了 Figure 窗口 自 带 工具 条 功能 的 说 明 ( 其 中 曲线 是 利用 
“plot(0:.01:1,humps(0:.01:1);” 得 到 的 )， 它 们 辅助 绘图 ， 并 可 以 实现 一 些 人 机 交互 操作 。 
18.2.1 图 形 编辑 功能 


由 图 18.6 可 见 ， 在 图 形 窗 口内 包含 了 丰富 的 图 形 编辑 功能 。 这 里 主要 介绍 激活 拖 动 图 形 功能 
按钮 、 显 示 数 据 按 钮 、 选 择 数 据 按钮 和 更 新 数据 曲线 按钮 等 内 容 。 


18.2.1.1 激活 拖 动 图 形 功 能 按钮 


当 用 户 单 击 激活 拖 动 图 形 功能 按钮 ( Pan ) 后 ， 按 下 鼠标 左 键 在 坐标 轴 内 拖 动 可 以 改变 坐标 轴 
的 显示 范围 ， 如 图 18.7 所 示 ( 鼠标 的 手 形 标志 未 显示 在 图 中 )。 
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生成 新 的 图 形 
窗口 按钮 


打开 其 他 图 形 
窗口 按钮 选择 数据 按钮 显示 图 形 编辑 
窗口 





保存 图 形 窗口 按钮 
他 显示 数据 按钮 
隐藏 图 形 编辑 
打印 图 形 窗口 按钮 1 三 维 旋转 按钮 忆 
添加 图 例 技 钮 


添加 色 轴 技 钮 


更 新 曲线 数据 
按钮 


图 18.7 ”利用 鼠标 拖 动 改变 坐标 轴 的 显示 范围 
18.2.1.2 ”显示 数据 按钮 


当 单 击 显示 数据 按钮 ( Data Cursor ) 后 ， 用 户 可 以 在 曲线 上 单 击 鼠标 左 键 ， 此 时 会 在 曲线 上 
显示 该 单 击 点 的 坐标 数值 ， 如 图 18.8 所 示 ， 这 一 点 在 查看 曲线 数据 时 非常 方便 。 用 户 在 非 曲线 区 
域 单 击 左 键 不 会 显示 数据 。 用 户 单 击 鼠 标 右键 会 显示 如 图 18.9 所 示 的 菜单 。 
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18.8 显示 曲线 上 鼠标 单 击 点 的 数据 图 18.9 单 击 鼠标 右键 显示 的 菜单 
下 面 介 绍 各 菜单 项 的 意义 。 
争 Selection Style 菜单 项 用 于 控制 选择 数据 的 方式 ， 其 下 有 两 个 子 菜单 项 ; Mouse Position 获 


争 


人 多 


取 鼠 标 所 在 位 置 数 据 ，Snap to Nearest Data Vertex 获取 最 近 数 据点 。 

Display Style 菜单 项 用 来 控制 数据 显示 的 类 型 ， 其 下 含有 两 个 子 菜单 项 ，Window Inside 
Figure 表示 在 图 形 窗 口内 增加 一 个 窗口 显示 数据 ( 选择 该 菜单 项 ，Create New Datatip， 
Delete Current Datatip, Delete All Datatips 菜单 项 为 灰色 , 同时 窗口 内 显示 的 数据 被 清除 )， 
Datatip 以 数据 标签 方式 显示 ( 如 图 18.8 所 示 的 样式 ) 

Create New Datatip 菜单 项 显示 曲线 上 一 个 点 的 数据 ， 如 此 下 去 可 以 显示 多 个 点 的 数据 。 
Delete Current Datatip 菜单 项 可 以 删 去 当前 的 数据 标签 。 

Delete All Datatips 菜单 项 可 以 删 去 所 有 的 数据 标签 。 

Export Data to Workspace 菜单 项 可 以 把 所 选择 的 数据 点 输出 到 工作 空间 ( workspace ) 中 。 
选择 该 菜单 项 时 ， 会 弹出 一 个 对 话 框 ， 如 图 18.10 所 示 ， 其 中 用 户 可 以 输入 变量 名 然后 单 
击 OK 按钮 即 可 把 数据 保存 到 workspace。 被 保存 的 数据 是 结构 体 数 据 。 如 : 


cursor_into = 

1x3 Struct array with fields: 
Target 
Position 
DataIndex 


多 


其 中 Target 对 应 着 曲线 的 句柄 ，Position 表示 所 取 点 的 坐标 数据 , Datalndex 表示 所 取 点 在 
绘图 数据 中 的 位 置 。 





图 18.10 ”数据 存储 对 话 杠 
Edit Text Updata Function 菜单 项 可 以 编辑 文本 升级 函数 ， 此 时 会 弹出 如 图 18.11 所 示 的 窗 
口 。 用 户 可 以 在 如 图 18.11 所 示 的 窗口 中 输入 自己 的 语句 。 


争 选择 Selected Text Updata Function 菜单 项 时 , 弹出 如 图 18.12 所 示 的 对 话 框 用 以 选择 文本 


本 本 晤 二 455 


MATLAB 科学 计算 与 可 视 化 仿真 宝典 > j> > 多 


升级 函数 。 





图 18.11 ”编辑 回调 函数 窗口 图 18.12 选择 文本 升级 函数 对 话 框 


18.2.1.3 选择 数据 按钮 


当 用 户 单 击 选择 数据 按钮 ( Brush/ Selected Data ) 时 ， 用 户 可 以 从 曲线 上 选择 数据 并 进行 相 
应 的 处 理 。 单 击 这 个 按钮 ， 用 鼠标 在 曲线 上 框 选 出 一 段 数据 ， 如 图 18.13 所 示 的 左 图 。 被 选择 的 范 
围 内 ， 绘 图 数据 利用 点 符号 标记 ， 而 曲线 变 为 红色 ， 同 时 线 宽 增 加 。 在 框 选 过 程 中 显示 黑色 线 框 ， 
并 在 黑色 线 框 下 面 显 示 横 纵 坐标 的 范围 。 
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图 18.13 利用 鼠标 选择 数据 
用 户 在 选择 的 曲线 上 单 击 鼠 标 右键 后 会 弹出 一 个 菜单 ， 如 图 18.13 所 示 的 右 图 。 用 户 可 以 
通过 菜单 来 修改 曲线 。 

争 Replace with 菜单 项 可 以 把 所 选区 域 的 数据 利用 NaN 和 一 个 常数 替换 。NaNs 子 菜单 项 可 
以 把 曲线 上 所 选区 域 删 去 ，Define a constant 子 菜单 项 可 以 定义 一 个 常数 替换 曲线 的 选 定 
数据 ( 此 时 会 弹出 如 图 18.14 所 示 的 窗口 )， 在 编辑 框 内 输入 某 一 常数 ( 默认 数值 为 0 ) 后 
单 击 OK 按钮 就 可 以 进行 替换 了 。 利 用 NaNs 和 Define a constant 替换 的 结果 如 图 18.15 





所 示 D 
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图 18.15 ”对 曲线 部 分 数据 进行 替换 的 结果 

争 _ Remove 菜单 项 可 以 把 所 选 数据 删 去 ， 剩 余 的 数据 再 通过 绘图 命令 得 到 新 的 图 形 ， 如 图 
18.16 所 示 。 用 直线 将 图 18.15 分 开 的 两 段 曲线 连接 起 来 就 得 到 了 图 18.16 所 示 的 结果 

急 Remove Unbrushed 菜单 项 可 以 把 未 选 定 的 数据 对 应 的 曲线 删 去 ， 从 而 保留 选 定 部 分 的 曲 
线 。 这 个 功能 可 以 用 于 从 整体 曲线 上 节选 部 分 曲线 。 

争 Create Variable 菜单 项 可 以 把 所 选 曲线 对 应 的 数据 保存 到 workspace 中 ， 选 择 该 菜单 项 可 
以 弹出 一 个 对 话 框 ( 如 图 18.17 所 示 )， 用 户 在 其 中 输入 变量 名 就 可 以 在 workspace 中 得 
到 同名 的 变量 ， 其 为 含有 两 列 元 素 的 矩阵 。 


Identif7 Brushed Graphic 3 | 





Yariable mname: 区 _ 








图 18.16 “对 曲线 数据 进行 删除 操作 的 结果 图 18.17 设置 变量 名 


争 Paste Data to Command Line 菜单 项 可 以 把 当前 所 选 线段 部 分 的 数据 输出 到 命令 窗 中 ， 输 
出 的 数据 是 两 列 元 素 的 和 矩阵。 
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旬 Copy Datato Clipboard 菜单 项 可 以 把 所 选择 曲线 对 应 的 数据 复制 到 剪贴 板 , 用 户 在 记事 本 
等 软件 中 进行 粘贴 操作 即 可 得 到 相应 的 数据 。 
争 Clear all brushing 菜单 项 用 于 清除 选 定 的 曲线 部 分 的 标记 ， 该 操作 和 单 击 左 键 效果 一 样 。 


18.2.1.4 ”更 新 数据 曲线 按钮 


当 用 户 单 击 更 新 曲线 数据 按钮 ( Link Plot ) 时 ， 信 息 提示 栏 会 提示 “No graphics have data 
Sources. Cannot link plot: fx ii” 这样 的 文字 。 其 中 “fx it” 对 应 着 一 个 链接 ， 用 鼠标 左 键 单 击 它 会 
弹出 如 图 18.18 左 图 所 示 的 对 话 框 。 

单 击 XdataSource, YdataSource 和 ZzdataSource 标签 处 的 下 拉 按 钮 可 以 显示 workspace 中 的 
变量 ， 选 择 相应 坐标 轴 的 数据 后 { 如 图 18.18 右 图 所 示 )， 饼 标 单 击 OK 或 者 Apply 按钮 即 可 把 选 
择 的 数据 绘制 到 坐标 轴 上 ， 如 图 18.19 所 示 ， 而 原来 的 曲线 被 删除 。 
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图 18.19 绘图 结果 
可 见 利 用 MATLAB 提供 的 这 些 工 具 按钮 可 以 方便 地 进行 图 形 编辑 。 
18.2.2， 个 性 化 图 标 


除了 前 面 介 绍 的 MATLAB 提供 的 工具 条 外 ， 用 户 还 可 以 自己 设计 工具 条 。 相 关 的 函数 有 
uitoolbar 和 uipushtool， 用 户 利用 它们 可 以 在 图 形 窗口 内 添加 自己 设计 的 按钮 。 下 面具 体 介绍 这 两 
个 函数 的 用 法 。 

函数 uitoolbar 可 以 在 图 形 窗口 上 增加 一 个 工具 条 ， 其 调用 格式 为 ， 


TH=uitoolbar (FH，'PropertyNamel1' ，Vvaluel， 'PropertyName2' ，Value2,，...): 
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参数 说 明 : TH 是 工具 条 输出 的 句柄 。FH 表示 图 形 窗口 的 句柄 。PropertyName1 和 
PropertyName2 等 表示 属性 名 称 。value1 和 value2 等 用 于 指定 属性 的 取 值 。 
函数 uipushtool 可 以 在 工具 条 中 添加 按钮 ， 其 调用 格式 为 : 


Ph=uipushtool (tbh， 'PropertyName1l'，valuel，'PropertyName2'，value2,，...) ? 


参数 说 明 : ph 是 函数 uipushtool 输出 的 句柄 。tbh 为 工具 条 的 句柄 ， 当 该 句柄 缺 省 时 MATLAB 
将 在 自 带 工具 条 下 面 添加 新 的 按钮 。PropertyName1 和 PropertyName2 等 表示 属性 名 称 。valuel 
和 value2 等 用 于 指定 属性 的 取 值 。 


18.2.3 ”参数 设置 
函数 uipushtool 中 的 常用 属性 如 表 18.2 所 示 。 
表 18.2 函数 uipushtool 的 常用 属性 说 明 





属性 名 称 说 明 

ClickedCallback 。 鼠标 按 下 相应 函数 ， 祖 当 于 回调 函数 CallBack， 其 中 用 户 可 以 输入 程序 段 
CData 按钮 图 案 数 据 ， 为 一 个 真 彩色 数据 矩阵 ， 要 求 数组 的 size 为 MxNx3 
Enable 控制 菜单 是 否 有 效 ， 默 认 值 为 on 

Separator 控制 按钮 之 间 是 否 分 喇 ， 默 认 值 为 of 


TooltipString 鼠标 指针 位 于 该 按钮 时 显示 的 提示 信息 


下 面 举 例 说 明 利用 函数 uitoolbar 和 uipushtool 制作 按钮 ， 程 序 如 下 : 


h = figure('ToolBar'，'none')， g 设置 图 形 窗 口 自 带 按钮 为 隐藏 模式 
htl = uitoolbar(h); g 生成 工具 条 1 

ht2 = uitoolbar(h); 多 生成 工具 条 2 

aa = [.05:.05:0.95]) g 生成 离散 数据 

bl(:，:，,1) = repmat(a,19,1) 1 # 生成 按钮 图 案 真 彩色 数组 
b(:，,:,2) = repmat(a,19,1); sg 生成 按钮 图 案 真 彩色 数组 
bl(:,:,3) = repmat{(flipdim(a,2),19,1)7g% 生成 按钮 图 案 真 彩色 数组 


hptl = 
uipushtool (ht1,'CData',b,'TooltipString',，'Hello'，'clickedcallback'，'why') ;ss 在 工 


具 条 1 中 添加 按钮 

hpt2 = 

uipushtool (ht2, 'CData',rand(20,20,3)，'TooltipString','clc',，'ClLlickedcallback',， 
Ce 站 


上 述 程序 运行 后 可 以 得 到 如 图 18.20 所 示 的 结果 。 


1 帮 共产 生 两 排 按钮 。 在 图 18.21 中 ,用 户 单 击 渐变 颜色 的 按钮 ， 可 以 显示 随机 的 英 


省 函数 uitoolbar 用 于 在 图 形 窗口 内 产生 一 排 工具 条 ， 在 其 中 可 以 添加 按钮 。 本 例 中 
文 《 函 数 why 的 输出 结果 )， 单 击 随机 颜色 的 按钮 可 以 执行 清 屏 操作 。 
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图 18.20 自制 按钮 的 示例 
此 外 ， 函 数 uitoggletool 还 可 以 用 来 创建 开关 按钮 ， 其 用 法 和 函数 uipushtool 类 似 ， 用 户 可 以 
查阅 帮助 信息 了 解 它 的 使 用 。 用 户 模仿 前 面 给 出 的 例子 可 以 产生 自己 需要 的 按钮 。 在 属性 
ClickedCallback 中 加 入 相应 的 程序 段 可 以 实现 一 定 的 功能 。 


18.3 控件 设计 


除了 前 面 介绍 的 菜单 条 和 按钮 的 设计 外 ， 在 图 形 窗 口内 ， 用 户 还 可 以 建立 按钮 ( pushbutton )、 
开关 按钮 { togglebutton )、 无 线 按 钮 ( radiobutton )、 检 查 框 ( chechbox )、 编 辑 框 ( edit )、 文 本 
框 ( text )、 滑 动 条 ( slider )、 空 白 框 ( frame )、 列 表 框 (listbox ) 和 下 拉 菜 单 ( popupmenu ) 等 控 
件 形 式 。 这 些 控 件 可 以 通过 GUI 设计 工具 或 者 MATLAB 函数 来 生成 。 本 节 介绍 利用 函数 制作 这 些 
按钮 ， 关 于 利用 GUI 设计 工具 制作 控件 的 方法 将 在 后 面 的 章节 介绍 。 


18.3.1 基本 函数 


MATLAB 提供 了 函数 uicontrol 制作 前 面 介 绍 的 按钮 、 滑 动 条 、 文 本 框 及 弹出 式 下 拉 菜 单 等 控 
件 。 函 数 uicontrol 的 调用 格式 如 下 : 


H1=uicontrol (HE， 'PropertyName ' ，PropertyValue，...):; 


参数 说 明 :H1 是 制作 的 控件 对 应 的 句柄 。Hf 是 图 形 窗口 的 句柄 。PropertyName 和 PropertyValue 
表示 控件 的 属性 和 相应 的 取 值 。 常 用 的 属性 名 称 和 说 明 如 表 18.3 所 示 。 


表 18.3 函数 uicontrol 生成 的 控件 的 属性 说 明 





属性 名 称 说 明 ， 

BackgroundColoer 设置 控件 的 背景 颜色 ， 其 默认 值 与 系统 的 窗口 属性 设置 有 关 ， 用 户 可 以 设 定 
其 为 特殊 颜色 控制 符 或 者 3 个 元 素 组 成 的 向 量 

Callback 输入 回调 函数 内 容 ， 其 由 合法 的 程序 段 组 成 

CData 显示 在 控件 表面 的 真 彩色 图 案 对 应 的 数组 ， 其 为 MxNx 3 的 数组 

Enable 控制 控件 是 否 有 效 ， 默 认 值 为 on 

FontAngle 控制 文本 字符 是 否 倾斜 ， 默 认 值 为 normnal 
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( 续 表 ) 

属性 名 称 说 明 

FontName 字体 名 称 ， 默 认 字体 为 MATLAB 系统 设 定 的 字体 

FontSize 字体 大 小 ， 默 认 字体 与 MATLAB 设置 有 关 

FontUnits 字体 大 小 的 度量 单位 ,默认 值 为 points。 其 中 normalized 选项 是 归 一 化 坐标 ， 
可 使 字体 在 缩放 图 形 窗 口 时 保持 字体 大 小 相对 不 变 

FontWeight 字体 的 磅 值 ， 轩 ! 认 值 为 normal 

ForegroundColor 控件 上 文本 的 颜色 ， 其 默认 值 与 系统 的 窗口 属性 设置 有 关 

HorizontalAlignment 控件 上 文本 水 平 对 齐 方式 ， 默 认 值 为 center ( 中 心 对 齐 ) 

ListboxTop 显示 于 列表 框 中 项 目的 索引 

Max 最 大 值 ， 对 部 分 控件 有 效 

Min 最 小 值 ， 对 部 分 控件 有 效 

Position 设置 控件 对 象 的 位 置 与 大 小 ， 其 值 为 4 个 元 素 组 成 的 向 量 ( 元 素 取 值 是 相对 
于 图 形 窗 口 而 言 的 ) 

String 显示 在 控件 对 象 上 的 标识 文本 ， 其 值 为 字符 型 数据 

Style 设置 创建 控件 对 象 的 类 型 ， 默 认 值 为 pushbutton 

SliderStep 滑 块 的 步 长 和 尺度 ， 默 认 值 为 [0.01, 0.1]， 其 中 第 一 个 元 素 是 步 长 ， 第 二 个 
元 素 表示 滑 块 的 大 小 

TooltipString 控件 对 象 的 提示 信息 ， 即 鼠标 放置 于 控件 上 显示 的 文字 ， 其 值 为 任意 字符 

Units 控件 对 象 显示 时 对 应 的 度量 单位 ， 默 认 值 为 pixels 

Value 控件 的 当前 值 ， 该 属性 对 部 分 控件 有 效 


函数 uicontrol 是 一 个 通用 函数 ， 利 用 这 个 函数 结合 前 面 表格 中 介绍 的 属性 就 可 以 制作 不 同类 


型 的 控件 。 所 得 控件 被 放置 在 图 形 窗口 的 绘图 区 域 中 。 


18.3.2 ”控件 基础 
下 面 调用 函数 uicontrol 制作 不 同类 型 的 控件 ， 程 序 如 下 : 


edG=uicontrol (gcf,'style',，'pushbutton'，'unit'，'normalized'，'position',， [0.1,0.9， 
0.1,0.06],'fontsize',12,'String'，' 按 钮 ') ; 

to=uicontrol (gcf,'style','togglebutton'，'unit'，'normalized'，'position',， [0.1,0. 
8,0.1,0.06],'fontsize',12,'String'，' 开 关 按钮 ') ; 
ra=uicontrzol(gcft,'style','radiobutton'，'unit'，'normalized',，'position', [0.1,0.7 
,0.12,0.06]，'fontsize',12,'String'，' 无 线 按钮 ' ) ; 

ch=uicontrol (gcf,'Sstyle'，'checkbox'，'unit'，'normalized','position'， [0. 1,0.6,0. 
12,0.06]，'fontsize',12,'String'， ,无 线 按钮 ， ); 

ed=uicontrol (gcf,'style','edit'，'unit'，'normalized',，'posiction',[0.1,0.5,0.12,0 
.06],'fontsize',12,'String'，' 编 辑 框 ') 

te=uicontrol (gcft,，'style'v'text''unit'，'normalized'，'position'， [0.1,0.4,0.12,0 
.06], 'fontsize',12,'String'，' 文 本 框 ') 

sl1=uicontrol (gcft,'style','slider','unit'，'normalized',，'position',，[0.1,0.3,0.2， 
0.06],'fontsize',12,'String'，' 滑 动 条 ' ) ; 

fr=uicontrol (gcf,，'style'，'frame'，'unit'，'normalized','position'，[0.3,0.6,0.4,0 
.3],，'fontsize',12,'String'，' 空 白 框 ') ; 

1i=uicontrol (gcf,，'style',，'1istbox',，'unit'，'normalized',，'position'，[0.4,0.2,0.2 
,0.3],'fontsize',12,'String'，' 列 表 框 1B01C' ) ; 

po=uicontrol (gcf,'Style'，'pPopupmenu '，'unit '，'normalized'，'position',[0.7,0.2,0 
-2,0.3],，'fontsize',12,'String'，' 弹 出 菜单 1AIBIC'); 


利用 函数 uicontrol 可 以 得 到 不 同类 型 的 控件 ,控件 的 分 类 可 以 使 用 其 中 的 属性 Style 设置 。 还 
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可 以 设置 位 置 ( Position )、 字 体 ( Fontsize ) 以 及 显示 字符 ( String ) 等 属性 。 上 述 程序 执 和 
的 图 形 如 图 18.21 所 示 。 


了 后 得 到 
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图 18.21 全 部 控件 的 外 观 图 


白 框 控件 可 以 用 于 GUI 设计 中 分 隔 区 域 。 图 18.22 中 只 是 给 出 了 控件 的 外 观 , 但 关 


除了 滑动 条 和 空白 框 外 ， 其 他 控件 可 以 通过 属性 String 添加 标注 文字 信息 。 而 空 
说 明 
于 回调 函数 、 字 体 等 属性 未 设 定 。 





图 18.22 ”按钮 空间 示例 


18.3.3 回调 函数 设计 
文本 框 和 空白 框 控件 用 于 生成 说 明 性 标注 , 它们 的 回调 函数 属性 很 少 使 用 。 本 小 节 介绍 除 文本 
框 控件 和 空白 框 控 件 外 的 几 种 控件 的 回调 函数 设计 。 
18.3.3.1 按钮 控件 
对 于 按钮 控件 ， 单 击 按钮 时 ， 回 调 函数 ( Callback ) 部 分 内 容 将 被 执行 。 把 需要 执行 的 程序 内 
容 输入 到 Callback 属性 中 即 可 。 比 如 下 面 的 程序 段 : 
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figure; ss 新 建 图 形 窗口 
uicontrol(gcf,'style',，'pPushbutton'，'unit'，'normalized'，'position'， [0.1,0.9,0.1 
,0.06]，'fontsize' ,12,.,。 


'String'，' 按 钮 
"， "Callback'，'axes(''Position'' [0.2,0.2,0.6,0.6]);fplot(ehumps,[0,1]);'); 多 
生成 按钮 


当 执 行 上 述 程序 ， 并 单 击 按钮 时 可 以 得 到 如 图 18.22 所 示 的 图 形 。 
对 于 按钮 属性 中 Style 的 输入 内 容 ， 输 入 push 程序 也 可 运行 。 


18.3.3.2 ”开关 按钮 


对 于 开关 按钮 ， 当 按钮 被 按 下 时 属性 Value 的 值 等 于 1 ， 而 当 还 原 按钮 时 Value 的 值 等 于 0。 
利用 这 个 按钮 可 以 控制 属性 Value 选取 两 个 不 同 的 数值 。 通 过 语句 “v=gettto,value);” 可 以 获取 
属性 Value 的 取 值 ( 其 中 to 是 开关 按钮 的 句柄 )。 下 面 举 例 说 明 开 关 按 钮 的 制作 ， 程 序 如 下 ， 


figurey #% 新 建 图 形 窗口 
t=linspace(0,1); #% 生成 离散 采样 数据 
to=uicontrol (gcf,'style', 'togglebutton','unit'，'normalized','position', [0.1,0. 
9,0.1,0.06],，'fontsize',12,... 

'String'，' 开 关 按 钮 
"callback',f{f 'v=get(to value''))axes(''Position'' [0.2,0.2,0.6,0.6]);…..， 

"IE Vv>0.5; Ph=plot(t, [1+sin(t*8)]/2,'r''))elseif v<0.5 delete(ph) ;box 

onyendy' ]);， 


人 SEA Callback 属性 值 中 是 两 个 单 引号 ， 而 非 双 引号 (后面 类 仪 情况 也 如 此 )。 其 中 利用 
[2 。 放 语 句 判断 属性 Value 的 不 同 取 值 而 采取 不 同 的 动作 。 


当 用 户 把 开关 按钮 置 于 不 同 状态 时 可 以 得 到 如 图 18.23 所 示 的 两 个 图 形 。 





图 18.23 ”开关 按钮 处 于 两 种 状态 时 的 图 形 
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18.3.3.3 “无线 按钮 


无 线 按 钮 和 开关 按钮 功能 相似 ， 当 无 线 按钮 前 面 的 圆圈 被 选中 ( 圆圈 中 有 黑 点 ) 时 ， 其 属性 
Value 的 值 等 于 1, 未 被 选中 时 属性 Value 的 值 等 于 0。 通 过 选中 与 未 选中 两 种 状态 可 以 得 到 两 个 值 。 
其 中 利用 语句 “v=get(ravalue);” 可 以 获得 无 线 按钮 的 状态 值 ，ra 是 无 线 按钮 的 句柄 。 下 面 举例 
说 明 无 线 按钮 的 制作 与 使 用 ， 程 序 如 下 : 
figurey # 新 建 图 形 窗口 
t=linspace(0,1); # 生成 离散 采样 数据 


uicontrol (gcft,'Style'，'radiobutton'， unit '，'normalized',，'position' [0.1,0.9,0. 


15,0.06]，'ftontsize',12,..。 
'String'，' 无 线 按钮 


"callback',['v=get (gco，''value'');axes(''Posiction'' [0.2,0.2,0.6,0.6]);…..。 
'E v>0.5; Ph=plot (t, [1+cos(t*16)]/2，''b'');elseit v<0.5 delete(ph) ;box onyend:; 
'”])， s% 生成 无 线 按钮 


人 SA 其 中 gco 表示 当前 对 象 的 句柄 〈 下 面 类 仪 情况 中 的 gco 也 是 如 此 )， 在 无 线 按钮 被 
法 总 岂 标 单 击 时 ， 它 就 是 当前 对 象 ， 即 其 句柄 可 以 用 gco 表示 。 这 样 函 数 Uicontro1 就 
= 不 用 输出 句柄 了 。 


执行 上 述 程序 并 置 无 线 按钮 为 两 种 不 同 状态 ， 则 有 如 图 18.24 所 示 的 结果 。 
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图 18.24 “无线 按钮 处 于 两 种 状态 时 的 图形 


18.3.3.4 ”检查 杠 
检查 框 与 无 线 按钮 样式 相似 ， 当 检查 框 前 面 的 方 框 被 选中 ( 方 框 中 有 对 钩 符号 ) 时 ， 其 属性 
Value 的 值 等 于 1, 未 被 选中 时 属性 Value 的 值 等 于 0。 通 过 选中 与 未 选中 两 种 状态 可 以 得 到 两 个 值 。 
其 中 利用 语句 “v=get(ch,value);” 可 以 获得 检查 框 的 状态 值 ，ch 是 无 线 按 钮 的 句柄 ， 根 据 v 的 不 
同 数值 可 以 做 出 相应 的 动作 。 
下 面 举例 说 明 检 查 框 的 制作 与 使 用 ， 程 序 如 下 : 


figurey g 新 建 图 形 窗口 
t=1linspace(0,1); sg 生成 离散 采样 数据 
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uicontrol(gcf,，'style'，'checkbox','unit'，'normalized'，'position', [0.1,0.9,0.12， 
0.06]，'fontsize'",12,..。 
'String'，' 检 查 框 


' 必 callback',['v=get (gco,''value'');set (gca,''Positiocn'' [0.2,0.2,0.6,0.6]); '， 
'iE v>0.5;Ph=plot (t,sinc(tx4))1elseif 
Vv<0.5;set(ph,''Visible''，''off'')yendi']))  $% 生成 检查 框 


同和 这 里 使 用 曲线 是 否 显示 来 举例 说 明 检查 框 的 制作 和 使 用 ， 用 户 还 可 以 替换 为 其 他 
Di 。 咯 应 动作 。 


上 述 程序 所 得 的 效果 如 图 18.25 所 示 。 





图 18.25 ”检查 框 处 于 两 种 状态 时 的 图 形 


18.3:3.5 ”编辑 框 控 件 


对 于 编辑 框 控 件 ， 用 户 可 以 在 其 中 输入 相应 的 内 容 并 被 MATLAB 获知 ， 通 过 回调 函数 可 以 把 

从 编辑 框 中 获得 的 数据 作为 下 一 步 计 算 的 输入 参数 。 获 取 编 辑 框 中 的 内 容 可 以 通过 语句 

“str=get(ed,string);” 获 得 ， 其 中 ed 是 编辑 框 的 句柄 。 此 语句 需要 写 入 到 编辑 框 控件 的 回调 函数 
中 。 下 面 举 剑 说 明 编 辑 框 控件 的 制作 和 使 用 ， 程 序 如 下 : 


figurey # 新 建 图 形 窗 口 
uicontrol(gcft, 'style','edit'，'unit'，'normalized','position', [0.1,0.9,0.42,0.06 
] ，'fontsize', 12,，..。 
'String'，' 这 是 编辑 框 ， 请 输入 一 个 合法 数值 

"callback',，[' str=get(gco,' 'string'') 7 ，，。 

"set (gca,''Position'' [0.2,0.2,0.6,0.6]);claitext(0.3,0.6,' ' 你 输入 的 数值 
是 5 

'text(0.3,0.5,Sstr,''Fontsize'' 14);]) 7; g% 生成 编辑 框 


有。 人 统 提 柜 名 本 属性 String 得 到 的 内 容 是 字符 市 型 数据 ,用 户 可 以 使 用 范 数 strnum 
把 字符 惠 理 数据 转化 为 数值 型 数据 。 


本 本 本 道 465 


MATLAB 科学 计算 与 可 视 化 仿真 宝典 > > > 
执行 上 述 程序 ， 并 在 编辑 框 中 输入 “2222” 后 按 Enter 键 后 得 到 如 图 18.26 所 示 的 图 形 。 


你 区 入 的 数 全 是 


2222 





图 18.26 ”编辑 框 控件 的 制作 与 使 用 示例 
18.3.3.6 ”滑动 条 控件 


对 于 滑动 条 控件 ， 当 上 面 的 滑 块 处 于 不 同位 置 时 ， 对 应 的 属性 Value 取 值 不 同 。 属 性 Value 的 
取 值 范围 是 [0, 1]， 用 户 如 果 需 要 其 他 取 值 范围 时 ， 可 以 通过 线性 变换 ( A*[0, 1]+B ) 把 区 间 [0, 如 
映射 到 区 间 [B,B+A]。 滑 块 的 步 长 和 大 小 利用 属性 SliderStep 来 设 定 。 利 用 鼠标 可 以 拖 动 滑 块 到 不 
同位 置 , 滑 块 的 位 置 可 以 通过 语句 “v=get(gco,value);" 来 获得 , 返回 值 v 是 在 0~1 之 间 的 double 
型 数据 。 属 性 String 内 输入 的 文字 将 不 被 显示 。 

下 面 举例 说 明 滑动 条 控件 的 制作 和 使 用 , 要 处 理 的 问题 是 绘制 变 参数 函数 f(x,v) 的 曲线 。 函 数 
j (xy) 的 表达 式 为 F(x,v)= cos(3tjsinc(ywr)， 其 中 参数 v 的 取 值 范围 是 [3, 5]， 通 过 滑动 条 控件 来 
显示 不 同 参数 下 的 函数 曲线 情况 。 

分 析 : 滑动 条 正好 可 以 通过 滑动 滑 块 来 得 到 不 同 的 取 值 ， 滑 动 条 控件 输出 参数 的 范围 是 [0, 1]， 
而 本 问题 中 参数 的 取 值 范围 是 [3, 5], 因此 需要 通过 前 面 介 绍 的 表达 式 ( A*[0, 1]+B ) 来 转化 ，A=2， 
B=3。 这 里 滑动 条 的 步 长 取 为 0.005, 由 此 滑 块 移动 的 单位 长 度 就 是 0.01。 同 时 设计 属性 TooltipString 
来 实时 显示 参数 v 的 取 值 。 

根据 前 面 的 分 析 可 以 写 出 相应 的 程序 ， 程 序 内 容 如 下 : 
figurey # 新 建 图 形 窗口 
set (gca, ,Position',[0.2,0.2,0.6,0.6]); s# 设置 当前 坐标 轴 的 位 置 
ezplot('cos(3*t)*sinc(4xt)',f0,pi]);  % 绘制 默认 状态 下 曲线 图 


uicontrol(gcf,'style','slider'，'unit'，'normalized','position'， [0.1,0.9,0.8,0.0 
4]，'fontsi2ze',12,.,. 


"SliderStep'… [0.005,0.01]，'Value'v0.5，'Callback'，['V=Set (gco， value'')r 


"ezplot(['…cos(3xt)*sinc(' num2str(2*V+3)，' xft)，]， [用 7 区 Je 
'set (gco TooltipString' [Tv=' num2str(2*V+3)]) 7 ])) 多 生成 滑动 条 


执行 上 述 程序 可 以 得 到 如 图 18.27 所 示 的 图 形 。 
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图 18.27 ”滑动 条 控件 制作 和 使 用 的 示例 


应 右 侧 按钮 ) 或 者 减 小 (对 应 左 侧 按钮 ) 参数 v 的 数值 ， 曲 线 随 着 参数 v 的 变化 而 
变化 ， 这 时 参数 v 变化 的 步 长 为 0.01 。 此 外 用 户 单 击 或 者 按 住 滑动 条 中 间 非 滑 块 
区 域 来 增 减 参数 v 的 数值 (这 时 参数 v 变化 的 最 小 步 长 为 0.02 )， 当 用 户 按 住 滑 块 
拖 动 时 可 以 得 到 带 有 3 位 小 数 的 vV 的 数值 。 


省 在 图 18.27 所 示 的 界面 中 , 用 户 单 击 滑动 条 两 端 带 黑色 三 角 块 的 按钮 可 以 增加 ( 对 
说 明 


18.3.3.7 ”列表 框 


对 于 列表 框 可 以 同时 显示 多 个 选项 供用 户 选 择 , 各 个 选项 的 名 称 在 属性 String 中 输入 , 不 同 选 
项 名 称 利 用 符号 “| ”来 分 隔 。 不 同 选项 的 区 分 是 通过 属性 Value 的 数值 来 体现 的 。Value 的 取 值 对 
应 于 选项 自 上 而 下 的 序号 , 用 户 可 以 设 定 不 同 选项 对 应 不 同 的 执行 动作 。 下面 举 例 说 明 列表 框 的 制 
作 和 使 用 ， 程 序 内 容 如 下 ， 


figurey #% 新 建 图 形 窗 口 
set (gca,'Position',[0.2,0.2,0.6,0.6]); ss 设置 当前 坐标 轴 的 位 置 
ezplot ('cos{(t)'v[I0,2x*pi]); g# 绘制 默认 状态 下 曲线 图 
str={f'cos(t) sin(t)' sinc() 1 # 设置 细胞 数组 存储 不 同 的 函数 表达 式 
col={(r'v gyyb']， sg 设置 细胞 数组 存储 不 同 的 颜色 
uicontrol (gcf,'style',，'1isctbox'，'unict','normalized','position', [0.02,0.7,0.12， 
0.2]，'fontsize',12,... 
'String', 'cos(t)1sin(t)1sinc(tt)'，Ccallback',['v=get (gco，''value'')i'..。 


SS=[' ezplot(' :char(Str(V)) [0,pPi*2,-1,1]):']yeval(ssS)7 和 .。 
'set (get (gca,''children'')，'Ccolor' char(coltv)));:]); gs 生成 列表 框 


执行 上 述 程序 ， 分 别 选 择 不 同 选项 可 以 得 到 如 图 18.28 所 示 的 3 个 不 同 图 形 窗口 。 
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图 18.28 选择 列表 框 中 不 同 选项 得 到 的 图 形 


制作 列表 框 控件 的 程序 中 所 有 引号 都 是 单 引号 ， 用 户 在 使 用 时 需要 注意 。 这 里 再 
介绍 一 种 等 价 的 方法 来 替换 这 样 宛 长 的 回调 函数 内 容 。 可 以 把 回调 函数 内 的 程序 
内 容 写 为 一 个 函数 文件 形式 〈 脚本 文件 亦 可 )， 相 应 程序 内 容 为 : 


function draw_all(v): 
col='rgb'; g% 存储 颜色 的 变量 
if V==17 

ezpblot('cos(t)' [0,pi*2,-1,1]))  s% 绘制 余弦 函数 
elseif V==2; 

ezplot('cos(t) pv [0,pi*2,-1,1]);  % 绘制 正弦 函数 
elSseift Vv==31; 

ezplot('sinc(t)' [0,pi*2,-1,1]); * 绘制 sinc 函数 
enda 
set (get (gca, 'childaren'),'color' ,col(v)); s% 设置 曲线 颜色 


上 面 程序 中 可 以 根据 v 的 取 值 绘制 不 同样 式 的 曲线 。 列 表 框 制作 程序 变 为 ; 


figurey 


s* 新 建 图 形 窗口 


set (gca, 'Position',[0.2,0.2,0.6,0.6])， g% 设置 当前 坐标 轴 的 位 置 

ezplot('cos(t)' [0,2*pi]); s# 绘制 黑 认 状态 下 的 曲线 图 

uicontrol (gcf,'style',，'1istbox'，'unit'，'normalized'，'position'，[0.02,0.7,0.12， 
0.2],'fontsize',12,..。 
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"String'，'cos(t)1sin(t)lsinc(t)' callback'，['v=get(gco value') ;draw_all(v) 


; ']); % 生成 列表 杠 


可 见 此 时 回调 函数 中 的 内 容 变 得 简单 , 仅 为 获取 列表 框 选 项 序号 语句 和 调用 函数 文件 draw_all 
的 语句 ， 用 户 不 必 考 虑 过 多 引号 设计 问题 。 等 价 形式 的 程序 所 得 结果 与 图 18.28 相同 。 


18.3.3.8 下 拉 菜 单 
下 拉 菜单 控 件 的 制作 和 列表 框 相 似 ， 下 面 举 例 说明 。 


Eigurey; # 新 建 图 形 窗口 

set (gca, 'Position',[0.2,0.2,0.6,0.6]); ss% 设置 当前 坐标 轴 的 位 置 
ezplot(t'cos(t)' [0,2x*pi])) g# 绘制 默认 状态 下 曲线 图 

str={f'cos(t)' sin(t)' sinc(t) 1); s# 设置 细胞 数组 存储 不 同 的 函数 表达 式 
Colefaz:， 右 "po gs 设置 细胞 数组 存储 不 同 的 颜色 


uicontrol(gcf,，'style'，'Ppopupmenu'，'unit'，'normalized','position'， [0.02v0.7,0.1 
2,0.2],'fontsize',12,..， 
"String'，'cos(t)1sin(t)lsinc(t) callback'，['v=get(gco value' ye ， 


"SS=[' ezplot(' 0 Char(SEF(V)) 0 ， [0,piw2,-~-1,1])']yeval(ss); 和 ..。 
"set (get (gca,' 'children''),' color' ,char(tcol(tv)));]); gs% 生成 下 拉 菜单 


上 述 程序 中 只 是 在 列表 框 制作 例子 的 基础 上 ， 把 “listbox” 改 为 “popupmenu"。 执 行 上 述 程 
序 并 单 击 下 拉 菜单 即 可 得 到 如 图 18.29 所 示 的 图 形 。 选 择 不 同 选项 可 以 得 到 不 同 的 曲线 。 





图 18.29 下 拉 菜 单 的 制作 示例 


与 列表 框 控件 相 比 ， 下 拉 菜 单 可 以 节省 在 图 形 窗口 上 的 占用 面积 ， 但 直观 性 降低 。 
利用 本 节 介 绍 的 控件 回调 函数 的 设计 方法 就 可 以 制作 实现 具有 一 定 功能 的 用 户 界面 窗口 了 。 在 


MATLAB 中 不 同 控件 的 生成 程序 相似 , 不 同 控件 的 属性 含义 和 赋值 方法 大 体 相同 , 所 以 用 户 复制 生 
成 控件 的 程序 并 更 改 属性 Style 和 Position 等 属性 值 就 可 以 在 图 形 窗口 中 得 到 不 同 控件 。 
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18.4， 对 话 框 


本 节 介 绍 MATLAB 提供 制作 对 话 框 的 函数 ， 如 对 话 框 、 错 误 对 话 框 、 帮 助 对 话 框 等 ， 相 应 的 
实现 函数 如 表 18.4 所 示 。 


表 18.4 创建 不 同类 型 对 话 框 的 函数 


函数 名 称 功能 函数 名 称 功能 

dialog 对 话 框 questdlg 问题 对 话 框 

errordlg 错误 对 话 框 uigetfile 文件 检索 对 话 框 

helpdlg 帮助 对 话 框 uiputfile 写 入 文件 时 显示 的 检索 对 话 框 
inputdlg 输入 对 话 杠 uisetcolor 设置 颜色 的 对 话 杠 
listdlg 选择 列表 对 话 杠 Uisetfont 设置 字体 的 对 话 框 
msgbox 消息 对 话 框 warmdlg 警告 对 话 框 
pagesetupdlg 。 显示 页 面 的 版 面 对 话 杠 waitbar 显示 程序 计算 进度 的 窗口 
printdlg 显示 打印 对 话 杠 

下 面 依次 介绍 这 些 函 数 的 用 法 。 

18.4.1 图 形 窗口 


函数 dialog 生成 一 个 空白 的 图 形 窗口 ， 上 面 没有 菜单 、 工 具 条 和 图 名 。 函 数 dialog 的 调用 格 
式 为 ， 
h = dialog('PropertyName' ,PropertyValue,...):; 

参数 说 明 : h 是 返回 的 句柄 。PropertyName 和 PropertyValue 表示 对 话 框 的 属性 名 称 和 属性 值 。 
函数 dialog 创建 的 对 话 框 对 象 实际 上 是 最 简单 的 图 形 窗口 ， 其 上 内 容 为 空 。 对 话 框 的 属性 和 图 形 
窗口 属性 相同 。 需 要 指出 的 是 创建 的 对 话 框 的 属性 WindowStyle 被 设 为 modal,， 即 典型 窗口 ， 此 时 
用 户 需要 用 鼠标 在 该 窗口 上 做 出 响应 后 才能 进行 其 他 操作 。 而 图 形 窗口 的 属性 WindowStyle 的 默 


认 值 为 normal { 标准 窗口 )。 
执行 语句 “dh=dialog;” 得 到 的 图 形 如 图 18.30 所 示 。 用 户 需 要 在 窗口 上 的 灰色 空白 区 域内 单 


击 左 键 或 者 单 击 右上 角 的 关闭 按钮 关闭 对 话 框 ， 才 能 在 MATLAB 中 进行 其 他 操作 。 


图 18.30 函数 dialog 创建 的 图 形 窗口 
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18.4.2， 错误 对 话 框 

函数 errordlg 可 以 用 来 创建 错误 对 话 框 ， 其 调用 格式 为 : 
handle = errordl1g('errorstring'，'dQlgname'，'createmode ') 1; 

参数 说 明 : handle 是 错误 对 话 框 的 句柄 。errorstring 是 在 对 话 框 上 显示 的 错误 信息 。dlgname 
指定 对 话 框 的 标题 。createmode 用 于 前 端 显示 控制 ， 表 示 如 果 对 话 框 已 存在 ， 参 数 on 将 对 话 杠 
显示 在 最 前 端 ， 参 数 off 不 把 对 话 框 显示 在 最 前 端 。 

执行 语句 “handle=errordlg(The input value is wrong',Errorl;” 可 以 得 到 如 图 18.31 所 示 的 对 
话 框 。 、 


Errorl1l 


X The input value is wrong 


图 18.31 错误 对 话 框 





18.4.3 ”帮助 对 话 框 
函数 helpdlg 可 以 用 来 创建 帮助 对 话 框 ， 其 调用 格式 为 : 
hanale = helpdlg('helpstring',，'dGlgname') 


参数 说 明 : handle 是 输出 的 句柄 。helpstring 是 显示 的 帮助 信息 。dlgname 是 帮助 对 话 框 的 名 
称 。 

执行 语句 “h = helpdlg(This is ahelp string',My Help Dialog);” 可 以 得 到 如 图 18.32 所 示 的 对 
话 框 。 


古 7 Help Dialog 


This is a help string 


图 18.32 ”帮助 对 话 框 





18.4.4 输入 对 话 框 
函数 inputdlg 可 以 创建 输入 对 话 框 ， 其 调用 格式 为 : 
answer=inputdlg (prompt,name,numlines,defaultanswer) ; 


参数 说 明 : answer 是 输出 的 结果 ， 其 为 一 个 细胞 数组 。prompt 是 一 个 细胞 数组 ， 表 示 输 入 选 


梧 晤 可 是 471 


MATLAB 科学 计算 与 可 视 化 仿真 宝典 > jj j> 多 


项 的 提示 信息 。name 是 输入 对 话 框 的 名 称 。numlines 表示 输入 部 分 的 行 数 。defaultanswer 用 于 
设置 默认 输入 值 。 
下 面 举 例 说 明 函 数 inputdlg 的 用 法 。 


Pompt={'Enter the matrix Size for x^2:'，'Enter the colormap name:'}) 省 定义 项 
目 提示 信息 - 

name='Input for Peaks function'; g 定义 对 话 框 名称 

numlines=2; # 定义 输入 区 行 数 

defaultanswer={'20' ,hsv'l) s% 定义 默认 值 

answer=inputdlg (Prompt,name,numlines,defaultanswer) g 生 成 输入 对 话 框 


执行 上 述 程序 将 会 弹出 如 图 18.33 所 示 的 对 话 框 。 


Input ff-.- 所 | X| 





图 18.33 ”输入 对 话 框 
单 击 图 18.32 所 示 的 OK 按钮 将 会 在 命令 窗 中 出 现 : 


anSswer = 
生 2 0 让 
"hsv' 


18.4.5， 列 表 对 话 框 
函数 listdlg 可 用 于 创建 选择 列表 对 话 框 ， 其 调用 格式 为 ， 
[SELECTION,OK] = listdlg('LiestString',S，'PropertyNamel' ,Valuel,..,): 


参数 说 明 : SELECTION 表示 选择 项 目的 序号 。OK 表示 选择 是 否 成 功 ， 当 OK=1 时 表示 选择 
成 功 ， 当 OK=0 时 表示 选择 失败 ， 此 时 SELECTION 是 空 数组 。ListString 设 定 选择 内 容 的 属性 名 
称 。S 是 相应 的 细胞 数组 。PropertyName1 和 Value1 是 属性 名 称 和 相应 取 值 。 除 ListString 外 的 属 
性 如 表 18.5 所 示 。 


表 18.5 ”输入 对 话 框 的 属性 





属性 名 称 说 明 属性 名 称 说 明 
SelectionMode 设置 选择 模式 : 单 选 和 多 选 ( 默 ”PromptString ”提示 信息 对 应 的 字符 串 

认 值 ) 
ListSize 列表 区 域 的 大 小 ， 单 位 为 像素 OkString 设置 OK 按钮 的 标注 文本 
InitialValue 设置 最 初 的 选择 CancelString “设置 Cancel 按钮 的 标注 文本 
Name 设置 对 话 框 名 称 ， 默 认 值 为 空 

字符 串 
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下 面 举 例 说 明 listdlg 的 用 法 。 


a = diristr = {d,name}; % 获得 当前 路 径 内 的 文件 内 容 并 提取 文件 名 记录 为 str 
[s,v] = listdl1g('PromptString',，'Select aa file:'，.,， 


'SelectionMode','single',，'ListString' ,Str,，'InitialValue',3,，'ListSize', [160,100 
] ) 


上 述 程序 执行 后 得 到 如 图 18.34 所 示 的 图 形 。 





图 18.34 选择 列表 对 话 框 


18.4.6 ”消息 对 话 框 
函数 msgbox 可 以 创建 消息 对 话 框 ， 其 调用 格式 为 ， 


h=msgbox('Message') 
h=msgbox('Message'，'Title') 
h=msgbox('Message',，'Title','Icon') 
h=msgbox (Message,Title,' Icon' ,IconData,IconCMap) 

参数 说 明 : h 是 消息 对 话 框 的 句柄 。Message 是 提示 消息 的 内 容 。Title 是 消息 对 话 框 的 名 称 。 
lcon 用 于 指定 图 标 类 型 ， 其 可 选 参数 为 ，none 表示 空缺 ，error 表示 使 用 错误 对 话 框 的 图 标 ，help 
表示 使 用 帮助 对 话 框 的 图 标 ，warn 表示 使 用 警告 对 话 框 的 图 标 ，custom 表示 用 户 自 定义 图 标 。 
IconData 是 图 标 图 案 的 数据 ， 其 为 真 彩色 图 像 对 应 的 数组 。lconCMap 颜色 影像 数组 ， 其 为 含 3 列 


元 素 的 数组 。 
下 面 举例 说 明 消 息 对 话 框 的 制作 。 
Data=1:64;Data={(Data'*Data)/64; gs 生成 图 标 图 案 的 数据 


h=msgbox('String','Title','custom' ,Data,hot(64)) 8% 生成 消息 对 话 框 


执行 上 述 程序 ， 所 得 对 话 框 如 图 18.35 所 示 。 
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图 18.35 ”消息 对 话 框 
18.4.7 ”版 面 对 话 框 


函数 pagesetupdlg 可 以 显示 页 面 的 版 面 对 话 框 ， 其 调用 格式 为 ; 


dlg = pagesetupdlg(fig):; 


参数 说 明 : dlg 表示 版 面 对 话 框 的 句柄 。fig 是 图 形 窗 口 的 句柄 。 
执行 语句 “dlg = pagesetupdlg(gcfj;” 可 以 得 到 如 图 18.36 所 示 的 对 话 框 。 











图 18.36 显示 页 面 的 版 面 对 话 框 
18.4.8 打印 对 话 框 


函数 printdlg 可 以 显示 打印 对 话 框 ， 其 调用 格式 为 : 
printdlg(fig) 

参数 说 明 : fig 表示 目标 图 形 窗 口 的 句柄 。 

执行 语句 “printdlg(gcf;” 可 以 得 到 如 图 18.37 所 示 的 打印 对 话 框 。 








图 18.37 ”打印 对 话 杠 


474 jp > > 拓 


梧 本 吉本 第 18 > 用 户 图 形 界面 设计 


18.4.9 问题 对 话 框 
函数 questdlg 可 以 创建 问题 对 话 框 ， 其 调用 格式 为 


ButtonName = questdlg('Question'，'Title'，'Btnl'，'Default') 
ButconName = questdlg('Question'，'Title'，'Btnl'，'Btn2'，'Default') 
ButconName = questdl1g('Question'，'Title'，'Btnl'，'Btn2'，'Btn3'，'Deftault') 


参数 说 明 : ButtonName 返回 按 下 按钮 的 名 称 。Question 显示 提示 问题 。Title 是 问题 对 话 框 的 
名 称 。Btn1 ，Btn2 和 Btn3 表示 按钮 的 名 称 。Default 表示 虚线 框 标记 的 按钮 名 称 ， 其 内 容 必须 与 前 
面 的 按钮 名 称 相 同 ， 否 则 MATLAB 会 忽略 最 后 一 个 字符 虽 。 

下 面 举 例 说明 函 数 questdlg 的 用 法 。 


ButtonName = Guestdlg('What is Your favorite color?'，'Color Question',，'Red'， 
Green'，'Blue'，'Bluel') 


执行 上 述 语句 可 以 得 到 如 图 18.38 所 示 的 对 话 框 。 





图 18.38 ”问题 对 话 框 


18.4.10 ”文件 检索 对 话 杠 
函数 uigetfile 可 以 创建 文件 检索 对 话 框 ， 其 调用 格式 为 : 


[filename，pathname，filterindex] = uigetfile(filterspec，title) 
[filename，Ppathname，filterindex]l = uigetfile(filterspec，title，file) 
[filename，Ppathname] = uigetfile{(...，'multiselect'，SsSelectmodae) 

参数 说 明 : filename 是 选择 的 文件 名 称 。Pathname 是 选择 文件 所 在 的 路 径 。fiterindex 是 过 滤 
扩展 名 的 序号 。filterspec 用 于 限定 打开 文件 的 扩展 名 。title 是 对 话 框 的 名 称 。file 是 显示 在 文件 检 
索 对 话 框 文件 名 处 的 名 称 ， 是 默认 打开 的 文件 名 称 。multiselect 是 属性 名 ， 表 示 是 否 为 多 选 方式 。 
selectmode 是 控制 是 否 多 选 的 参数 ， 可 选 值 为 : on 表示 人 允许 多 选 ，off ( 默认 值 ) 表示 单 选 。 

下 面 举 例 说 明文 件 检索 对 话 框 的 创建 ， 执 行程 序 后 可 以 得 到 如 图 18.39 所 示 的 对 话 框 。 

[filename，pathname，filterindaex]j = uigetfile({'*.m'，'MRAT-files 

【( 主 。 贡 ) 1 17 交 Ja 。 

'Models (*.mat):) '*.w'， 'RLI1 Files (*.*)'}，'"Pick 
file'，'dGraw_al1l'，'MultiSelect'，'on') 


18.4.11 写 入 文件 而 显示 的 检索 杠 
函数 uiputfile 可 以 创建 为 写 入 文件 而 显示 的 检索 对 话 框 ， 其 调用 格式 为 ， 


[filename，pathname，filterindex] = uiputfile(filterspec，titlel)， 
[filename，Ppathname，filterindex] = uiputfile(filterspec，title，file) 
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图 18.39 文件 检索 对 话 框 
参数 说 明 : filename 是 写 入 的 文件 名 称 。Pathname 是 写 入 文件 所 在 的 路 径 。filterindex 是 过 波 
扩展 名 的 序号 。fiterspec 用 于 限定 写 入 文件 的 扩展 名 。title 是 对 话 框 的 名 称 。file 是 显示 在 检索 对 
话 框 文件 名 处 的 名 称 ， 是 歌 认 写 入 的 文件 名 称 。 
下 面 举 例 说 明 函 数 uiputfile 的 用 法 ， 执 行 下 面 语句 可 以 得 到 如 图 18.40 所 示 的 图 形 。 





[filename，pathname，filkterindex]l = uiputfile( {'*.mat','MaT-files 《二 mat) 7 
"mdl'， Models (*.mdl)'.、. 
"ww RARLILI Files (*.*)'}，'Save as'，1UntitleaQ.mat')， 








图 18.40 ” 写 入 文件 时 显示 的 检索 对 话 框 


18.4.12 颜色 设置 对 话 框 
函数 uisetcolor 可 以 创建 颜色 设置 对 话 框 ， 从 而 人 机 交互 式 设置 对 象 的 颜色 ， 其 调用 格式 为 ， 


uisetCcolor 

uisetcolor([r，g，bl]) 

uisetcolor(h) 

uisetcolor(...，'dqialogcitle') 

参数 说 明 : c 是 选择 的 颜色 向 量 ， 它 是 由 3 个 元 素 组 成 的 向 量 。r，g 和 bb 是 设 定 的 默认 颜色 。 
h 是 绘图 对 象 的 句柄 。dialogtitle 是 对 话 框 名 称 。 

下 面 举例 说 明 函 数 uisetcolor 的 用 法 。 执 行 下面 的 程序 后 ， 会 弹出 相应 对 话 框 。 


ph=plot (rand(1,20)); % 绘制 随机 曲线 
C = uisetcolor(ph,'Select a color') $ 创建 颜色 设置 对 话 框 


nnnn 
中 人 性 


476 wp jp > 和 


\ 


梧 梧 可可 第 18 > 用 户 图 形 界 面 设计 


18.4.13 ”字体 设置 
函数 uisetfont 可 以 创建 字体 设置 的 对 话 框 ， 从 而 实现 人 机 交互 设置 对 象 字体 信息 ， 其 调用 格 
式 为 : 
S = uisetfont(Fin，'dqialogTitle') 
参数 说 明 : S 是 返回 的 已 设置 的 字体 信息 ， 其 为 一 个 结构 体 数 据 。Fin 是 含 字体 属性 的 图 形 对 
象 ， 如 函数 text，xlabel 和 Ilegend 等 得 到 的 图 形 对 象 。dialogTitle 是 对 话 框 名 称 。 
下 面 举例 说 明 函 数 uisetfont 的 用 法 。 执 行 如 下 程序 后 弹出 的 字体 设置 对 话 框 如 图 18.41 所 示 。 


Fin=text(0.4,0.5,，'ABCDEF'); # 标注 字符 
S = uisetfont{(Fin，'qialogTitle');  $% 创建 字体 设置 对 话 框 


18.4.14， 警告 对 话 框 
函数 warndlg 可 以 创建 警告 对 话 框 ， 其 调用 格式 为 : 
handle = warndl1g('warnstring',，'dqlgname'，'createmode') 


参数 说 明 : handle 是 对 话 框 的 句柄 。warnstring 是 警告 信息 内 容 。dlgname 是 对 话 框 名 称 。 
createmode 用 于 指定 对 话 框 是 否 前 置 ， 其 可 选 参数 为 non-modal ( 非 前 置 ) 和 modal ( 前 置 )。 
下 面 举例 说 明 函 数 warndlg 的 用 法 ， 执 行 下 述 语句 可 以 得 到 如 图 18.42 所 示 的 对 话 框 。 


f = warndlg('This is an warning string.'，'My Warn Dialog'，'modal'); 


Se 
mp 





记 Ce 
图 18.41 字体 设置 对 话 框 图 18.42 ”警告 对 话 杠 
说 明 这 里 的 警告 对 话 框 是 前 置 的 ， 即 只 有 在 警告 对 话 框 上 面 做 出 响应 动作 才能 到 当前 
MATLAB 环境 中 进行 其 他 操作 。 


18.4.15 计算 进度 条 窗口 
函数 waitbar 可 以 创建 显示 程序 计算 进度 条 窗口 ， 其 调用 格式 为 ， 
H = waitbar(X,，'message'，DProperty，Vvalue，PpProperty,， value， .，,,) 


WwWaitbar (X, 开 ) 
waitbar(X,H，'message') 


参数 说 明 : H 是 进度 窗口 的 句柄 。X 是 一 个 0~1 之 间 的 数 ， 表 示 程 序 已 完成 的 部 分 { 用 红色 
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标记 )。message 表示 更 新 进度 时 显示 的 字符 串 。 
下 面 举 例 说 明 函 数 waitbar 的 用 法 ， 如 下 程序 执行 后 可 以 得 到 如 图 18.43 所 示 的 图 形 。 


h = waitbar(0,'Please wait...'); ss 创建 进度 条 
for i=5:100， 

waitbar(i/200,h,char(i)); sg# 更 新 进度 条 的 进度 
enaQ 





图 18.43 ”进度 条 


网 关 和 用户 可 以 利用 函数 close 来 关闭 进度 条 ， 即 执行 "close(h);" 就 可 以 自动 关闭 进度 条 。 
2 症 。 利 用 进度 条 可 以 很 方便 地 了 解 大 型 程序 计算 的 进度 情况 。 


18.5 ”实例 


本 章 前 面 介 绍 了 利用 MATLAB 函数 实现 基本 用 户 界面 窗口 控件 的 方法 。 此 外 MATLAB 还 提供 
了 专门 制作 GUI 的 工具 。 本 节 首 先 介绍 制作 GUI 的 工具 GUIDE, 然后 举例 说 明 创 建 图 形 界 面 窗口 。 
用 户 在 命令 窗 中 选择 菜单 File/New/GUI 后 可 以 得 到 如 图 18.44 所 示 的 界面 。 

用 户 可 以 根据 需要 选择 GUIDE 模板 。 其 中 有 4 种 可 选 样式 Blank GUI (Defau 由 ，GUI with 
Uicontrols，GUI with Axes and Menu 和 Modal Question Dialog， 如 图 18.45 和 图 18.46 所 示 。 从 
中 可 以 看 出 ，4 种 类 型 的 模板 窗口 左 侧 有 两 列 控件 板 ， 利 用 鼠标 可 以 把 这 些 控件 拖 放 到 网 格 区 域 ， 
还 可 以 很 方便 地 调整 控件 的 位 置 和 大 小 。 控 件 的 属性 编辑 只 需 在 控件 上 单 击 鼠标 右键 即 可 弹出 如 图 
18.47 所 示 的 菜单 ， 选 择 其 中 的 Property Inspector 命令 就 可 以 进行 属性 编辑 ， 并 弹出 如 图 18.48 
所 示 的 对 话 框 。 


| 条 mrdsl goti os isieg 




















图 18.44 GUIDE 界面 窗口 图 18.45 选择 “Blank GUI (Default)” 后 的 界面 
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图 18.46 ” 带 有 控件 的 3 种 GUIDE 设计 模板 
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图 18.47 ”右键 弹出 菜单 图 18.48 控件 属性 编辑 对 话 框 
如 果 保 存 GUIDE 设计 对 象 可 以 同时 得 到 .fig 文件 和 一 个 同名 的 M 文件 。 当 需要 对 GUI 进行 编 
辑 的 时 候 ， 在 图 18.44 中 选择 Open Existing GUI 选项 卡 就 可 以 编辑 一 个 已 经 存在 的 GUIl。 相 应 的 
Callback 内 容 是 在 M 文件 中 输入 的 。 通 过 图 18.44 至 图 18.48 所 示 的 对 话 框 就 可 以 方便 地 建立 
个 图 形 界面 窗口 了 ， 其 效果 和 利用 uicontrol 函数 制作 的 控件 一 样 。 不 过 利用 GUIDE 设计 的 GUI 
在 版 本 兼容 性 方面 可 能 会 出 现 问题 ， 程 序 的 可 移植 性 要 比 利 用 函数 uicontrol 制作 的 GUI 差 一 些 。 
图 18.49 中 界面 上 的 控件 是 利用 函数 uicontrol 生成 的 ， 滑 动 条 可 以 用 来 改变 贝 塞 尔 函 数 的 阶 
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数 , 同时 在 滑动 条 上 还 设置 有 鼠标 提示 信息 , 即 “v=0.72"”。! 该 程序 保存 在 光盘 的 \Ch18 文件 夹 下 ， 
文件 名 为 Cures_GUILm。 ) 用 户 可 以 模拟 此 例 建立 其 他 功能 的 图 形 界面 窗口 。 





图 18.49 利用 滑动 条 取 值 得 到 的 结果 


18.6 小结 


本 章 主要 介绍 了 图 形 界面 窗口 的 设计 方法 。 利 用 MATLAB 可 以 设计 出 不 同类 型 的 控件 、 莱 单 、 
按钮 以 及 对 话 框 ， 利 用 GUI 可 以 进行 人 机 交互 操作 ， 对 研究 一 些 含 有 变化 的 参数 、 连 续 变化 过 程 
的 问题 有 重要 的 帮助 。 本 章 首先 介绍 了 窗口 菜单 、 右 键 菜 单 和 弹出 菜单 的 制作 方法 。 然 后 介绍 了 工 
具 条 、 按 钮 和 开关 按钮 的 制作 ， 如 何 利用 函数 uicontrol 创建 按钮 、 开 关 按 钮 、 无 线 按钮 、 编 辑 框 、 
列表 框 以 及 下 拉 菜 单 的 方法 。 接 下 来 介绍 了 不 同类 型 对 话 框 的 设计 ， 如 错误 对 话 框 、 帮 助 对 话 框 、 
问题 对 话 框 以 及 进度 条 等 的 创建 过 程 。 最 后 结合 GUIDE 设计 工具 介绍 了 用 户 界 面 窗口 的 实例 。 
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第 1@ 章 “MATLAB 建 模 基础 


@ 抽象 模型 ”介绍 数学 模型 的 建立 方法 ， 并 给 出 相应 的 实例 分 析 。 
@ 离散 采样 方法 ”结合 实例 介绍 对 于 离散 问题 的 处 理 方法 。 

@ 算法 结构 设计 “举例 介绍 算法 设计 中 的 一 些 方法 。 

@ 实例 仿真 ”举例 说 明 利用 MATLAB 处 理 实际 问题 。 

4 验证 方法 ”介绍 验证 程序 正确 性 的 方法 。 

@ 算法 优化 ”举例 介绍 算法 优化 对 程序 执行 效率 的 改善 。 


建立 模型 是 解决 科学 与 工程 问题 的 一 个 重要 中 转 环节 。 主 要 思路 是 利用 数学 化 和 过 程 性 语言 
描述 或 者 翻译 目标 问题 。 根据 这 些 数 学 化 的 描述 和 过 程 性 语言 , 可 以 建立 离散 化 的 公式 和 解决 问题 
的 流程 ， 从 而 利用 科学 计算 软件 来 模拟 和 求解 问题 。 本 章 介绍 基本 的 建 模 知识 ， 包括 抽象 模型 、 离 
散 化 问题 、 算 法 设计 与 优化 等 。 


19.1 抽象 模型 


抽象 模型 是 对 科学 和 工程 问题 进行 长 时 间 思 考 而 建立 的 一 种 抽象 化 的 认识 ,可 以 借鉴 数学 建 模 
的 思想 。 数 学 模型 是 针 于 现实 世界 的 特定 对 象 或 特定 目的 ,根据 特有 的 内 在 规律 , 做 出 一 些 必要 的 
假设 , 运用 适当 的 数学 工具 ， 得 到 的 数学 结构 。 简 单 地 说 ， 就 是 科学 和 工程 问题 中 的 某 种 特征 本 质 
的 数学 表达 式 ( 或 是 用 数学 语言 对 部 分 现实 世界 的 描述 )， 即 用 数学 公式 ( 如 函数 、 图 形 、 代 数 方 
程 、 微 分 方程 、 积 分 方程 和 差分 方程 等 ) 来 描述 ( 表述 、 模 拟 ) 所 研究 的 客观 对 象 或 系统 在 某 一 方 
面 的 存在 规律 。 


19.1.1 数学 建 模 的 一 般 方法 和 步骤 


建立 数学 模型 的 方法 和 步骤 并 没有 一 定 的 模式 ,但 一 个 理想 的 模型 应 能 反映 系统 的 全 部 重要 特 
征 : 模型 的 可 靠 性 和 模型 的 使 用 性 。 建 模 的 一 般 方法 有 以 下 几 种 。 


多 _ 机 理 分 析 : 根据 对 现实 对 象 特性 的 认识 ， 分 析 其 因果 关系 ， 找 出 反映 内 部 机 理 的 规律 ， 所 
建立 的 模型 常 有 明确 的 物理 或 现实 意义 。 

多 ”测试 分 析 : 将 研究 对 象 视 为 一 个 “黑箱 ”系统 ， 内 部 机 理 无 法 直接 寻求 ， 通 过 测量 系统 的 
输入 输出 数据 ， 并 以 此 为 基础 运用 统计 分 析 方法 ， 按 照 事先 确定 的 准则 在 某 一 类 模型 中 选 
出 一 个 数据 拟 合 得 最 好 的 模型 。 测 试 分 析 方法 也 叫做 系统 辩 识 。 

多 将 这 两 种 方法 结合 起 来 使 用 ， 即 用 机 理 分 析 方 法 建立 模型 的 结构 ， 用 系统 测试 方法 确定 模 
型 的 参数 ， 也 是 常用 的 建 模 方法 。 
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在 实际 过 程 中 用 哪 一 种 方法 建 模 主要 是 根据 对 研究 对 象 的 了 解 程度 和 建 模 目的 来 决定 .机 理 分 
析 法 建 模 的 具体 步骤 大 致 如 下 : 


EX 实际 问题 通过 抽象 、 简 化 、 假 设 确定 变量 和 参数 。 

EX 区。 建立 数学 模型 并 数学 、 数 值 地 求解 、 确 定 参数 。 

ER。 用 实际 问题 的 实测 数据 来 检验 该 数学 模型 。 

ER 符合 实际 ， 交 付 使 用 ， 从 而 可 产生 经 济 、 社 会 效益 ;不 符合 实际 ， 重 新 建 模 。 


19.1.2 ”数学 模型 的 分 类 


按 研究 方法 和 对 象 的 数学 特征 分 初等 模型 、 几 何 模型 、 优 化 模型 、 微 分 方程 模型 、 图 论 模型 、 
逻辑 模型 、 稳 定性 模型 、 统 计 模 型 等 。 

数学 建 模 需要 丰富 的 数学 知识 ， 涉 及 到 高 等 数学 、 离 散 数学 、 线 性 代数 、 概 率 统计 以 及 复 变 函 
数 等 基本 的 数学 知识 o 同 时 还 要 有 深厚 的 专业 基础 知识 、 较 强 的 罗 辑 思维 能 力 以 及 语言 表达 能 力 等 。 

对 于 求解 某 一 科学 或 者 工程 问题 , 如 何 着 手 往往 是 最 困难 的 环节 。 建立 模型 的 基本 原则 是 认真 
分 析 目标 问题 的 已 知 条 件 ， 找 到 与 之 相关 的 影响 因素 。 这 些 影响 因素 可 能 是 定量 的 ( 能 够 使 用 数量 
来 描述 )， 也 可 能 是 定性 的 。 还 应 该 进一步 获得 各 个 因素 之 间 的 一 些 简单 函数 关系 。 定 量 的 因素 可 
以 分 类 为 变量 、 参 量 及 常量 ( 如 物理 常数 等 j。 参 量 对 于 一 些 特定 问题 可 以 是 常量 ， 而 对 于 不 同 问 
题 常 量 的 值 也 可 能 不 同 。 变 量 可 以 分 为 离散 型 和 连续 型 ， 也 可 以 分 为 确定 型 和 随机 型 。 

在 实际 问题 中 ,结果 往往 受 很 多 因素 的 影响 ， 它 们 的 影响 程度 可 能 不 同 。 因 此 在 分 析 各 个 因素 
与 结果 的 关系 后 ,首先 应 该 考虑 主要 因素 ， 忽 略 最 次 要 的 因素 ， 在 分 析 问 题 精 力 和 计算 能 力 允 许 的 
条 件 下 考虑 尽 可 能 多 的 影响 因素 。 而 确定 影响 因素 的 主 次 关系 往往 比较 困难 , 它 要 求 对 问题 背景 有 
深刻 的 理解 和 丰富 的 经 验 。 有 时 一 些 因素 被 误 认为 是 不 重要 的 因素 ， 可 能 对 结果 的 影响 比较 大 。 

为 了 使 建 模 顺利 进行 ， 需要 进行 一 些 合理 的 假设 。 其 目的 在 于 做 出 变量 的 取舍 ， 即 确定 不 同 变 
量 的 重要 程度 。 使 目标 问题 得 以 简化 便于 利用 数学 语言 描述 ,同时 抓 住 目 标 问题 的 本 质 。 假 如 我 们 
把 建 模 比 做 “建造 大 楼 ”， 各 个 因素 就 好 比 是 建筑 材料 ， 如 砖 块 、 钢 筋 、 砂 子 等 ， 而 假设 环节 就 是 
用 水 泥 把 各 个 因素 组 合 在 一 起 。 在 建 模 过 程 中 , 成 功 与 否 很 大 程度 上 依赖 于 所 作假 设 的 合理 性 , 这 
个 工作 主要 取决 于 建 模 研究 者 的 理论 基础 和 经 验 。 假设 可 以 分 为 两 类 : 一 类 是 为 了 简化 科学 或 者 工 
程 问题 的 需要 而 做 出 的 , 另 一 类 是 为 了 沿用 某 一 数学 算法 而 做 出 的 。 具 体 的 假设 需要 根据 目标 问题 
来 确定 。 值 得 指出 的 是 ,检验 假设 是 否 合理 需要 依据 假设 是 否 满足 所 研究 的 实际 问题 ， 而 不 是 为 了 
解决 问题 的 便利 而 牌 曲 原来 的 问题 。 


19.1.3 数学 建 模 示例 


下 面 举 例 说 明 建立 抽象 模型 的 过 程 。 

例 19-1: 狗 、 鸡 、 白 菜 渡河 问题 : 某 人 需要 把 随身 所 带 的 一 只 狗 、 一 只 鸡 和 一 颗 和 白菜 运 过 河 ， 
而 限制 条 件 是 现 有 的 一 条 船 除 了 人 之 外 每 次 只 能 带 一 样 东 西 过 河 。 问 题 是 这 个 人 如 何 安排 载 渡 顺 序 
才能 使 得 狗 不 吃 鸡 、 鸡 不 吃 白 菜 ( 注 : 有 人 在 场 时 ， 狗 不 能 吃 鸡 、 鸡 不 能 吃 白菜 ) 

这 是 一 道 智力 游戏 问题 , 大 家 可 以 通过 多 次 反复 试验 而 得 到 正确 的 答案 。 现 在 的 问题 是 如 何 利 
用 数学 语言 给 出 一 个 逻辑 推导 过 程 。 实 际 上 大 家 在 推算 这 个 问题 时 所 用 的 一 些 记录 符号 就 是 数学 语 
言 的 雏形 。 
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本 题目 描述 的 安全 过 河 问 题 可 以 理解 成 一 个 多 步 决策 的 过 程 。 在 每 一 步 决策 中 , 即 船 在 此 岸 和 
彼岸 之 间 “ 往 ”或 “ 返 ”" 之 前 ， 都 需要 对 船 和 岸上 的 东西 做 出 决策 ， 在 保证 安全 的 前 提 下 ， 在 有 限 
次 往返 过 程 中 把 所 有 物品 运 过 河 ， 即 到 达 彼 岸 。 数 学 上 ， 可 以 把 人 、 狗 、 鸡 和 白菜 依次 用 一 个 由 4 
个 元 素 组 成 的 向 量 表示 ( man,， dog，chicken 和 cabbage )， 元 素 按 顺序 对 应 于 人 、 狗 、 鸡 和 白菜 。 
如 果 考 虑 对 象 ( 人 、 狗 、 鸡 和 白菜 之 一 ) 在 此 岸 ， 则 对 应 元 素 为 1， 若 在 彼岸 则 对 应 元 素 等 于 0， 
比如 (1，0，1，0 ) 表示 人 和 鸡 在 此 岸 , ( 0，0，1，1 ) 表示 鸡 和 白菜 在 彼岸 。 这 里 用 S 表示 所 有 
可 能 的 状态 ， 即 ， 

1 1 1)h(1， 1 1 0) (1，1，0， 0) (1，1，0，1) 
0，0), (1，0,，0,， 1) (1，0，1，0) (1，0，1，1) 


0， 
1 0 0jh (0 1 0 1)(0，1，1，0) (0 1，1，1) 
0 0, 0) (0 0 ol1)(0 ol0)(o， 0 11) 








下 画 线 标 记 的 向 量 表示 允许 的 状态 。 其 中 (1，1，1，1 ) 是 初始 状态 ，(0,，0, 0 
0) 是 目标 状态 。 这 16 个 状态 可 以 利用 下 面 的 MATLAB 程序 生成 。 


S='(0,0,0,0)';Ss=[]; $ 初始 化 字符 串 S 和 Ss 
for k=0:15) 
S(2:2:end)=strrep (num2str(bitget(k,1:4)),' '…'';， # kk 提取 二 进 制 数位 并 转化 为 字 
符 虽 形 式 
if k>2 & mod(k+1,4)==07; % 检查 k 是 否 为 3，7，11，15 
Ses= [Se,',\、',S]1) gs 更 新 Ss 的 数据 
disp(Ss{2:end));Ss=[]; % 显示 Ss 的 内 容 ， 同 时 清空 ss 的 内 容 
else 
Sa=[S8，、',S] * % 更 新 Ss 的 数据 
end 
end 
上 述 程序 输出 为 : 


(0,0,0,0)，(1,0,0,0)，{(0,1,0,0)，(1,1,0,0) 
(0,0,1,0)，(1,0,1,0)，(0,1,1,0)，(1,1,1,0) 
(0,0,0,1)，(1,0,0,1)，(0,1,0,1)，(1,1,0,1) 
(0,0,1,1)，(1.0,1,1)，(0,1,1,1)，(1,1,1,1) 

如 果 把 每 次 运载 的 情况 也 利用 一 个 4 元 素 向 量 表示 ， 如 ( 1，1，0，0 ) 表示 人 和 狗 在 船上 而 
鸡 和 白菜 不 在 船上 ， 这 样 允许 的 运载 状态 D 只 有 4 种 允许 取 值 ， 即 : 

(1,，1，0,， 0) (1,，0,， 1， 0), (1， 0,，0， 1) (1， 0，0, 0) 

这 里 规定 S 和 D 中 的 元 素 相 加 时 按 二 进 制 法 则 进行 来 对 应 渡河 过 程 。 因 此 ， 单 程 过 河 就 是 一 
个 允许 状态 向 量 S 和 一 个 允许 运载 向 量 D 的 相 加 运算 。 因 此 决策 问题 可 以 用 数学 语言 描述 为 : 求 
出 决策 de 万 ， 使 状态 向 量 8, E ,9 按照 运算 规则 从 状态 ( 1，1，1，1 ) 经 过 有 限 次 计算 得 到 向 
量 (0，0,，0,， 0)。 

这 里 考虑 利用 MATLAB 程序 来 模拟 上 述 过 程 。 利 用 运载 状态 向 量 D 作用 于 允许 状态 向 最 S， 
保留 允许 的 状态 ,删除 一 些 不 允许 的 状态 。 其 中 运载 状态 和 矩阵 需要 根据 岸上 的 物品 决定 ， 比 如 岸上 
有 狗 和 白菜 ， 那 么 允许 的 运载 状态 向 量 有 ( 1，1，0，0), ( 1，0，0,，1) (1，0，0，0 )， 即 船上 
运载 的 内 容 可 以 是 :, “只 有 人 "、“" 人 和 狗 "、 “人 和 白菜 ”3 种 可 能 。 同 时 需要 限制 连续 两 次 运载 内 


484 jw 入 


本 本 可 本 第 ]9 = MATLAB 建 模 基 础 


容 不 能 一 样 ， 否 则 会 进入 死 循环 。 下 面 给 出 实现 本 问题 的 模拟 MATLAB 程序 。 


s=[1,1,1,1]; g 初始 状态 
Ss=si % 记录 状态 变化 的 数组 
D=[1,0,0,0;1,1,0,0;1,0,1,0;1,0,0,1]; gs 运载 状态 组 成 的 矩阵 
Ds=[]; $ 记录 运载 状态 变化 的 数组 
v=[8,4,2,1]; g 二 进 制 转化 为 十 进 制 数 的 基 
Vi=[3,6,7,8,9,12]; $ 不 允许 状态 向 量 对 应 的 十 进 制 数 
k=1; g 标记 往返 的 参数 
while sum(s)>0.5; 
if mod(k,2)==1; % 判断 往返 情况 ，1 表示 往 ，0 表示 返 
x=find(s==0) ; g 找 出 在 彼岸 的 物品 
else 
x=find(s==1) g 找 出 在 此 岸 的 物品 
end 
Dt=D;Dt(x,:)=[]); # 计算 出 可 能 的 状态 矩阵 


if ~isempty(Ds); 
Dt=setdiff(Dt,Ds(end, :),'rows'); gs 删 去 上 一 步 用 过 的 运载 状态 向 量 ， 避 免 死 循 环 


end 
St=repmat (sS,size(Dt,1),1); ， % 复制 表示 状态 的 向 量 使 矩阵 St 和 矩阵 Dt 的 行 数 和 列 数 相等 
SD=mod(Dt+St,2); sg 通过 加 法 规则 计算 运载 后 的 结果 
Sv=sum(SD.*repmat (V,size(Dt,1),1),2); sg 计算 运载 后 状态 向 量 对 应 的 十 进 制 数 
V=setdiff{(Sv,Vi'rows'); sg 从 运载 后 的 状态 中 删 去 不 允许 的 状态 
x=find(Sv==min(V) ) ; g% 找 出 一 个 允许 的 运载 状态 
S=SD(x, :); g 得 到 运载 后 的 状态 向 量 
Ds=[Ds;Dt(x,:)]; g# 把 当前 运载 状态 向 量 加 入 到 和 矩 阵 ps 中 
Ss=[Ss;s]; 把 当前 状态 向 量 加 入 到 矩阵 ss 中 
kk=k+1: sg 更 新 标记 往返 的 参数 
ena 
Process=[Ss(1:7,:),Ds] % 输出 状态 向 量 及 对 应 的 运载 状态 向 量 ， 其 中 两 部 分 合 为 一 个 和 矩阵 显 
示 Process 
S # 输出 最 后 结果 


运行 上 述 程序 ， 输 出 结果 为 : 


Process = 
二 工 工 二 
0 吕 0 1 1 0 0. 0 
1 1 0 1 1 工 0 0 
0 0 0 于 1 0 二 0 
工 Q 站 工 1 0 0. 工 
0 0 工 0 1 0 0 0 
1 0 工 0 了 0 和 0 
sa=0 0 0 0 


结果 表明 经 过 7 次 运载 ， 可 以 把 所 有 物品 运 过 岸 。 


陨 在 显示 的 过 程 和 阵 Process 中 , 左 侧 划 波浪 线 的 部 分 是 状态 向 量 ， 右 侧 划 下 画 线 的 
况 明 部 分 是 运载 状态 向 量 。 用 户 可 以 根据 前 面 说 明 解读 上 面 的 数据 。 


前 面 通过 不 同类 型 的 例子 说 明了 如 何 建立 模型 、 程 序 模拟 , 用 户 可 以 从 中 学 习 解 决 实际 问题 的 
方法 : 分 析 问 题 背景 、 数 学 语言 描述 、 程 序 模拟 。 在 前 面 章节 介绍 了 MATLAB 数值 计算 与 数据 可 
视 化 的 方法 , 利用 这 个 功能 强大 的 工具 可 以 解决 很 多 科学 与 工程 问题 。 在 求解 问题 过 程 中 , 对 于 获 
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得 的 结果 还 需要 从 专业 知识 和 实际 结果 出 发 来 验证 结果 的 可 靠 性 。 


19.2 ”离散 采样 方法 


对 于 离散 的 数据 而 言 ， 需 要 根据 数据 的 变化 规律 得 出 相应 的 经 验 模型 。 在 这 样 的 经 验 模型 中 ， 
变量 之 间 的 关系 通过 数据 变化 特点 而 得 到 数学 公式 ,所 得 表达 式 比 前 面 介绍 的 抽象 模型 要 简单 同时 
有 一 定 的 准确 性 。 数据 与 理论 曲线 之 间 的 误差 可 以 看 做 是 一 些 未 知 因素 的 影响 。 所 得 函数 公式 不 是 
来 自 于 事先 假设 , 也 不 是 基于 物理 上 的 规律 或 者 原理 , 而 是 通过 建 模 者 认为 已 知 数据 与 某 类 数学 公 
式 之 间 具 有 很 大 的 相似 性 而 选取 的 。 这 样 的 模型 经 常 是 复杂 模型 的 子 模型 。 得 到 经 验 模型 的 步骤 如 
下 : 


ER 把 已 知 数据 绘制 在 坐标 轴 上 ， 通 过 离散 数据 的 走势 来 推 昕 其 所 属 数学 函数 类 型 。 其 中 选 
择 数学 公式 的 优 劣 直接 影响 到 经 验 模 型 的 精确 程度 。 
确定 数学 公式 中 的 参数 。 
EEC。 根据 数学 计算 各 点 的 函数 值 ， 并 与 已 知 数据 相 比 较 ， 得 到 二 者 的 误差 量 。 如 果 不 符合 精 
度 要 求 ， 需 要 对 数学 函数 的 表达 式 重 新 认定 或 者 重新 计算 公式 中 的 参数 。 其 中 参数 的 确 
定 可 以 利用 最 小 二 乘 原理 或 者 前 面 介绍 的 回归 分 析 法 。 
例 19-2: 分 析 身高 与 体重 。 
表 19.1 中 的 数据 给 出 在 某 地 测量 15 个 不 同年 龄 的 人 的 身高 与 体重 的 数据 。 试 分 析 其 中 的 规律 。 


表 19.1 不 同人 的 身高 与 体重 表格 


人 
身高 (cm 体重 (k 身高 (cm 体重 (k 身高 (cm) 体重 (k 
人 11 126 28 163 53 
86 13 135 36 167 55 
95 15 151 42 171 61 
108 17 155 47 178 67 
112 22 160 51 185 76 


ER 祖 据 表 19.1 绘制 数据 相应 的 曲线 ， 其 中 X 轴 为 身高 H，Y 轴 对 应 着 体重 W。 
具体 的 绘图 程序 如 下 ， 


H-=[75,86,95,108,112,126,135,151,155,160,163,167,171,178,185] ; % 输入 身高 数据 


W=[11,13,15,17,22,28,36,42,47,51,53,55,61,67,76]; *# 输入 体重 数据 
s1=subplot (121) ;plot (H, 风 ,'k*')7axis squarei 绘图 并 设置 当前 坐标 轴 为 
方形 

xlabel('fNitHl'，'Fontname'，'Times New Roman'): g% X 轴 标 注 
ylabel('fNitwj'，'Fontname'，'Times New Roman'); g Y 轴 标 注 

subplot (122) ;plot (H,1og(W)，'kx*');iaxis Square % 绘图 并 设置 当前 坐标 轴 
为 方形 

xlabel('{fNitH)}'，'Fontname'，'Times New Roman'): gs X 轴 标 注 

ylabel('ln {\itW}j'，'Fontname'，'Times New Roman') 1 当 立轴 标注 


输出 图 形 如 图 19.1 所 示 。 
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图 19.1 身高 与 体重 的 对 应 关系 数据 


从 图 19.1 可 以 看 出 数据 点 接近 于 指数 曲线 ， 而 通过 绘制 InH 对 InW 的 曲线 可 以 进一步 看 
出 与 指数 函数 吻合 得 很 好 。 利 用 最 小 二 乘法 拟 合 数据 有 : 

P = polyfit(1log(H),1og(W) ,1) 
输出 为 ， 

卫 2.2385 -7.4374 


从 而 可 以 得 出 身高 和 体重 的 关系 表达 式 ，lnW = 2.2385ln 妃 -7.4374 。 两 边 取 e 指数 有 ， 
风 =5.88811122385 。 利 用 拟 合 的 公式 计算 ， 得 到 的 曲线 如 图 19.2 所 示 。 


昌 诈 
杀 
名 
羡 4 如 
2 李 


是 8 100 120 140 160 160 200 
万 


图 19.2 拟 合 结果 
计算 的 MATLAB 程序 代码 如 下 : 


P = polyfit(log(H) ,1og(W) ,1)， sg% 进行 多 项 式 拟 合 
h=linspace(75,185) ;% 生成 等 间隔 采 样 数据 

plot (H,W,*') ;hold on;s 绘制 已 知 数据 曲线 
plot(h,5.888le-004*h.^2.2385，r') ;gs 绘制 拟 合 曲线 
xlabel('fNitH)'，'Fontname'，'Times New Roman'); g% X 轴 标注 
ylabel('fNitWw}j' Fontname'，'Times New Roman'); $ Y 轴 标注 


例 19-3: 分 析 潮 水 高 度 。 
表 19.2 给 出 了 某 地 连续 24 小 时 记录 的 潮水 高 度数 据 ， 试 建立 经 验 模型 的 数学 公式 。 


表 19.2 ”潮水 高 度数 据 表 


时 间 高 度 (m 时 间 高 度 (m 时 间 高 度 (m 时 间 高 度 (m 


00:00 2.7 06:00 -2.9 12:00 3.2 18:00 -3.3 
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( 续 表 ) 
时 间 高 度 (m 时 间 高 度 (m 时 间 高 度 (m) 时 间 高 度 (m 
01:00 1.8 07:00 -2.1 13:00 2.0 19:00 -2.8 
02:00 0.3 08:00 -0.3 14:00 0.6 20:00 -1.2 
03:00 -1.1 09:00 1.6 15:00 -0.9 21:00 0.8 
04:00 -2.3 10:00 3.2 16:00 -2.2 22:00 2.6 
05:00 -3 11:00 3.7 17:00 -3 23:00 3.5 
根据 数据 绘制 二 维 图 形 ， 相 应 程序 如 下 : 
T=0:23; % 时 间 数 据 


H=[2.7,1.8,0.3,-1.1,-2.3,-3,-2.9,-2.1,-0.3,1.6,3.2,3.7,3.2,2.0,0.6,-0.9,-2.2,- 
3,-3.3,-2.8,-1.2,0.8,2.6,3.5]; 

figure;plot(T,H,，'kx*') % 绘图 

xlim( [min(T),max(T)]); ss 设置 X 轴 范围 


输出 图 形 如 图 19.3 所 示 。 








图 19.3 ”潮水 高 度 随时 间 变化 的 数据 图 


从 图 19.3 中 数据 分 布 的 特点 可 以 看 出 数据 分 布 接近 于 函数 关系 疡 = asin(ot+c)。 确 定 了 
函数 的 参数 a ， 沁 和 ec 就 得 到 了 经 验 公 式 。 


xdaata=0:23; sg% 输入 待 拟 合 的 数据 

ydaata=Hi # 输入 高 度数 据 

options=optimset('TolFun',le-6); s$% 设置 优化 选项 

X = lsqcurvefit(@(x,Xxdatal) 

x(l1)*sin(xaata*x(2)+Xx(3)), [4.1,pPi*2/18,1.1],xdaata,ydata, [],[] ,options) 
t=linspace(0,23); # 生成 等 间隔 采样 数据 

figure;plot(T,H, :kr*');  $% 绘图 

holda ony; 

plot(t,x(1)*sin(x(2)*t+x(3))，'z') % 绘制 拟 合 曲线 


和 输出 结果 如 下 ; 


xX= -3,.3657 0.5117 -1.0854 
因此 经 验 公式 可 以 写 为 ; = -3.3657sin(0.5117! 一 1.0854)。 根据 经 验 公式 绘制 的 曲线 如 图 
19.4 所 示 。 
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图 19.4 ”根据 潮水 高 度数 据 拟 合 的 曲线 


19.3 算法 结构 设计 


在 前 面 两 节 介绍 的 模型 建立 方法 的 基础 上 , 可 以 考虑 建立 程序 来 模拟 一 些 过 程 或 者 计算 一 些 结 
果 。 在 建立 程序 的 过 程 中 程序 结构 设计 非常 重要 ， 需 要 按照 一 定 的 顺序 来 计算 相关 的 变量 ， 下 面 举 
例 来 说 明 程序 设计 。 

例 19-4: 分 析 狗 运动 的 轨迹 。 在 一 个 广场 上 ， 一 个 人 正在 以 匀速 度 w 沿 一 直线 跑步 。 此 时 一 
只 狗 从 某 一 位 置 开 始 以 速率 w 时 刻 瞄 准 人 开始 追赶 ， 如 图 19.5 所 示 。 

问题 的 关键 在 于 狗 的 运动 方向 在 不 断 地 变化 , 这 里 考虑 建立 一 个 动画 来 模拟 这 个 过 程 。 本 问题 
中 的 参数 有 4 个 ， 即 初始 时 人 和 狗 的 位 置 pw 和 Pu ， 以 及 它们 的 速度 。 在 设计 程序 时 可 以 考虑 不 
同 的 情况 进行 分 析 。 下 面 给 出 求解 这 个 问题 的 步骤 : 


给 定 问题 的 参数 ， 同 时 考虑 所 有 可 能 的 情况 。 

以 时 间 必 为 单位 计算 各 个 离散 时 刻 人 和 狗 的 位 置 。 

计算 当前 狗 的 速度 ， 并 给 出 下 一 时 刻 狗 的 位 置 。 

如 此 循环 下 去 就 得 到 一 系列 位 置信 息 ， 从 而 得 到 狗 运 动 的 轨迹 。 


狗 








图 19.5 ” 狗 追 人 模型 
根据 上 面 的 分 析 ， 假 定 人 的 运动 速度 是 3 米 / 秒 ， 狗 的 速率 是 3.5 米 / 秒 , 给 出 相应 的 模拟 程序 。 
Zm=y # 人 的 位 置 
zd=8+5i) s# 狗 的 位 置 
vm=3; g 人 的 速度 
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va=3.5; s 狗 的 速度 

at=0.02; $ 时 间 间 隔 

RA=0; % 设置 人 运动 的 方向 

pm=p1lot (zm,，'ko5) 7; #% 绘制 人 的 位 置 

holda ony; 

pda=plot (zd, 'k'); % 绘制 狗 运 动 的 轨迹 

axis([0,8,0,5]); sg 设置 坐标 轴 范 围 

while abs(zmlend)-zd(end))>0.01， % 循环 计算 狗 的 运动 轨迹 
At=angle(zm-zd(end) ) ; g 计算 狗 当前 运动 的 方向 
zd=[zd,zd(end) +exp(ix*at)x*vdxat];  % 计算 狗 在 下 一 时 刻 的 位 置 
Zzm=2Zm+exp (wR) *Vmxdt; # 计算 下 一 时 刻 人 的 位 置 


set (pm, ,xdaata',real(zm)，,'ydata',imag(zm)); $% 更 新 人 的 位 置 
set (pd, 'xdqata' ,real(zd),'ydata' ,imag(zd) ) g# 更 新 狗 的 运动 轨迹 
pause(0.2); gs 暂停 0 .2 秒 显示 动画 效果 


enda 


当 程 序 停止 时 ， 输 出 图 形 如 图 19.6 所 示 。 


0 1 2 3 4 5 6 7 8 
图 19.6 狗 追 人 时 ， 狗 的 运动 轨迹 
这 里 可 以 进一步 考虑 狗 取 不 同 速度 时 的 结果 ， 把 上 述 程序 中 关于 人 和 狗 速 度 赋 值 的 语句 注释 
掉 , 得 到 关于 速度 的 函数 文件 ,对 应 光盘 中 \Ch19 文件 夹 下 的 dog_trace.m 文件 。 该 函数 的 调用 格 
式 为 3? 
dog_trace (vm,vd) ; 


参数 说 明 : vm 是 人 的 速度 ，vd 是 狗 的 速度 。 

下 面 调用 dog_trace 来 计算 不 同 狗 速 度 的 轨迹 结果 。 

利用 下 面 的 程序 计算 不 同 狗 速 度 对 应 的 轨迹 曲线 。 
s(1)=subplot(131) ;dog_trace(3,3.2) 718 绘制 va=3.1m/s 时 的 轨迹 
s(2)-=subplot (132) ;dog_trace(3,3.7) ;1% 绘制 vdq=3 .7m/s 时 的 轨迹 
s(3)=subplot (133) ;dog_trace(3,4.2) ;8 绘制 vd=4.2m/s 时 的 轨迹 
axis(s,'square1); g 设置 坐标 轴 为 方形 

上 述 程序 输出 结果 如 图 19.7 所 示 。 用 户 还 可 以 计算 当 人 运动 速度 方向 选取 不 同 数值 时 的 结果 。 
下 面 考 虑 当 人 运动 的 轨迹 是 圆 的 时 候 ， 狗 运动 时 留 下 的 轨迹 ， 相 应 程序 如 下 。 
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vd=4.2 
3 3 
2 2 
1 1 忆 Le 
0 2 慎 5 6 1 0 2 旭 6 8 0 2 和 5 8 
图 19.7” 狗 速度 不 同时 狗 运 动 的 轨迹 图 
vm=3 g% 人 的 速度 
vdq=3.1;  % 狗 的 速度 
zm=6i) gs 人 的 位 置 
zd=0; g% 狗 的 位 置 
at=0.02; 。”g# 时 间 间 隔 
A=0; g% 设置 开始 时 人 运动 的 方向 
R=abs (zm); $% 网 轨迹 的 半径 
da=vmxdt/R; % 角速度 
pm=plot (zm, 'ko'); % 绘制 人 的 位 置 
hold ony; 
pd=plot(zd, 'k'); # 绘制 狗 运 动 的 轨迹 
axis ([-R,R,-R,R]，'square') 1; % 设置 坐标 轴 范 围 
while abs(zm(end)-zd(end))>0.01; % 循环 计算 狗 的 运动 轨迹 ， 狗 追 上 人 ， 它 们 都 停止 运动 
Rt=angle(zm-zd(end) ) ; # 计算 狗 当 前 运动 的 方向 
zd=[zda,zd(end)+exp (ix*Rt)*vdxat]; % 计算 狗 在 下 一 时 刻 的 位 置 
有 =RA+dRA; #% 更 新 角度 值 


zm=Rxexp (ix*&R); % 计算 下 一 时 刻 人 的 位 置 

set (pm, 'xdGata' ,real(zm),'ydata'imag(zm)); % 更 新 人 的 位 置 

set (pd, 'xdata',real(zd),'yaata' ,imag(za) )， g% 更 新 狗 的 运动 轨迹 
pause(0.2); % 暂停 0 .2 秒 显示 动画 效果 


end 

运行 上 述 程序 ， 最 终 输 出 结果 如 图 19.8 所 示 。 

前 面 介 绍 了 人 沿 着 直线 或 者 圆 运 动 的 情况 ,这 两 种 情况 可 以 用 匀 线 速度 和 角速度 来 更 新 人 的 位 
置 。 如 果 人 运动 的 轨迹 不 是 这 样 的 轨迹 ， 比 如 方形 ,该 如 何 分 析 呢 ? 需要 明确 的 是 如 何 从 人 运动 的 
速度 来 计算 人 的 位 置 。 这 里 通过 计算 人 走 过 路 途 的 长 度 来 确定 人 的 位 置 ， 假 定 开始 时 人 处 于 [0, 口 ， 
其 中 L 是 方向 的 半边 长 ， 如 图 19.9 所 示 。 
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图 19.8 ” 狗 运动 的 轨迹 19.9 人 沿 着 方形 跑道 运动 
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这 里 假定 人 开始 时 位 于 ( 忆 , 忆 ) 点 处 。 设 人 跑 过 的 长 度 为 8 ， 下 面 考虑 根据 8 确定 人 处 于 何 处 的 
计算 方法 。 人 在 方形 轨道 上 是 一 个 周期 性 运动 ，8 可 以 对 其 周期 叱 进行 模 ( mod ) 计算 ， 即 


S, =mod(S,8L) ， 其 中 Se [08zr)。 


这 样 8, 就 是 一 个 周期 内 的 长 度 了 。 根 据 8 分 属 区 间 的 不 同 可 以 得 到 如 下 一 个 分 段 函数 : 


L-re， 0<5<2 


= 三世 2L<3S, <4L 
x(S,)= 
me 一 已 4L<S <6L 
政 6L<S <8L 
忆 0<S <2L 
(S)- 工 一 re， 2L<SS<4L 
|] 4L<S, < 人 6 


re- 大 6L<5 <8 


( 19-1 ) 


( 19-2 ) 


即 同 一 条 边 上 可 以 根据 9 计算 得 到 确定 的 坐标 值 ， 上 面 的 表达 式 是 分 段 函 数 。 其 中 心 表 示 8 


和 2 相 除 的 余数 ， 用 MATLAB 命令 表述 就 是 re = rem(St,2UD。 根 据 上 面 的 分 析 ， 
的 实现 程序 ， 如 下 ; 


vm=3; #s 人 的 速度 

vd=3.05; #% 狗 的 速度 

L=8; 

Zm=L+Lw) g 人 的 位 置 

S=0; g% 初始 时 人 走 过 的 距离 
zd=0) s% 狗 的 位 置 

at=0.02; % 时 间 间 两 

pm=plot (zm,'Xo')， g% 绘制 人 的 位 置 
hold on; 

pd=plot(zd, 'k'); sg 绘制 狗 运动 的 轨迹 


P=[D, -Dr-DyD]; 
axis([-(L+l)，(L+1),-(D+1l)，(L+I)]，'square'); sg% 设置 从 标 轴 范 转 


给 出 这 种 情况 下 


while abs(zm-zd(end))>0.01; s# 循环 计算 狗 的 运动 轨迹 ， 狗 据 上 人 ， 宾 们 者 你 止 运动 


Rt=angle(zm-zd(end));  % 计算 狗 当 前 运动 的 方向 
zd=[zd,zd(end)+exp(ixat)*vdxat];  $% 计算 狗 在 下 一 时 刻 的 位 置 
S=S+dtwvmy sg 更 新 角度 值 


St=mod(S,8*E) $% 计算 变量 St 的 数值 
re=rem(St, Dr2); 当 计算 st 和 2L7 相 除 的 余数 
n=fix(SE/2/L) ; % 计算 st 和 2L 相 除 的 商 数 
Switch DP); 
Case 0 
x=L-re: % 人 处 于 上 面 一 条 边 上 的 X 轴 坐 标 值 
Y=L; # 人 处 于 上 面 一 条 边 上 的 Y 轴 坐 标 值 
case 11; 
X=-D; #% 人 处 于 左面 一 条 边 上 的 Xx 轴 坐 标 值 
Y=L-rei #% 人 处 于 左面 一 条 边 上 的 Y 轴 坐 标 值 
case 21; 
X=re-D; #s 人 处 于 下 面 一 条 边 上 的 X 轴 坐 标 值 
Y=-D; #% 人 处 于 下 面 一 条 边 上 的 Y 轴 坐 标 值 
Cagse 3 了 3# 
X=LY; $ 人 处 于 右面 一 条 边 上 的 X 轴 坐 标 值 
Y=Ie-L; # 人 处 于 右面 一 条 边 上 的 立轴 坐标 值 
enda 
ZIm=X+wy 7 g 得 到 下 一 时 刻 人 的 位 置 
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set (pm, 'xdata',real(zmj,'ydata',imag(zm)); % 更 新 人 的 位 置 
set (pd, 'xdata',real(zd)，'ydata',imag(zda)); ， s% 更 新 狗 的 运动 轨迹 
pause(0.2) % 暂停 0.2 秒 显 示 动 画 效果 


enda 

输出 结果 如 图 19.10 左 图 所 示 。 

当 把 前 面 程序 中 的 “zm=L+Ls*i” 和 “S=0” 换 为 “zm=L*ii” 和 “S=L” 时 ， 就 可 以 模拟 人 
初始 时 位 于 (0, 员 这 一 点 开始 的 运动 情况 ， 此 时 所 得 狗 的 运动 轨迹 如 图 19.10 右 图 所 示 。 


血 印加 太 口 则 wa 四 四 
名 各 站 和 口 和 四 四 


刁 6 -4 2 0 2 本 6 百 及 而 坦 了 0 2 站 6 8 
图 19.10 ”人 沿 方形 轨道 运动 时 狗 的 运动 轨迹 

例 19-5: 有 的 时 候 一 些 专门 的 软件 可 以 每 隔 一 段 时 间 产 生 一 个 数据 文件 ， 但 是 这 些 软件 可 能 
不 提供 相应 的 数据 处 理 程序 。 为 此 需要 编写 一 个 专门 的 数据 小 程序 来 实时 地 处 理 数 据 , 这 样 就 可 以 
便于 进行 下 一 步 的 数据 分 析 工作 。 

这 个 问题 明确 需要 一 个 循环 结构 ， 比 较 好 的 就 是 while 语句 实现 的 不 定 次 数 的 循环 。 可 以 利用 
下 面 的 格式 : 
while II 

% 这 里 是 程序 计算 部 分 
End 

这 样 程序 可 以 一 直 执 行 下 去 ， 直 至 用 户 按 “Ctrl+C” 组 合 键 强行 中 止 程序 执行 。 在 循环 内 部 需 
要 实时 地 检测 数据 文件 是 否 存在 。 检 测 数据 文件 是 否 存在 可 以 用 如 下 方法 。 


R=dir('* .ext') 7 
names=A.name: 

参数 说 明 : ext 是 数据 文件 的 扩展 名 ， 此 时 其 他 文件 将 不 被 检索 。A 是 一 个 结构 体 ， 表 示 返 回 
的 文件 信息 。 其 中 文件 名 信息 可 以 利用 names 变量 进行 存储 。 

用 户 可 以 根据 names 变量 的 取 值 情况 来 确定 数据 文件 的 存在 性 。 同 时 希望 处 理 后 的 数据 文件 
删除 ， 如 果 数 据 文件 用 户 不 想 保留 ， 可 以 直接 使 用 函数 delete 进行 删除 ， 如 果 需 要 保留 数据 文件 ， 
可 以 使 用 函数 copyfile 把 数据 文件 保存 到 另外 一 个 文件 夹 中 , 然后 在 当前 文件 夹 把 已 经 处 理 过 的 数 
据 文件 删除 。 

数据 读 入 可 以 考虑 MATLAB 提供 的 函数 load，textread，importdata，xlsread 以 及 fread 等 。 
如 果 产 生 数据 的 软件 输出 的 数据 类 型 可 以 选择 ， 用 户 可 以 设 定 该 软件 和 MATLAB 都 支持 的 文件 类 
型 来 实现 二 者 的 数据 交流 。 根 据 以 上 分 析 ， 可 以 建立 如 图 19.11 所 示 的 实时 数据 处 理 结构 。 
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相关 参数 的 初始 化 


进行 相关 的 数据 处 理 操作 


按 要 求 中 转 数据 文件 


删除 当前 文件 去 下 的 处 理 过 的 数据 





图 19.11 实时 处 理 数 据 的 程序 结构 


和 产生 软件 生成 相 邻 两 个 数据 的 时 间 间 隔 而 定 ， 它 们 达到 匹配 是 最 好 的 。 这 里 需 
要 对 数据 存在 与 否 进行 判断 ， 如 果 数 据 不 存在 ， 直 接 进入 停顿 环节 即 可 ， 其 实现 
可 以 通过 计 语 句 。 


省 短暂 停顿 可 以 使 MATLAB 的 CPU 占用 延缓 一 下 , 停顿 的 时 间 要 根据 数据 处 理 的 时 间 
说 明 


19.4 ”实例 仿真 


根据 前 面 介 绍 的 方法 ， 本 节 举 例 说 明 利用 MATLAB 解决 一 些 数据 问题 的 过 程 。 
例 19-6: 椭圆 与 直线 相 切 的 问题 。 椭 圆 的 参数 方程 可 以 描述 为 : 


到 让 
| “5 ， 其 中 0<b<a，te[o2m ( 19-3 ) 
y=zsint 


现在 有 一 水 平 直线 方程 y= - 户 ， 其 中 心 < 疡 <a ， 曲 线 位 置 关 系 如 图 19.12 所 示 。 求 椭圆 旋转 多 
少 角度 时 与 直线 相 切 。 
首先 分 析 这 个 问题 的 解析 解 ， 假 设 旋转 角度 为 8 时 椭圆 与 直线 相 切 ， 坐 标 旋转 矩 阵 7 为 : 
cos 有 sin 太 
-| | (94) 
利用 和 矩阵 了 可 以 计算 出 旋转 后 的 椭圆 参数 方程 为 : 
wo 1 语 剖 
y=acostsinB+bsintcos 太 
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-6 -4 2 ， 0 2 4 6 
图 19.12 ”椭圆 与 直线 
可 以 知道 y 的 最 小 值 是 : 
ymin =-Vyazsin2B+b2cos2D 


当 相 切 时 ，?》 的 最 小 值 应 该 等 于 一 ， 这 样 可 以 得 到 ， 


妇 2=azsin28+b2cos2D ( 19-6 ) 
因此 可 以 得 到 ， 
2 他 
sin2 = (19-7) 
若 限定 Be [o,z/2) ， 则 有 : 
.| | 要 一 罗 
-aol 生 光 | { 19-8 ) 


设 b=2，h=3 和 a=4， 则 1=arcsin(V5112)=07017。 

下 面 考虑 利用 MATLAB 数值 计算 这 个 计算 过 程 ， 采 用 的 算法 是 二 分 法 。 首 先 把 旋转 前 椭圆 曲 
线 上 各 点 的 坐标 离散 化 ， 再 考虑 旋转 角度 的 上 下 限 ， 分 析 可 知 旋转 角度 介 于 0 到 /2 这 个 范围 
其 中 0 对 应 着 曲线 和 直线 相 离 ( 曲线 上 最 小 值 大 于 -h )， 而 /2 对 应 着 椭圆 和 水 平 直线 相交 ( 曲线 
上 最 小 值 小 于 -h )。 进 行 角度 二 分 并 分 析 顶 贺 与 直线 的 位 置 关 系 ， 不 断 二 分 下 去 就 可 以 得 到 旋转 的 
角度 。 相 应 的 实现 程序 如 下 ， 


t=linspace(pi,pi*2,401)7;g 离散 化 参数 上 

a=4; g% 对 半 长 轴 赋 值 

b=2; % 对 半 短 轴 赋 值 

h=3; # 对 参数 h 赋值 

P=[axrcos(t);bxsin(t)];8 把 坐标 点 写 为 2xN 的 矩阵 


bl=0; g% 旋转 角度 的 下 限 

b2=pi/2; $ 旋转 角度 的 上 限 

while abs(bl-b2)>1le-5; 
bm= [bl1+b2]/2;# 取 二 等 分 点 
T= [cos (bm) ,sin(bm) ;-sin(bm) ,cos(bm)]; % 计算 旋转 答 阵 
Pm=T*P; % 计算 旋转 后 坐标 点 对 应 的 2xN 的 符 阵 
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ym=min(Pm(2, :)); % 获得 离散 情况 下 的 最 小 值 
if ym>-h; $% 判断 椭圆 与 直线 是 否 相 离 
bl=bm; % 用 中 值 bm 更 新 bl 的 值 
else 
b2=bm; 8 对 于 相交 情况 ， 用 中 值 bm 更 新 b2 的 值 
end 
end 


bm= [bl+b21/2 % 输出 中 值 结 果 作为 旋转 角度 的 近似 值 


:和 。 考 虑 ， 甚 至 利用 右 下 114 部 分 也 可 ， 此 时 七 的 取 值 范围 是 [3r/2.2z]， 如 此 可 以 减 小 


这 里 对 参数 七 只 取 [r2x]， 因 为 攀 圆 与 直线 的 位 置 关系 可 以 通过 下 半 部 分 的 椭圆 来 
离散 化 七 的 步 长 ， 从 而 增加 计算 精度 。 


上 述 程序 输出 结果 为 : 


bm = 

0.7017 

可 见 利 用 二 分 法 也 可 以 得 到 一 个 比较 精确 的 结果 , 其 结果 与 解析 结果 一 致 。 特 别 是 对 于 由 复杂 
函数 生成 的 曲线 ， 利 用 离散 方法 计算 就 显示 出 优越 性 。 

例 19-7: 编写 计算 圆 内 任意 两 条 弦 相 交 的 概率 。 如 图 19.13 所 示 ， 两 条 弦 利 用 虚线 表示 。 弦 
AB 的 端点 可 以 用 角度 w 和 局 来 表示 。 弦 CD 的 端点 可 以 用 角度 ax 和 永 来 表示 。 








图 19.13 圆 内 的 两 条 弦 
假定 这 里 考虑 的 圆 的 半径 是 1， 角度 wa ， 岂 ，a 和 应 表示 单位 圆 上 复数 的 复 角 ， 考 虑 下 面 的 


关系 式 : 
及 =(o-ajlo2 - 甩 )， 已 =(P -wj -有 ) ( 19-9 ) 
根据 图 19.13 中 所 示 的 位 置 关系 ， 五 小 于 0 表示 C 点 在 弦 AB 的 上 侧 ， 到 大 于 0 表示 D 点 在 
弦 AB 的 下 侧 。 弦 CD 与 弦 AB 相交 的 充 要 条 件 是 C 和 D 两 点 在 弦 AB 的 两 侧 ， 即 石 玉 和 0 ， 其 中 
取 等 号 对 应 着 两 条 弦 有 公共 定点 。 下 面 利用 随机 数 来 多 次 统计 不 同情 况 下 的 纺 相 交情 况 ,程序 如 下 : 


N=1000000; # 实验 总 次 数 
intersect=01; # 统计 相交 次 数 
for k=1:N; 
alphal=randx*pixw2; % 随机 产生 一 个 复 角 
alpha2=ranQxpi*2; % 随机 产生 一 个 复 角 
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betal=randx*pi*2; g 随机 产生 一 个 复 角 

beta2=randxpix2; g% 随机 产生 一 个 复 角 
Fl1=[alpha2-alphal]*[alpha2-betal]; % 计算 位 置 关 系 式 

F2= [beta2-alphal]* [beta2-betal]; % 计算 位 置 关 系 式 
intersect=intersect+(Fl1x*F2<=0);  % 如 果 相 交 ， 则 相交 次 数 累加 1 


ena 


format 1ong #% 输出 更 多 数位 

pP=intersect/N #% 输出 弦 相 交 的 几率 
输出 结果 为 

P = 0.333442000000000 


19.5 ”验证 方法 


在 进行 数值 模拟 的 过 程 中 , 结果 的 准确 性 和 可 靠 性 需要 通过 科学 的 方法 来 验证 。 通 过 验证 可 以 
知道 程序 是 否 编写 正确 以 及 编程 前 设计 的 算法 是 否 合理 。 本 节 给 出 几 种 常用 的 验证 方法 。 

争 理论 结果 验证 。 

根据 已 知 的 解析 结果 , 在 模拟 程序 得 出 结果 之 后 二 者 进行 比 对。 如 果 相 等 说 明 程 序 可 能 是 正确 
的 ,因为 有 时 用 户 编写 的 程序 可 能 在 某 些 特殊 情况 下 是 正确 的 。 在 实际 中 , 一 个 成 熟 的 程序 需要 在 
多 个 不 同情 况 下 验证 通过 才 可 以 放心 使 用 。 

争 变化 程序 中 利用 关键 参数 来 查看 结果 的 正确 性 。 

利用 下 面 一 段 程序 可 以 绘制 五 角 星 
N=5/ % 输出 多 角 星 的 顶点 数 
R=pixw2x[0:N-1I]VN+pi/2; 务 人 
mn=0:2:2xN; g 生成 绘制 五 角 星 的 峙 标 
nt=mod(n-1AN)+1; 多 将 大 于 的 册 检 贞 间 到 示人 于 的 正 台 数 
plot (exp (isat(nt)))， g 绘图 

输出 图 形 如 图 19.14(a) 所 示 。 

当 把 上 面 程序 中 的 参数 N 改 为 6 或 7 时 ， 可 以 得 到 如 图 19.14(b) 和 (c) 所 示 的 图 形 。 可 见 上 述 
程序 绘制 六 角 星 和 七 角 星 时 得 到 的 结果 不 正确 。 通 过 简单 的 更 换 关键 参数 N 就 可 以 知道 这 个 程序 
的 普 适 性 , 这 说 明 这 上段 程序 只 适用 于 绘制 五 角 星 ， 而 其 他 多 角形 的 绘制 需要 做 进一步 考虑 ， 关于 本 
问题 的 正确 程序 读者 可 以 参阅 前 面 小 节 的 内 容 。 


N=4 N=6 N=7 





0 D -= 0 
全 (tb) (c) 
图 19.14 多 角 星 的 绘制 
争 依据 问题 要 求 验 证 结果 的 正确 性 。 
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X=S5olve('sin(X)-Xx/12') 


比如 求解 方程 sin x-x/12=0 ， 可 以 使 用 下 面 的 语句 来 验证 根 的 正确 性 ， 即 计算 sin(x)-X/12 的 
结果 ， 如 果 结 果 等 于 0， 表 示 结 果 是 方程 的 根 。 此 外 方程 根 的 求解 函数 solve 所 得 根 不 完整 ， 需 要 
通过 作 图 法 和 函数 fzero 来 求 出 遗漏 的 根 。 

争 利用 经 验 或 者 专业 知识 来 判断 结果 。 

这 一 点 需要 用 户 从 整体 的 层面 考虑 问题 , 对 解 可 能 出 现 的 范围 有 一 定 的 了 解 。 下 面 是 一 个 双 摆 

动画 的 程序 ， 用 户 可 以 通过 对 双 摆 运动 的 了 解 验证 动画 过 程 实现 程序 的 正确 性 。 


ml=1; % 上 摆 质 量 

m2=1; % 下 摆 质 量 

L1=1; % 上 摆 长 度 

L2=1; % 下 摆 长 度 

g=9.8;s% 重力 加 速度 

Da=inline(['[x(3);x(4); inv([(ml+m2)xL1Lm2*L2*cos(X(1)-X(2))7 vv. 


miwLL*cos(Xx(1L1)-Xx(2)) ,mLxL2])* [m2wL2*x(4)^2*Ssin(Xx(2)-X(1))-(ml+m2)wgxsin(x( 
1))7 

'm2wDLA*X(3)^2wsin(x(1)-x(2))-m2*gxsintxX(2))]]7]， 污 "，Xx'v 

'flag'y ml 'm2' 1 DL2'，g')) s% 定义 双 摆 运 动 的 微分 方程 
set (gcf, 'DoubleBuffer','on'); # 设 置 坐标 轴 演 染 效果 
[t,x]=ode45(Da,linspace(0,10,400-1),[0.8,0.8,0,0],[],ml,m2,L1,L2,g); s% 求解 双 摆 运 
动 微分 方程 
axis([-(LL+L2),(L1+L2),-(L1+L2)*1.8,1]); axis square7yg 设 定 坐标 轴 显 示范 围 
hold onybox ony; 
gh1l=plot([0,Llw*exp(i*(x(1)-pi/2))],'r-')7;g% 显示 上 面 的 摆 
set (gh1,'1inewidth',2,'markersize',6,'marker','o')7;g 设置 线 宽 和 标记 符号 
gh2=plot([L1*exp(ir(x(1)-pi/2))，L1*exp(ixr(x(1)-pi/2) )+L2*exp(i*(x(2)-pPi/2))]， 
b-')7% 显示 下 面 的 摆 
set (gh2,'1inewidth',2，'markersize',6, marker','o');g% 设置 线 宽 和 标记 符号 
for Xk=2:Size(x,1)， 


cl=[0,Llx*exp(ix(x(k,1)-pi/2) )] ; % 获 得 上 侧 皖 位 置 数据 


C2=[LLx*exp(iw(x(k,1)-pi/V2)),LL*exp(ir(x(k,1)-pi/2) )+L2*exp(ixr(X(k,2)-piV2))]， 向 
获得 下 侧 摆 位 置 数 据 

set (ghl, 'xdata',real(Cl),'ydata'yimag(Cl))7;s% 更 新 上 侧 摆 的 位 置 

set (gh2, 'xdata',real(C2),'ydata'vimag(C2))7% 更 新 下 侧 摆 的 位 置 

title(['t= ，,num2str(t(k))]，'fontsize',12)7s% 更 新 题 注 中 时 间 数 值 

pause(0.1);% 暂停 
ena 
figurey 
subplot (231) ;plot(t,x{(:,1));title('t-\Eheta_l');xlabel('t') 1Ylabel('\Eheta_l') 
;s% 摆 的 位 置 数据 

. subplot (232) ;plot(t,x(:,2));title('t-\theca_2');xlabel(' 必 ') ;Ylabel('\theta_2') 

1g 摆 的 位 置 数据 
subplot (233) ;plott(t,x{(:,3))7title(' 上 -Nomega_l')7Xlabel('t') )Ylabel('Nvomega_1') 
;sg% 摆 的 速度 数据 
subpIlot (234) ;plot(t,x(:,4))7Eitle('t-NVomega_2') ;xlabel(' 情 ');Ylabel('N\omega_2') 
;g% 摆 的 速度 数据 
subplot (235) ;plot{(x(:,1),x(:,3))7?title(" \theta_1-\omega_1');xlabel('\theta_l1') 
?ylabel('Nomega_1') 7; 
subplot (236) ;plot (x(:,2),x(:,4));title('\theta_2-\omega_2') ?xlabel('Ntheta_2') 
;1Ylabel('N\omega_2') ;名 
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动画 结束 后 的 画面 如 图 19.15 所 示 。 


2 "015 -1 05 0 05 1 15 2 


图 19.15 ” 双 摆 运动 动画 截图 


相应 的 位 置 、 速 度 关系 曲线 如 图 19.16 所 示 。 


te to 
1 2 
05 1 
da 0 本 0 
-05 1 
10 10 5 10 2 5 10 
上 f 
多 -@ ero2 
2 4 
1 2 BE 
全 0 全 0 
1 .2 SS 
10 3 0 1 人 0 1 
和 @ 


图 19.16 速度 、 位 置 曲线 图 


总 而 言 之 , 对 于 程序 的 正确 性 需要 进行 多 方面 充分 的 验证 以 求 保证 。 在 一 些 研究 中 还 需要 进行 


19.6 算法 优化 


数值 计算 结果 和 科学 实验 结果 的 比 对 , 二 者 吻合 可 以 对 所 做 的 结论 进行 双重 验证 。 此 外 他 人 的 计算 
结果 也 可 以 作为 比较 的 对 象 。 


作者 认为 编程 的 第 一 原则 是 正确 地 写 出 目标 程序 ， 然后 对 程序 修饰 。 追求 高 效 的 算法 可 以 加 快 


对 于 问题 的 研究 进程 ， 但 算法 优化 的 过 程 可 能 会 降低 程序 的 可 读 性 。 算 法 优化 包括 两 方面 的 内 容 : 
一 是 算法 流程 的 优化 ， 二 是 程序 段 的 优化 。 前 面 介 绍 的 程序 加 速 方法 可 以 用 于 程序 段 的 优化 ,以 提 
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高 程序 的 执行 速度 。 在 循环 结构 中 , 与 循环 指标 无 关 的 量 可 以 转 到 循环 前 面 进行 计算 。 同 时 还 要 选 
择 执行 速度 快 的 函数 用 于 计算 中 。 本 节 主 要 讨论 算法 流程 的 优化 。 

对 于 某 一 问题 可 能 存在 多 种 解决 方案 ， 此 时 需要 进行 选择 ， 选 出 其 中 最 快 的 判断 方法 ， 或 者 称 
为 捷径 。 这 样 可 以 节省 程序 的 编写 时 间 , 同时 提高 程序 的 执行 速度 。 对 于 程序 流程 的 优化 需要 研究 
者 对 问题 有 充分 的 了 解 ， 这 可 能 需要 长 时 间 的 思考 和 探索 。 有 时 多 个 人 分 别 独 立 解决 同一 个 问题 ， 
可 能 会 有 不 同 角度 的 认 知 ， 从 而 产生 相对 简单 、 巧 妙 的 思路 。 

这 里 以 前 面 19.4 节 中 判断 C 和 D 两 点 在 直线 两 侧 的 问题 为 例 ， 考 虑 其 他 的 等 价 方法 。 过 AB 


两 点 的 直线 方程 可 以 写 为 ， 
丰 (x， y)=(sin -sin al)jr 一 (cos 忆 一 cosw)y+sin an cos 岂 -coswmsin 忆 =0 { 19-10 ) 
或 
Flxy)= (sin 忆 -sinawl)jr-(cos 有 -cosm)jy+sin(w -有 )=0 ( 19-11 ) 


在 平面 上 的 各 点 可 以 通过 计算 fx, y) 来 确定 点 和 直线 的 位 置 关 系 : 直线 左 侧 、 右 侧 以 及 直线 
上 ， 它 们 对 应 于 jf(x,y) 的 正 、 负 以 及 0。 把 C 点 和 D 点 的 坐标 带 入 上 述 表 达 式 中 就 可 以 进行 判断 
了 。 利 用 上 面 公式 所 提供 的 思路 ， 写 出 以 下 的 程序 。 


N=1000000; g% 实验 总 次 数 
intersect=0; 8 统计 相交 次 数 
fxy=inline('[sin(bl)-sin(al)]x*x-[cos(bl)-cos{(al)]*y+Sin(al-bl)'，'Xx'，YyY' al' 
bl'); 
for k=1:N; 色 

alphal=randxpiw2， s 随机 产生 一 个 复 角 

alpha2=randxpiw2; g% 随机 产生 一 个 复 角 

betal=randwpi*21; # 随机 产生 一 个 复 角 

beta2=randx*piw2， # 随机 产生 一 个 复 角 


F1=fxy(cos(alpha2) ,sin(alpha2),alphal,betal); $% 计算 位 置 关 系 式 
F2=fxy(cos (beta2),sin(beta2) ,alphal,betal);  ，% 计算 位 置 关系 式 


intersect=intereect+(F1x*F2<=0) ; #% 如 果 相 交 ， 则 相交 次 数 涌 加 1 
ena 
format 1ong #% 输出 更 多 数位 
p=intersect/N #% 输出 弦 相 交 的 几率 

输出 结果 为 ; 


P = 0.333442000000000 


采用 cputime 函数 计算 程序 执行 时 间 , 19.4 节 中 相应 程序 所 需 时 间 为 0.281 秒 ,而 本 节 程 序 所 
需 时 间 为 987.75 秒 。 可 见 二 者 差异 很 大 ， 多 次 调用 函数 inline 会 花费 很 多 时 间 。 
在 19.4 节 中 关于 计算 弦 相 交 几 率 的 程序 还 可 以 进一步 改 为 如 下 的 等 价 形式 。 


N=1000000; gs 实验 总 次 数 

alphal=rand(1,N); s% 随机 产生 一 个 复 角 
alpha2=rand(1,N); % 随机 产生 一 个 复 角 
betal=rand(1,N);  % 随机 产生 一 个 复 角 
beta2=rand(1,N); gs 随机 产生 一 个 复 角 
Fl1=[alpha2-alphal] .* [alpha2-betal]; % 计算 位 置 关 系 式 
F2= [beta2-alphal] .x[beta2-betal]; ， 计算 位 置 关系 式 
intersect=length(find(F1.*F2<=0)) # 统计 相交 次 数 
format long g# 输出 更 多 数位 
p=intersect/N s# 输出 弦 相 交 的 几率 - 
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省 秒 ， 可 见 程 序 进一步 加 快 了 。 关 于 程序 计算 时 间 的 统计 决定 于 计算 机 性 能 及 程序 
所 处 的 系统 环境 ， 如 内 存 和 CPU 占用 情况 。 虽 然 具体 时 间 数 值 可 能 因 计 算 机 而 有 
所 不 同 ， 但 不 同时 间 的 大 小 关系 是 不 变 的 。 


上 述 程序 中 未 使 用 循环 ， 同 时 省 去 了 2xpi 这 个 公 因子 。 程 序 执行 的 时 间 为 0.1563 
了 


上 述 程序 输出 的 计算 结果 为 : 
p = 0.333018000000000 


从 前 面 的 例子 可 以 看 出 程序 的 算法 结果 可 以 使 程序 的 计算 时 间 、 繁 简 程度 有 很 大 不 同 。 一 般 地 ， 
程序 越 简单 执行 效率 越 高 。 


19.7 ”小结 


本 章 主 要 介绍 了 建 模 方面 的 基础 知识 。 了 解 这 方面 的 知识 对 解决 实际 问题 、 把 握 整 体 脉络 非常 
重要 。 其 中 一 个 重要 环节 就 是 把 实际 问题 转化 为 数学 化 的 语言 和 程序 化 的 结构 。 通 过 逻辑 思维 得 到 
问题 的 抽象 等 价 描述 ， 进 而 利用 MATLAB 软件 进行 仿真 和 数值 模拟 。 首 先 介绍 了 从 科学 和 工程 问 
题 中 抽象 数学 模型 的 方法 , 这 是 建 模 的 第 一 个 环节 。 对 于 离散 模型 的 程序 化 方法 是 把 实际 问题 转化 
为 程序 的 一 个 中 转 环节 。 对 于 离散 模型 ， 计 算 机 可 以 很 好 地 模拟 。 在 数学 模型 的 基础 上 建立 程序 结 
构 对 于 建立 程序 具有 指导 意义 , 本 章 相 应 地 给 出 了 实例 求解 方法 分 析 。 对 于 计算 所 得 结果 的 验证 是 
使 程序 普 适 化 的 一 个 必要 环节 ， 通 过 不 同 参数 、 不 同 角度 的 检测 可 以 确认 程序 是 否 通用 。 最 后 介绍 
了 程序 优化 的 方法 ,用 户 可 以 从 流程 图 和 程序 段 两 个 方面 来 优化 已 经 存在 的 程序 , 通过 优化 可 以 提 
高 程序 的 执行 效率 和 执行 速度 。 


久 镶 争 
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@ 离散 混沌 ”介绍 几 种 典型 的 映射 和 简单 函数 构成 的 上 映射 关系 对 应 的 分 贫 图 形 的 绘制 。 
人 微分 方程 中 的 分 岔 和 混沌 行为 ”介绍 微分 方程 中 存在 的 混沌 现象 的 程序 模拟 。 

@ 混沌 吸引 子 ”介绍 相 图 、 混 沌 吸引 子 以 及 庞 加 莱 截 面 的 绘制 方法 。 

@ Lyapunov 指数 介绍 映射 和 微分 方程 的 李 雅 普 诺 夫 指数 的 计算 。 


混沌 是 指 发 生 在 确定 性 系统 中 的 貌似 随机 的 不 规则 运动 。 一 个 确定 性 理论 描述 的 系统 , 其 行为 
却 表现 出 不 确定 性 一 一 不 可 重复 、 不 可 预测 ， 这 就 是 混沌 现象 。 大 量 研 究 表明 ， 混 沌 是 非 线 性 动力 
系统 的 固有 特性 , 它 是 非 线性 系统 普遍 存在 的 现象 .牛顿 确 定性 理论 能 够 充分 处 理 的 多 为 线性 系统 ， 
而 线性 系统 大 多 是 由 非 线 性 系统 通过 某 些 简化 而 获得 的 。 因 此 在 现实 生活 、 工 程 技 术 以 及 科学 问题 
中 ， 混 沌 现象 是 无 处 不 在 的 。 通 过 数值 的 方法 研究 混沌 现象 是 比较 方便 的 。 本 章 主要 介绍 利用 
MATLAB 模拟 一 些 混沌 现象 。 





20.1 离散 混沌 


早 在 1972 年 12 月 29 日 ， 美国 麻 省 理工 学 院 教授 、 混 沌 学 主要 开创 人 之 一 洛 伦 效 在 美国 科学 
发 展 学 会 第 139 次 会 议 上 发 表 了 题 为 《 晴 蝶 效应 》 的 论文 ， 提 出 一 个 看 似 荒 廖 的 论断 : 在 巴西 一 
只 放 蝶 翅膀 的 拍打 能 够 在 美国 得 克 萨 斯 州 产 生 一 个 龙卷风 ， 并 由 此 提出 了 天 气 的 不 可 准确 预报 性 。 
时 至 今日 ， 这 一 论断 仍 为 人 津津 乐 道 ， 更 重要 的 是 它 激发 了 人 们 对 混沌 现象 研究 的 浓厚 兴趣 。 伴随 
计算 机 技术 的 飞速 发 展 ， 混 沌 学 已 经 逐渐 成 为 一 门 影响 深远 、 发 展 迅 速 的 前 沿 科 学 。 目 前 每 年 有 大 
量 相关 科学 论文 发 表 。 

一 般 情 况 下 , 如 果 一 个 接近 实际 而 没有 内 在 随机 性 的 模型 仍然 具有 狐 似 随机 的 行为 ， 就 可 以 称 
这 个 真实 物理 系统 是 混沌 的 。 一 个 随时 间 确 定性 变化 或 具有 微弱 随机 性 的 变化 系统 , 称 为 动力 系统 ， 
它 的 状态 可 由 一 个 或 几 个 物理 量 确定 。 而 在 一 些 动力 系统 中 , 两 个 几乎 完全 一 致 的 状态 经 过 足够 长 
时 间 后 会 变 得 完全 不 一 致 ， 恰 如 从 长 序列 中 随机 选取 的 两 个 状态 那样 ， 这 种 系统 被 称 为 混沌 系统 。 
而 对 初始 条 件 的 敏感 依赖 性 也 可 看 做 是 混沌 现象 的 一 个 定义 。 

混沌 现象 来 自 于 非 线性 动力 系统 ,而 动力 系统 又 描述 的 是 任意 随时 间 发 展 变化 的 过 程 , 并 且 这 
样 的 系统 可 见于 生活 的 不 同方 面 。 举 例 来 说 ,生态 学 家 对 某 物种 的 长 期 性 态 感 兴趣 , 给 定 一 些 观察 
到 的 或 实验 得 到 的 变量 ( 如 捕食 者 个 数 、 气 候 的 恶劣 性 、 食 物 的 可 获 性 等 数据 )， 建 立 数学 模型 来 
描述 群体 的 增 减 。 如 果 用 Pn 表示 n 代 后 该 物种 极限 数目 的 百分比 ， 则 著名 的 "罗杰斯 蒂 映 射 " 
Pn+1=kP(1-Pn )( 其 中 k 是 依赖 于 生态 条 件 的 常数 , n+1 是 脚 标 ) 可 以 用 于 在 给 定 PO 和 kk 条件 下 ， 
预报 群体 数 的 长 期 性 态 。 如 果 将 常数 k 处 理 成 可 变 的 参数 k， 则 当 k 值 增 大 到 一 定 值 后 ,，" 罗 杰 斯 
蒂 映 射 ”所 构成 的 动力 系统 就 进入 混沌 状态 。 稍 后 将 给 出 该 映射 的 程序 实现 。 

在 非 线性 科学 中 , “混沌 ”一 词 的 含义 和 本 意 相 似 但 又 不 完全 相同 。 非 线性 科学 中 的 混沌 现象 
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指 的 是 一 种 确定 的 但 不 可 预测 的 运动 状态 。 它 的 外 在 表现 和 纯粹 的 随机 运动 很 相似 , 即 都 不 可 预测 。 
但 和 随机 运动 不 同 的 是 ， 混 沌 运动 在 动力 学 上 是 确定 的 ， 它 的 不 可 预测 性 来 源 于 运动 的 不 稳定 性 。 
或 者 说 混沌 系统 对 无 限 小 的 初 值 变动 和 微 扰 也 具 于 敏感 性 , 无 论 多 小 的 扰动 在 长 时 间 以 后 , 也 会 使 
系统 彻底 偏离 原来 的 演化 方向 。 混沌 现象 是 自然 界 中 的 普遍 现象 , 天 气 变 化 就 是 一 个 典型 的 混沌 运 
动 。 混 沌 系统 具有 3 个 关键 要 素 : 


人 对 初始 条 件 的 敏感 依赖 性 。 
争 临界 水 平 ， 这 里 是 非 线性 事件 的 发 生 点 。 
令 分 形 维 ， 它 表明 有 序 和 无 序 的 统一 。 


混沌 系统 经 常 是 自 反馈 系统 ， 出 来 的 东西 会 回去 经 过 变换 出 来 ， 循 环 往 复 ,没完 没 了 ， 任 何 初 
始 值 的 微小 差别 都 会 按 指数 放大 , 因此 导致 系统 内 在 地 不 可 长 期 预测 。 混沌 确定 系统 是 庞 加 莱 在 研 
究 三 体 问题 时 首次 发 现 的 。 

本 节 介绍 一 些 典 型 映射 关系 ， 如 罗杰斯 蒂 映 射 、 埃 农 上 映射、 帐篷 映射 以 及 肯特 映射 等 ， 这些 映 
射 根据 参数 的 不 同 可 以 表现 出 分 岔 、 混 沌 等 现象 。 下 面 举例 来 说 明 这 些 映射 的 模拟 。 


20.1.1 罗杰斯 蒂 映 射 


罗杰斯 蒂 ( logistic ) 映射 的 数学 表达 式 为 : 
xi=arm(l-z) ( 20-1 ) 


这 里 Q 是 参数 , 随 着 参数 4& 的 取 值 不 同上 面 的 迭代 公式 可 以 表现 出 不 同 的 行为 。 罗 杰 斯 蒂 映射 
相应 的 实现 程序 如 下 : 


an=linspace(3.1,3.99,400) 1g 生成 参数 a 的 离散 采样 值 
holda on; box on; axis([min(an),max(an),-1,2]); $# 设置 坐标 轴 范 围 
N=1000; g% 设置 迭代 次 数 
xn=zeros(1,N); g% 预 置 x 的 变量 占用 的 空间 
for a=an; 
x=rand; $% 随机 赋 初 值 
for k=1:20; 
x=a*xx (1-x) ; g% 预选 代 20 次 ， 以 达到 相应 的 混沌 状态 
ena 
for k=1:N; 
x=ax*xxw (1-X) ) % 按 预 定 次 数 N 多 次 迭代 ， 并 把 这 部 分 数据 作为 绘图 数据 
xn (k) =x; g% 记录 和 迭代 结果 到 数组 xn 中 
end 
plot (ax*ones{1,N) ,xn,'k.'，'markersize',1); #% 绘图 
end 


执行 上 述 程序 后 可 以 得 到 如 图 20.1 所 示 的 图 形 。 
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图 20.1 罗杰斯 蒂 映 射 


用 户 可 以 根据 实际 情况 确定 。 绘 图 时 利用 点 符号 “.” 且 把 点 的 大 小 设置 为 1 ， 这 


在 上 面 的 程序 中 ， 先 进行 20 次 循环 以 使 适 代 达到 一 个 混 池 状 态 。 相 应 的 循环 次 数 
说 明 
样 所 得 到 的 图 形 是 一 点 点 画 出 来 的 。 


可 见 在 罗杰斯 蒂 映 射 中 随 着 参数 取 值 不 同 可 以 得 到 分 贫 、 混 沌 行为 。 开 始 时 罗杰斯 蒂 映 射 是 有 
两 个 分 岔 ， 到 3.45 左右 出 现 4 个 分 岔 ， 在 参数 Q 等 于 3.6 左右 时 出 现 混沌 状态 。 对 于 参数 Q 的 其 
他 范围 用 户 可 以 利用 上 述 程序 结构 进行 研究 。 


20.1.2 埃 农 映射 
埃 农 ( Henon ) 映射 ( 有 的 书 上 也 称 为 平方 映射 ) 的 数学 表达 式 为 ， 


= 二 1 一 ax2 
Haonl| Dn Cr ( 20-2 ) 


n+l 二 Dr 


相应 的 实现 程序 为 ， 这 里 取 参 数 = 0.3 ，ae [0,1.4]。 


b=0.3; % 设置 参数 b 的 数值 
N=400; $% 设置 迭代 次 数 
an=ones(1,N) ; % 生成 一 个 全 1 数组 
xn=zeros (1,N) ; % 预 置 xn 变量 所 占用 的 空间 
hold onybox on; 
x=0; $ 迭代 初 值 
y=0; $% 和 迭代 初 值 
for a=0:0.001:1.4; % 对 参数 a 离散 取 值 
for k=1:N; $% 预 迭 代 N 次 以 达到 混沌 状态 
xm=x; S% xm 为 x 的 迭代 之 前 的 数值 
ym=y; #% Yym 为 Y 的 迭代 之 前 的 数值 
x=ym+1-axrxm.*xm; S$% 迭代 计算 
Y=bx*xm; % 迭代 计算 
end 
xn{(1)=xi 记录 初 值 
for Dn=2:N7; 


xm=xy gs xm 为 x 的 迭代 之 前 的 数值 
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ym=Yy; % ym 为 Y 的 迭代 之 前 的 数值 
x=Yym+1-ax*xm.*xmiy 争 迭代 计算 
Yy=bxyxm;y g% 迭代 计算 
xm (mn) =x;g% 记录 数值 
end 
plot (anxa,xn, 'k.'，'markersize',1); gs 绘制 点 图 
enaQ 


xlim( [0,a]l);s#% 设置 坐标 轴 范 围 
title(['Henon Bifurcation，a=0~',num2str(a),:，b=0.3']); $% 添加 图 形 题 目 


风 和 和 用 户 可 以 选择 参数 @ 和 户 的 其 他 取 值 情 况 进行 研究 ， 其 中 参数 思 的 最 大 取 值 是 
[bdE 首 。 1.4， 大 于 该 值 送 代 将 会 发 散 。 


执行 上 述 程序 所 得 图 形 如 图 20.2 所 示 。 


Hanon Baneasn on0-1 4 pv63 








图 20.2 ” 埃 农 映 射 
埃 农 映 射 还 存在 下 面 这 种 表达 式 ， 即 : 
有 2 
区 n+1 三 好 上 m 十 Py， ( 20-3 ) 
n+l 喧 区 


把 表达 式 代 入 到 前 面 的 程序 ， 可 以 得 到 如 图 20.3 所 示 的 图 形 。 


Haron Bfucaen ar0-14.te03 


二 [ 








上 上 j 
ID 1 12 和 


图 20.3 ” 埃 农 映射 
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20.1.3 ”帐篷 映射 
帐篷 映射 的 数学 定义 是 : 
区 =a-(+aljz| ( 20-4 ) 


根据 公式 ( 20-4 ) 可 以 写 出 帐篷 映射 的 计算 程序 ， 如 下 ; 


N=200; $% 设置 迭代 次 数 
xp=zeros(1,N) ; $% 为 绘图 数据 预 设 空间 
Ra=ones(1,N); g% 生成 全 1 向 量 
hold on;box on; 
x=0.34; % 设置 初 值 
for a=0:.001:1; 
for n=1:N'; 
x=a-(1+a)*abs (x); % 预 迭 代 使 之 进入 混沌 状态 
end 
for k=1:N; 
x=a- (a+1)xabs (X); % 迭代 生成 绘图 数据 
xp (k) =x; $# 记录 绘图 数据 


enaQ 


plot (ARaxa,xp,'k.'，'markersize',1); $ 绘图 
enda 
xlim([0,a]l); s# 设置 坐标 轴 范 围 
xlabel('\ita','Fontsize',22,'Fontname','Times new roman'); $% X 轴 标注 


这 里 参数 @ 取 值 范围 在 [0,1] 内 存在 混沌 现象 。 


执行 上 述 程序 输出 图 形 如 图 20.4 所 示 。 











1 一 一 3 上 1 js 二 aa 上 
0 51 57 03 04 05 喇 57 Da 03 





好 
图 20.4 帐篷 映射 


20.1.4 肯特 映射 
肯特 ( Kent ) 映射 的 数学 表达 式 为 : 
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一 ， 0<x<a 
Q 
n+1 和 
1 一 X 
QG<xX<1l 
1--a 
根据 公式 ( 20-5 ) 可 以 写 出 肯特 映射 的 实现 程序 ， 具 体内 容 如 下 ， 
N=200) % 设置 迭代 次 数 


xp=zeros(1,N); g% 为 绘图 数据 预 设 空间 
aa=ones(1,N); g 生成 全 1 向 量 
x=0.36; # 设置 初 值 
hold on;box ony; 
for a=0.01:.001:0.5; 
for Kk=1:N; 
x=Xx/ax [xX<=a]l+(1-x)/(1-a)*[x>a]l; $% 预 迭 代 使 之 进入 混沌 状态 
enaQ 
for n=1:N; 
x=X/av [X<=a]+(1-x)/(1-a)*[x>a]l; sg% 迭代 生成 绘图 数据 
xp (n) =x; $% 记录 绘图 数据 


end 
plot (Raxa,xp,'k.' markersize',1); g 绘图 
end 
xlabel('\ita',，'Fontsize',22,'Fontname'，'Times new roman'); 当 X 轴 标 注 


= 站。 在 肯特 映射 中 ， 参 数 @ 在 (0,0.5] 范 围 。 程 序 执行 后 输出 图 形 如 图 20.5 所 示 。 








20.1.5 Lozi 映射 
Lozi 映射 的 定义 是 : 
全 =1 下 zl+ 罗 

nrl 三 GXn 


{ 20-5 ) 


( 20-6 ) 
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下 面 考虑 计算 参数 己 和 9 取 特 定 值 时 的 图 形 , 如 下 一 段 程序 用 来 计算 当 己 =1.75 ，4g = 0.33 
时 迭代 点 形成 的 图 形 。 


N=10000; g% 设置 迭代 次 数 
x=zeros(1,N); ss 初始 化 变量 x 
Y=x; # 初始 化 变量 Y 
q=0.33;  % 对 参数 q 赋值 
pb=1.75;  & 对 参数 p 赋值 
axes('Position', [0.2,0.2,0.6,0.6]); s% 设置 坐标 轴 位 置 
for n=1:N-1; 
xf(n+1)=1-1.75*abs(x(n))+y(n); gs 和 迭代 计算 
Y(n+1)=qr*x(n)， #% 迭代 计算 
end 
plot (x,y,'.'，'markersize',1); $ 绘图 
title(['{\itp})='num2str(p)，' ,fitql='vnum2str(gG)],，'Fontsize',16,'Fontname'，'T 
imes new roman' ) ;% 标 注 图 题 
xlabel('\itx'，'Fontsize',16,'Fontname'，'Times new roman'); % X 轴 标注 
Ylabel('Nity'，'Fontsize',16, :Fontname'，'Times new roman');  # Y 轴 标注 


利用 公式 ( 20-6 ) 定义 的 迭代 式 进 行 迭 代 ， 这 里 初 值 选 为 如 =0 ，% = 0 。 依 次 记录 下 和 迭代 
过 程 的 数值 并 画图 。 其 中 对 数据 画图 时 采用 点 把 数据 点 画 出 来 ， 而 不 是 用 连 线 的 方式 画图 。 输 出 图 
如 图 20.6 所 示 ， 可 见 迭 代 过 程 得 到 的 轨迹 是 斜 线形 的 ， 且 外 面 的 折线 较 粗 。 


P=1.7S. 9-0.33 








-15 -1 -05 0 05 1 15 
里 


图 20.6 Lozi 映射 迭 代 点 已 =1.75 ，9g=0.33 形成 的 图 形 
下 面 一 段 程序 用 来 实现 当 参 数 g = 0.23 且 Pe [0,1.7] 时 的 Lozi 映射 图 。 


N=150; % 设置 迭代 次 数 

xn=zeros (1,N) ; g% 初始 化 记录 x 数 值 的 向 量 

Pp=ones (1,N) ; % 生成 全 1 向 量 
figure;axes('Position',[0.2,0.2,0.6,0.65]);s 设置 坐标 轴 位 置 
hold on;box ony; 

x=0.34; $% 设置 初 值 

Yy=0;  % 设置 初 值 

q=0.23; $# 对 参数 g 赋值 

for pP=0:.001:1.77 
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for n=1:N; 
Xt=x; $% xt 是 迭代 前 x 的 数值 
Yt=y; $% yt 是 迭代 前 Y 的 数值 
x=1-pwabs(xt)+Yyt;ig 预 欠 代 使 之 进入 混沌 状态 
Y=gx*xt;g 预 迭 代 使 之 进入 混沌 状态 

end 

xp (1) =x;jg 记 录 初 值 

for K=23:N; 
xt=x; gg Xt 是 迭代 前 x 的 数值 
yt=y; #% Yt 是 迭代 前 Y 的 数值 
x=1-p*abs (xt)+yt;g% 计算 迭代 过 程 数值 
Y=GQwXt7 % 计算 迭代 过 程 数值 
xp (k) =x) ，% 记录 绘图 数据 


end 

plot (Pp*p,xp,'.'，'markersize',1); % 绘图 
ena 
xlim([0,P])， # 设置 坐标 轴 范 围 
xlabel('N\itp','Fontsize',16,'Fontname'，'Times new roman'); $% X 轴 标注 
Ylabel('\itx','Fontsize',16,'Fontname','Times new roman'); gs Y 轴 标注 


tictle(['fNitdql='ynum2str(dg)],'Fontsize',16,'FPontname'，'Times new roman'); $% 标注 
图 题 

分 别 取 不 同 的 p 值 进行 迭代 计算 ， 在 记录 迭代 数据 前 先进 行 N 次 预 迭 代 以 稳定 状态 ， 然 后 开 
始 记 录 数 据 用 于 绘图 。 执 行 上 述 程序 输出 图 形 如 图 20.7 所 示 ， 可 见 在 p 取 不 同 数值 时 ，x 可 能 出 
现 分 岔 、 混 沌 现象 。 














图 20.7 ”Lozi 映射 图 


20.1.6 Ushiki 映射 
Ushiki 映射 的 数学 定义 为 : 
=(a 一 x 一 p 
襄 (a mr 0 )xr， ( 20-7 ) 
n+l = (a 一 cr 一 久 )y， 
取 9=0.1，c=0.2 且 ae [.5,3.8] 时 ， 绘 制 相 应 的 映射 图 形 的 程序 如 下 ， 
N=20000; $% 设置 迭代 次 数 
x=zeros{(1,N) ;y=xi &% 对 x 和 Yy 预 定义 初 值 


x(1)=0.32;y{(1)=0.32; # 定义 初 值 
a=3.7; $% 对 参数 a 赋值 
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b=0.1) % 对 参数 b 赋值 
c=0.2; 4% 对 参数 c 赋值 
for n=1:N-1; 
x(n+1)=(a-x(n)-b*y{n))*x(n); % 迭代 计算 
Yy(n+1)=(a-c*x(n)-y(n))*y(n); $% 迭代 计算 
endG 
N=100; # 设置 迭代 次 数 
subplot{(131) ;plot (xX,Y,，!.'，'markersize',1); 和 绘图 
xlabel('N\itx'，'Fontsize',16,'Fontname'，'Times new roman'); gg X 轴 标注 
ylabel('\ity'，'Fontsize',16,'Fontname'，'Times new roman'); % Y 轴 标注 
title(['{Nital='num2str(a),，'，{fN\itb)='numn2stz(b)，， 
{Nitcj=',num2str(c)],'Fontsize',16,'Fontname'，'Times new roman');g% 标注 图 题 
s(1)=subplot(132) ;hold on;box on1s 生成 坐标 轴 
xlabel(s,'\ita','Eontsize',16,，'Fontname'，'Times new oman')) 千 X 轴 标 注 
ylabel(s,'N\itx','EFontsize',16,'Fontname'，'Times new roman')) 当 Y 轴 标 注 
title(s, ['fNitbl=',num2str(b), fitcy='vnum2str(c)]，'Fontsize',16，Fontname'， 
Times new roman' ) 
s(2)=subplot(133) ;hold on;box on;s 生成 坐标 轴 
xa=zeros(1,N) ; % 初始 化 记录 x 数 值 的 向 量 
ya=zeros(1,N) ; % 初始 化 记录 y 数值 的 向 量 
Ra=ones(1,N); % 生成 全 1 向 量 
x=0.32; % 设置 初 值 
y=0.32; % 设置 初 值 
for a=2.5:.0005:3.8; 
x=0.2; $% 设置 每 步 迭 代 的 初 什 
Yy=0.1; g% 设置 每 步 迭 代 的 初 值 
for n=1:60; 
xt=x; % xt 是 迭代 前 x 的 数值 
yt=y; % Yt 是 迭代 前 Y 的 数值 
x= [a-xt-bx*yt]*xtjg% 预 迭 代 使 之 进入 混沌 状态 
y=[a-cxxt-Yyt]*yt;g% 预 迭 代 使 之 进入 混沌 状态 
enda 
xa(1) =x;i% 记 录 初 什 
Ya(1) =y;g% 记 录 初 值 
for Kk=2:N; 
xt=x; gs xt 是 迭代 前 x 的 数值 
yt=y; % yt 是 迭代 前 Y 的 数值 
x=[a-xt-bx*yt]j*xt;g 计算 迭代 数值 
y=[a-cx*xt-Yyc]*ytig 计算 迭代 数值 
xa (k) =x; gs 记录 绘图 数据 
va(k) =Yy; $% 记录 绘图 数据 
endq 
plot(s(1) ,Raxa,xa,'k.'，'markersize',1); #% 绘图 
plot(s(2) ,Raxa,ya，'r.' markersSize', 1) 多 绘图 
end 
set (s, 'xXLim', [2.5,a]); $% 设置 坐标 轴 范 围 
xlabelt'\ita'，'Fontsize',16, ,Fontname'，'Times new roman'); #% X 轴 标注 
ylabel('\itx','Fontsize',16,'Fontname'，'Tiines new roman')) 凶 Y 轴 标 注 
ticlel(['ftNitb}j='num2str(b)，'， 
{Nitcj=',num2str(c)],'Fontsize',16, 'Fontname'，'Times new roman ' ) ;s# 标 注 图 题 


语 名 “axes(s(1 六 “plot(Aaxa,Xak.wmarkersize'17 ” 和 “plot(s(1)AaxaXavk. 
markersize'1);” 作 用 等 价 ， 但 是 执行 速度 差异 很 大 ， 前 者 非常 慢 。 
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上 述 程序 所 得 结果 如 图 20.8 所 示 。 其 中 左 图 表示 给 定 a, b 和 c 三 个 参数 时 迭代 所 得 点 坐标 对 
应 的 图 ， 中 间 和 右 侧 的 图 形 分 别 是 和 mn 和 加 对 参数 a 的 图 形 。 可 以 发 现 和 和 加 随 着 参数 a 的 不 同 
出 现 了 分 贫 和 混沌 行为 。 





3.7, =-0.1, c=0.2 4=-0.1, c=0.2 




















图 20.8 Ushiki 映射 图 
当 参 数 b 和 c 在 一 定 范围 内 取 值 时 对 应 的 Ushiki 映射 图 如 图 20.9 所 示 ( 相应 计算 程序 保存 为 
光盘 中 \Ch20 文件 来 下 的 Ushiki2_maping.m 文件 )， 相 应 参数 取 值 在 图 20.9 中 已 经 标 出 。 可 以 看 
出 ， 参 数 取 不 同 数值 对 于 混沌 行为 影响 很 大 。 
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图 20.9 Ushiki 映射 图 


20.1.7 ”三 个 迭代 式 形成 的 映射 关系 
下 面 介 绍 3 个 迭代 式 形成 的 映射 关系 ， 


万: mrl=asin(rx) ( 20-8 ) 
7 : zl=1 一 axz2 ( 20-9 ) 
了 :xl1=( 伙 二 lx 一 tr { 20-10 ) 


第 1 个 映射 五 的 实现 程序 如 下 ; 
N=300; $% 取样 点 数 


starx=0.1; % 设置 初 值 
2Z=zeros(1,N) ; 当 生成 空 的 数组 
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Ra=ones(1,N) ;g% 生成 全 1 向 量 
figure;hold on;box on; $# 生成 空 的 图 形 窗 口 
for a=0.5:0.0001:1;  s*# 参数 离散 取 值 
x=starx; $% 设置 初 值 
for kx=1;:400; 。 
x=a*sin(pi*x); % 预 迭 代 使 之 进入 混沌 状态 
end 
for k=1:N; 
x=axsin(Pi*x); g% 迭代 过 程 数 值 
2Z(k)=a+x*i; $% 利用 复数 记录 坐标 点 


enda 
plot(2z, 'm.'，'markersize',1); % 绘图 
enda 
xlim( [0.5,a]l)7s 设置 坐标 轴 范 转 
xlabel('\ita','Fontsize',16, ,Fontname'，'Times new roman'); % X 轴 标注 


输出 的 图 形 如 图 20.10 左 图 所 示 ， 右 图 是 映射 ml = acos(x xn) 对 应 的 图 形 ( 程序 与 上 面 程序 


























相似 ， 这 里 不 再 说 明 ， 可 以 查阅 光盘 中 \Ch20 文件 夹 下 的 fun_map3.m 文件 )o 
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图 20.10 xl =asin(rx,) 和 zl = acos(r xn) 对 应 的 映射 
第 2 个 映射 了 对 应 的 程序 如 下 : 


N=300; 。s% 取样 点 数 
starx=0.1; $% 设置 初 值 
Z=zeros(1,N) ; % 生成 空 的 数组 
Aa=ones(1,N); % 生成 全 1 向 量 
figure;hold on;box on;y $# 生成 空 的 图 形 窗口 
for a=0:0.0001:1.9; ， s# 参数 离散 取 值 
x=starx; g% 设置 初 值 
for Kk=13:N; 
x=1-a*x^2; % 预 迭 代 使 之 进入 混沌 状态 
enda 
for k=1:N; 
x=1-ax*x^2; 负 欠 代 过 程 数值 
2Z(k)=a+xxi; 8% 利用 复数 记录 坐标 点 


enaG 
plot(z, 'k.'v'markersize',1); #% 绘图 
enaQ 


xlim([0,al)yylim([-1,1.1])7;% 设置 坐标 轴 范 围 
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xlabel{'\ita'，,'Fontsize',16,'Fontname'，'Times new roman'); % X 轴 标注 


利用 公式 ( 20-9 ) 进行 预 迭 代 之 后 ， 再 记录 数据 用 于 绘图 。 其 中 对 于 每 个 参数 a 的 数值 ， 都 是 
用 相同 的 初始 数值 作为 初始 条 件 进 行 欠 代 的 。 上 述 程 序 输 出 的 图 形 如 图 20.11 所 示 , 可 见 该 映射 的 
图 形 呈 现 出 倍 周期 、4 周期 、8 周期 和 混沌 行为 。 





ee 





图 20.11 xnsl =1-axrz 对 应 的 映射 
(3) 第 3 个 映射 及 对 应 的 程序 如 下 ; 


x=0.2; g% 和 迭代 初 值 
N=400; $% 设置 迭代 次 数 
2zp=zeros(1,N); % 生成 变量 的 数组 预 留 空间 
hold on;box on; 8% 生成 空 的 坐标 轴 
for k=1:.001:3; 
for p=1:80; 
X=-k*Xx^2+ (k+1) *X?; g% 预 迭 代 进 入 混沌 状态 
end 
for pP=1:N; 
X=-Xk*x^2+ (kx+1) xx % 和 迭代 计算 
zp(p)=k+xx*i 以 复数 的 形式 记录 (P, xn) 点 


ena 


plot (zp, 'Kk.'v'markersize',1)) #% 绘图 
enda 
xlim([1,xk]);， s% 设置 坐标 轴 范 围 
xlabel('\itk'，'Fontsize',16,'Fontname' ,Times new roman'); g% X 轴 标注 


利用 公式 ( 20-10 ) 进行 预 欠 代 之 后 ， 再 记录 数据 用 于 绘图 。 其 中 对 于 每 个 参数 k 的 数值 ， 都 
是 使 用 前 一 个 k 值 和 迭 代 后 x 的 数值 作为 初始 条 件 进 行 迭 代 的 ， 而 最 开始 x 的 初始 值 设 为 0.2， 最 后 
给 出 相应 的 分 岔 图 形 。 执 行 上 述 程序 输出 图 形 如 图 20.12 所 示 , 该 映射 在 不 同 k 值 下 呈现 出 倍 周期 、 
4 周期 、8 周期 和 混沌 行为 。 
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图 20.12 第 3 个 映射 ,i = (k+1)r, 一 kx 对 应 的 图 形 


mi+1 


20.1.8 双 混 沌 图 形 


前 面 介绍 的 混沌 图 形 一 般 是 横 轴 变化 的 参数 ， 纵 轴 是 迭代 值 am 。 如 果 横 纵 轴 均 用 和 迭代 值 表示 ， 
相应 的 图 形 会 是 什么 样子 呢 ? 这 样 的 图 形 就 是 双 混 沌 图 形 , 下 面 给 出 双 混 沌 图 的 定义 。 记 刀 和 环 表 
示 两 个 映射 关系 分 别 生成 冬 和 mn ， 中 间 变 量 尺 和 A 定义 为 : 

尺 =Xn+rl+yn+l，， 4= 加 十 加 ( 20-11 ) 

X=Rceos(Kr4)，Y=Rsin(Kr4) ( 20-12 ) 

其 中 X 和 了 表示 绘图 的 坐标 点 。 

下 面 举例 说 明 双 混沌 图 形 的 绘制 ， 用 到 的 映射 关系 是 zsl = asin(rzm) 和 x+l=acos(xzm)， 实 
现 程 序 如 下 : 


N=300; s% 取样 点 数 
starx=0.1) % 设置 初 值 
Z1=zeros(1,N); % 生成 空 的 数组 
Z2=zeros (1,N) ; % 生成 空 的 数组 
K=pi; $ 设置 参数 K 的 数值 
Ra=ones(1,N) ;% 生成 全 1 向 量 
figurejs(1)=subplot (121) ;hold on;box on; 当 生成 空 的 坐标 轴 
xlabel('\itx','Fontsize',16,'Fontname'，'Times new roman' ); 和 以 轴 标 注 
Y1label('N\ity'， Fontsize',16，PFontname ， Times new roman' ); $% Y 轴 标注 
s(2) =subplot (122) ;hold on;box on; gs 生成 空 的 坐标 轴 
for a=0.5:0.0001:1;  s% 参数 离散 取 值 
x=rand; $% 设置 初 值 
y=rand; % 设置 初 值 
for k=1:400)， 
x=ax*sin(pix*x); gs 预 迭代 使 之 进入 混沌 状态 
vy=axcos (pixy); % 预 迭 代 使 之 进入 混沌 状态 
end 
for k=1:N; 
RAR=x+y; 外 计算 参数 
x=a*sin{(pixXx); g% 计算 和 欠 代 过 程 数值 
Y=axcos{(Pixy); s$ 计算 迭代 过 程 数值 
R=x+y7g% 计算 参数 R 
2Z1(k) =x+y*i; g% 利用 复数 记录 坐标 点 
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2Z2 (k) =Rxexp (i*Kxax*pi); s% 利用 复数 记录 坐标 点 

end 

plot(s(1),Z1,m.''markersize',1); $% 绘图 

plot(s(2),Z2, Fr.'，'markersize',1); sg 绘图 
end 
set(s,，'XLim', [0.5,al);axis(s,'sauare'); g% 设置 坐标 轴 范 围 和 形状 
xlabel('NitX',，'Fontsize' ,16,'Fontname','Times new roman'); 8% X 轴 标 注 
ylabel('Nity'，'Fontsize' ,16,，'Fontname'，'Times new roman'); % Y 轴 标 注 


根据 映射 关系 进行 预 适 代 之 后 ， 再 记录 数据 用 于 绘图 。 其 中 对 于 每 个 参数 a 的 数值 ， 都 是 用 
服从 均匀 分 布 的 随机 数 作为 初始 条 件 进行 迭代 的 , 最 后 给 出 双 映 射 对 应 的 分 公 图 形 。 执行 上 述 程序 


输出 的 图 形 如 图 20.13 所 示 ， 其 中 左 图 是 点 (x, yn) 对 应 的 图 形 , 右 图 是 点 (X,Z) 对 应 的 图 形 , 可 见 
双 映 射 的 图 案 是 在 分 侣 图 上 面 “ 蒙 ”上 了 一 层 模糊 的 随机 点 。 
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图 20.13， 双 混 涉 图 形 


20.1.9 标准 映射 


标准 映射 的 定义 为 : 

十 天 Sin 
呈 一 ]， 人 ( 20-13 ) 
区 n+ 二 Mn 十 了 nxl 


其 中 参数 到 ， 通 过 绘制 (x,, y, ) 可 以 得 到 标准 映射 的 相 图 ， 标 准 映射 相 图 的 程序 如 下 


K=1/2; # 设置 参数 K 的 数值 

N=800; g 迭代 次 数 

M=10; $% 整体 迭代 重 数 

Zz=zeros(1,N) ; % 对 存储 空间 预 占用 

hold on;box on;axis([0,pix*2,0,pix*2]); #% 打开 空 的 坐标 轴 


for d=1:M; 
Yy=d/M*pi*2; ss 设置 yn 的 初 值 
for C=1:M; 
x=c/Mx*pix*2; sg 设置 yn 的 初 值 
for n=1:N; 


yt=y+Kx*sin(x); $% 按 和 迭代 式 计 算 

xt=x+yt; 按 迭 代 式 计算 

Xx=Xxt; $% 更 新 xm 

Y=yt; % 更 新 yn 

Zz(n)=mod(xt,2*pi)+mod(yt,2*pi)*i; gg 以 复数 的 形式 记录 数据 
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end  - 
plot (2z, rzr. markersize',/1); % 以 点 的 形式 画图 
ena 
end 
title(['fNitK)='vnum2str(K)],'Fontsize',14,'Fontname'，'Times new roman');g 标注 


执行 上 述 程序 所 得 图 形 如 图 20.14 左 图 所 示 , 当 把 参数 K 换 为 1 时 可 以 得 到 如 图 20.14 右 图 所 
示 图 形 ( 其 中 颜色 设置 为 洋红 色 ， 其 他 参数 未 改动 )。 





图 20.14 ”标准 映射 的 相 图 


20.2 ”微分 方程 中 的 分 岔 和 混沌 行为 


上 一 节 介绍 了 离散 形式 的 混沌 行为 , 本 节 来 介绍 一 些微 分 方程 中 表现 出 来 的 混沌 行为 。 在 本 章 
第 一 节 中 已 经 说 明了 在 很 多 非 线性 问题 中 可 能 出 现 混沌 现象 , 而 利用 微分 方程 可 以 描述 一 些 动力 学 
或 者 相关 过 程 的 变化 。 本 节 举 例 说 明 根 据 微 分 方程 绘制 分 公 图 形 的 做 法 。 


20.2.1 ”根据 微分 方程 绘制 分 岔 图 形 的 做 法 一 一 举例 说 明 


首先 以 受 驱 单 摆 为 例 ， 对 应 方程 可 以 写 为 : 

2 40 二 灰 cosW ( 20-14 ) 

di 9 四 

其 中 6 是 单 摆 的 角 位 移 ，94 是 品质 因子 ，1/94 表 示 阻 尼 因子 ， 正 是 驱动 力 的 振幅 ，VY 是 驱动 力 
的 频率 。4 ， 严 和 "” 是 控制 单 摆 的 参数 。 这 里 考虑 设置 4=2 ，v = 2/3 ， 而 下 在 区 间 [0.96,1.52] 内 
取 值 。 在 求解 微分 方程 时 ， 初 始 条 件 为 6(0)=0 ，E8'(0) 在 区 间 [o,?] 内 取 不 同 的 值 。 而 时 间 + 计算 
的 范围 是 [o,66]。 需 要 计算 出 2'(66) 和 下 的 关系 图 。 首 先 定义 微分 方程 ; 


function dx=pendulum(t,x,Elag,P)7 
dx=[x{(2) ;Fwxcos (2x*t/3)-0.5*X(2)- -sin(x(1))]; 


调用 函数 ode45 求解 上 面 的 微分 方程 ， 可 以 绘制 分 岔 图 ， 相 应 程序 内 容 如 下 : 
figureihold on;box on;xlim([0.96,1.52])7% 生成 空 的 坐标 轴 


N=801; g% 设置 迭代 次 数 
Fl=ones(1,N) ; g% 生成 空 的 数组 
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for F=0.96:.001:1.52; 
for n=1:N; 
[t,x]=oqae45('pendqulum', [0,66], [0,n/VN*2],[],F); s% 求解 微分 方程 
Ttn)=x(end,2); s 提取 关键 点 
end 
F sg 实时 显示 F 的 取 值 
plot (Fl1*F,T,'k.'，'markersize',1); * 绘图 
pause(0.01); % 暂停 一 下 
end 
Xlabel('\itF','Fontsize',16,'Fontname'，'Times new roman'); $% X 轴 标 注 
ylabel('{fNitNthetal \prime',，'Fontsize',16,，'Fontname'，'Times new 
roman'，'Rotation',0); $ Y 轴 标注 
set (gca, 'Xtick',0.96:0.07:1.52); 8% 设置 坐标 轴 刻 度 


上 述 程序 执行 起 来 比较 耗 时 间 。 


程序 结束 后 输出 图 形 如 图 20.15 所 示 。 
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图 20.15“ 受 驱 单 摆 角 速度 关于 驱动 力 的 分 岔 图 
下 面 再 举 一 例 说 明 微分 方程 中 的 分 岔 现象， 微分 方程 组 如 下 : 


zi=-Bx 玉 -0xzl-1 ( 20-15 ) 


其 中 参数 媚 的 取 值 范围 是 [0.57.0.7] ， 微 分 方程 的 初始 条 件 为 Y=x =x=0。 

绘制 这 个 分 岔 图 的 思路 如 下 : 逐个 计算 参数 妃 ， 在 每 次 求解 微分 方程 时 ， 先 使 方程 进入 稳定 
状态 ， 然 后 计算 一 个 小 的 时 间 区 间 ， 如 [o,5] ， 并 求 出 区 间 内 x 的 最 大 值 ， 多 次 迭代 计算 最 大 值 。 
将 相应 的 最 大 值 显示 出 来 就 可 以 得 到 相应 的 分 岔 图。 如 果 所 有 最 大 值 相 等 , 则 对 应 一 条 弦 ， 否 则 就 
是 分 岔 现象 或 者 进入 混沌 状态 。 

根据 上 面 的 说 明 ， 可 以 写 出 分 贫 图 的 程序 ， 相 应 的 MATLAB 程序 内 容 如 下 
hold on;box on;xlim([0.57,0.75]);ylim([1.3,2.7]);set(gca,'xXxdqir' reverse')gs 生成 
空 的 坐标 轴 
N=100; g% 设置 迭代 次 数 


Tn=[]， sg 初始 化 Tn 
options=odeset ('RelTol',1le-9); #% 设置 微分 方程 求解 选项 
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for B=0.75:-.0001:0.57; $# 计算 不 同 的 B 值 

x0=[0,0,0]; s 设置 初 值 

for n=1:200; % 进行 预 和 迭代 计算 
[t,x] =ode45('afun1', [0,5],x0,options,B); % 预 迭 代 解 微分 方程 使 之 达到 稳定 状态 
x0=xt(end, :); % 更 新 初 值 

end 

for n=1:N; 
[t,x]=ode45('dfun1'，, [0,5],x0,options,B); s% 求解 微分 方程 
x0=x(end, :); $ 更 新 初 值 
xdq=x(:,1)7  % 提取 求解 结果 
[M, ITk] =max(xG) ; % 计算 最 大 值 
if 1<Ik & Ik<length(xd); #% 判断 是 否 为 最 大 值 内 部 点 

Tn= [mm;M]; % 记录 最 大 值 


end 
end 
plot (B,mn, 'k.'，'markersize',1); $ 绘图 
Tn=[]; % 清空 
pause(0.01); % 暂停 一 下 
enda 
Xlabel('\itB',，'Fontsize' 16, 'Fontname'，'Times new roman') $% X 轴 标 注 


ylabel('fNitxlj'，'Fontsize',16,'Fontname',，'Times new roman',，'Rotation',0); %$Y 轴 


与 离散 情况 类 似 ， 先 进行 一 定 次 数 的 预 迭 代 求 解 微分 方程 ， 然 后 开始 以 时 间 区 间 [0，5] 解 微分 
方程 并 找 出 最 大 值 进行 绘图 ， 从 而 可 以 得 到 分 岔 图 。 执 行 上 述 程序 输出 图 形 如 图 20.16 所 示 ， 可 见 
在 参数 B 取 不 同 数值 时 该 微分 方程 可 以 出 现 分 岔 和 混沌 行为 。 
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图 20.16 ”微分 方程 中 的 分 岔 现象 


20.2.2 三 元 微分 方程 组 中 的 分 岔 、 混 沌 现象 的 模拟 
下 面 给 出 一 个 三 元 微分 方程 组 中 的 分 舍 、 混 沌 现象 的 模拟 ， 微 分 方程 组 定义 如 下 : 
交 一 》 
yY=-2goy 一 ozxz-(-7jozz+Bsin 
z=4y-axlylz=- 记 1zl 
在 模拟 中 ， 参 数 取 值 如 下 : 5=0.02 ，wW=1，7Y=0.3，p=1，4=1，w=0.15， 


{ 20-16 ) 
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有 = -0.85 ， 而 参数 及 的 取 值 范围 是 [0,120]。 计 算 z 和 已 之 间 的 关系 图 形 。 

因为 这 个 微分 方程 组 是 在 外 部 驱动 力 至 sin( pi) 的 作用 下 进行 的 动力 学 行为 ， 因 此 系统 稳 态 运 
动 的 周期 是 2r/ 疡 = 2r 。 在 求解 这 个 微分 方程 的 分 贫 图 时 ， 用 函数 ode45 求解 时 时 间 计 算 范 围 取 
[0, 2x] 。 在 计算 点 x 最 大 值 时 , 先 多 次 迭代 求解 微分 方程 , 使 之 达到 稳 态 运动 ， 然 后 计算 周期 27 
内 的 最 大 值 。 人 遍历 一 定 范围 内 如 的 值 ， 可 以 得 出 z 和 妃 之 间 的 分 岔 关系 图 形 。 


function dx=dfun2 (t,x,flag,B); 

Xi=0.02; 

gama=0.5; 

omiga=17 

P=1; 

alpha=0.15:， 

beta=-0.85: 

RAR=17 

dx(1l,1)=x(2)， 
dx(2,1)=-2*xixromigaxx(2)-Gamaxromiga^2*Xx(1I)-(1-gama)*omiga^2x*x{(3)+Bwsin(Pxt) 
dx(3,1)=RAx*x(2)-alpha*abs (X(2))*Xx(3)-beta*x(2)w*abs(x(3))， 


调用 函数 ode45 求解 微分 方程 ， 相 应 的 实现 程序 如 下 ; 


hold on;box on;xlim([35.2,36.8]);s%sylim([-20,10]);s 生成 空 的 坐标 轴 
N=80:; s# 设置 迭代 次 数 
mn=zeros(1,N); % 初始 化 Tn 
options=odeset('RelTol',le-9); sg% 设置 微分 方程 求解 选项 
for B=35.2:.002:36.8; g% 计算 不 同 的 B 值 
x0=[0,0,0]; % 设置 初 值 
for n=1:60; #% 进行 预 迭 代 计 算 
[t,x]=ode45('afun2', [0,pi*2],x0,options,B); #% 预 迭 代 解 微分 方程 使 之 达到 稳定 状态 
x0=x{(end, :) ; $# 更 新 初 值 
end 
for m=1:N; 
[t,x]=odqe45('dqfun2'，,[0,pir2],x0,options,B); #% 求解 微分 方程 
x0=x(end, :) ; $% 更 新 初 值 
xd=x(:,2);  % 提取 求解 结果 


Tn (n)=max(xQ) ; 


end 
B 
plot (B,mmn, 'k.， markersize',1); 8% 绘图 
pause(0.01) g% 暂停 一 下 
end 


xlabel('\itB'，'Fontsize',16,'Fontname''Times new roman'); $% X 轴 标注 
ylabel('{f\itx)\prime',，'Fontsize',16,'Fontname'，'Times new roman'，'Rotation'v0): 
# Y 轴 标 注 

首先 进 代 求 解 微分 方程 ， 然 后 开始 解 方程 并 记录 数据 进行 绘图 。 这 里 每 次 调用 函数 ode45 求 
解 微 分 方程 的 时 间 区 间 是 [0，pi*2], 同时 记录 的 数据 位 置 是 区 间 内 的 最 大 值 处 。 执 行 上 述 程序 所 得 
图 形 如 图 20.17 所 示 ， 对 于 这 个 微分 方程 系统 同样 地 出 现 分 岔 和 混沌 行为 。 


本 二 可 二 519 


MATLAB 科学 计算 与 可 视 化 仿真 宝 有 典 > > je 戎 

















偶 7 4 下 由 一 4 
后 2 ”了 瑟 4 3 拓 5 ”天 8 36 362 3 玉 4 366 368 


图 20.17 ”微分 方程 组 对 应 的 分 岔 图形 


20.2.3 蔡氏 混沌 电路 


蔡氏 混沌 电路 是 混沌 研究 中 一 个 典型 的 电路 模型 ,其 最 早 由 美 籍 华人 蔡 少 棠 教授 提出 。 该 方程 
的 标准 化 形式 为 : 
X 三 a[y -2z 一 Ap(z]] 
JE ( 20-17 ) 


其 中 人 (= mmx+ 刁 (mu 一 四 放 x+11-1x 一 1 在 计算 中 参数 取 值 为 ，mo =-L.1 ， 


mi =-0.6，b=12，a es [7.8.5]。 
首先 定义 微分 方程 ， 程 序 如 下 


function dx=chua(t,x,flag,a,b): 

m0=-1.1; 

ml=-0.6; 

hx=ml*x(1)+0.5*(mO-ml)*[abs(x(1)+1)-abs(x(1)-1)];， % 计算 函数 h(x) 的 值 
dax=[ax(x(2)-Xx(1)-hx);x(1)-x(2)+x(3);-b*x(2)]; $ 定义 微分 方程 


这 里 把 参数 Q 和 妨 作 为 方程 的 输入 参数 ， 在 和 迭代 计算 中 可 以 更 改 它 们 的 数值 。 


调用 函数 ode45 求解 上 面 的 微分 方程 ， 程 序 内 容 如 下 ， 


hold on;box on;xlim([7,8.5]);s% 生成 空 的 坐标 轴 
N=100; % 设置 迭代 次 数 
Tn=[]; gs% 初始 化 mn 
b=12:; 
options=odeset('RelTol' ,le-9); g% 设置 微分 方程 求解 选项 
for a=7:0.002:8.5; ss 计算 不 同 的 a 值 
x0=[0,0.3,0]; gs% 设置 初 值 
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[ct,x]=ode45('chua'， [0,100],x0,options,a,b):; 
X0=x(end,:); 
for mn=1:N; 
[t,x]=ode45('chua'， [0,2],x0,options,a,b); $ 求解 微分 方程 
x0=x(end, :); % 更 新 初 值 
xd=x(:,1); sg% 提取 求解 结果 
[M, Ik] =max(xd) ; % 计算 最 大 值 
if 1<Ik & Ik<length(xQ); 名 判断 是 否 为 最 大 值 内 部 点 
mn=[mm;M]; # 记录 最 大 值 


end 
end 
plot (amn,，'k.'，'markersize',1); $% 绘图 
Tn=[]; g% 清空 
pause(0.01); #% 暂停 一 下 
end 
xlabel('\ita','Fontsize',16,'Fontname'，'Times new zoman') 1; g X 轴 标 注 


ylabel('{fNitx}'，'Fontsize',16, ,Fontname'，'Times new roman'，'Rotation',0); 多 Y 轴 
标注 
Set (gcf，'Color'，w') 
% set{gca, 'Xtick',0.96:0.07:1.52); g 设置 坐标 轴 刻 度 
axes('Position',[0.23,0.3,0.4,0.4]); % 建立 一 个 小 坐标 轴 ， 在 其 上 绘制 局 部 放大 图 
xlim([7.5,8]) ;holda on;box on; gs 设置 坐标 轴 属 性 
for a=7.5:0.0008:8; #% 计算 不 同 的 a 值 
x0=[0,0.3,0]; s% 设置 初 什 
[t,x]=ode45('chua', [0,100],x0,options,a,b); 
X0=x(end,:): % 获取 迭代 过 程 中 的 初 值 
for n=1:N7 
[t,x]=ode45('chua', [0,2],x0,options,a,b); $% 求解 微分 方程 
x0=x(end, :); 8% 更 新 初 值 
xd=x(:,1)， gs 提取 求解 结果 
[M, ITk] =max(xd) ; % 计算 最 大 值 
if 1<Ik & Ik<length(xd); 8% 判断 是 否 为 最 大 值 内 部 点 
Tn= [Tn;M] 当 记录 最 大 值 
enda 
endaQ 
plot(a,Tn, 'k.'w'markersize',1); % 绘图 
Tn=[]， g# 清空 临时 数据 
pause(0.01)， # 暂停 一 下 


end 
xlabel('\ita','Fontsize',16,'Fontname'，'Times new roman'); $% X 轴 标注 


这 里 先进 行 时 间 区 间 为 [0, 100] 时 的 微分 方程 求解 ， 使 之 进入 稳定 状态 ， 然 后 调用 ode45 函数 
在 范围 较 小 区 间 内 进行 求解 并 记录 区 间 内 的 最 大 值 进行 绘图 。 为 了 突出 细节 部 分 的 情况 ， 这 里 将 参 
数 a 在 [0.75, 8] 范 围 的 小 范围 图 形 进行 放大 并 显示 在 一 个 小 的 坐标 轴 内 。 执 行 上 述 程序 输出 的 图 形 
如 图 20.18 所 示 ， 从 图 中 可 以 看 出 分 贫 和 混沌 现象 随 a 变化 的 情况 。 
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20.18 蔡氏 电路 中 的 分 岔 现象 


20.3 混沌 吸引 子 


本 节 介 绍 混沌 吸引 子 方面 的 知识 。 其 中 相 图 和 庞 加 莱 截 面 是 两 个 比较 重要 的 概念 , 首先 来 介绍 
相 图 和 庞 加 莱 相 关 的 知识 。 


20.3.1 相 图 


在 介绍 吸引 子 之 前 , 先 给 出 相 图 的 定义 。 一 般 情 况 下 ,微分 方程 或 者 方程 组 可 以 表达 为 不 显 含 
时 间 上 的 形式 : 
关 二 及 (二 二 开光 ) 


并 二 矶 (后 天光 芝 ) 人 


演 放生 和 5 克 和 

通过 求解 微分 方程 组 可 以 得 到 Xi (i)，2 (t) ，.……，x (t) 的 值 ， 按 时 间 顺 序 在 严 维 空间 内 给 
制 相应 的 曲线 ， 所 得 图 形 被 称 为 相 图 。 曲 线 上 的 点 表示 系统 在 相应 时 刻 的 状态 ， 该 图 形 上 的 曲线 被 
称 为 相 轨 线 。 通 过 分 析 相 轨 线 可 以 了 解 系统 是 否 存在 混沌 现象 。 对 于 离散 的 映像 ， 大 表示 迭代 次 
数 ， 在 上 脚 标的 括号 中 表示 ， 

Xi 二 Si(xz,x() 


地 区 
xx = 8 (xx0) 


可 以 根据 迭代 的 数值 序列 加 ，X2 ，.…， 思 绘图 ， 所 得 图 形 即 为 该 映射 的 相 图 。 
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下 面 举 例 说 明 埃 农 映射 相 图 的 绘制 ， 相 关 程 序 如 下 ， 绘 制 的 图 形 如 图 20.19 所 示 。 


a=1.127; sg% 对 参数 a 赋值 
b=0.3; ，”% 对 参数 b 赋值 
N=10000; s% 设置 迭代 次 数 
xn=zeros(1,N); g% 预 置 空间 
yn=zeros(1,N); sg 预 置 空间 
Xx=07Y=0; s 设置 预 迭 代 初 值 
for k=1:800); 
xt=1-axx^2+Y) g% 进行 预 迭 代 
YL=DbeX; % 进行 预 迭 代 
x=Xxt; g% 更 新 迭代 值 
y=yt; % 更 新 迭代 值 
enda 
xn(1)=x; $ 记录 迭代 初 值 
yn(1)=y; % 记录 迭代 初 值 


for k=1:N-1; 
xn {(k+1)=1-axxn(k)^2+yn(k) ; g% 记 录 和 迭代 数据 
Yn(k+1)=bx*xn(k); g% 记 录 迭 代数 据 
end 


Plot (xn,yn, 'k.'，'Markersize',1); sg 绘图 
关于 微分 方程 组 对 应 的 相 图 的 绘制 在 下 面 两 个 小 节 中 介绍 。 
04 
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图 20.19 埃 农 映射 相 图 


研究 相 空 间 中 的 复杂 轨 线 , 庞 加 莱 发 展 了 一 种 截面 方法 。 该 方法 是 在 相 空 间 内 取 某 一 坐标 为 常 
数 的 截面 ,通过 研究 相 轨 线 和 该 截面 的 交点 来 分 析 系 统 演化 的 过 程 。 如 果 相 空间 是 维 的 ， 那 么 可 


以 取出 1 维 空间 的 相 平 面 ， 该 平面 就 是 庞 加 莱 截 面 。 
这 里 以 单 摆 运 动 方程 为 例 说 明 庞 加 莱 截 面 的 绘制 ， 单 摆 方 程 可 以 写 为 : 
pH+70+osing= 丰 cosW 
引入 一 个 相位 函数 量 m ， 上 面 的 方程 可 以 转化 为 下 面 不 显 含 时 间 的 系统 : 


( 20-20 ) 
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=wW 
f=Fcosgp-)o-ozsinb ( 20-21 ) 
9=Y 
在 相 空 间 (9,w,g) 中 ， 取 多 = 0 作为 庞 加 荣 截面 。 值 得 注意 的 是 变量 9 以 一 个 周期 函数 的 形式 
cosY ( 其 周期 为 2r )， 因 此 相 曲 线 每 通过 9 = 2nz 就 可 以 在 庞 加 莱 截 面 m= 0 留 下 一 点 ， 这 样 取 时 
间 区 间 为 fo,2z] 多 次 欠 代 求解 方程 组 ， 每 次 求解 时 间 终端 处 的 值 就 可 以 得 到 相 曲 线 与 庞 加 荣 截面 的 
交点 。 
首先 定义 单 摆 微 分 方程 对 应 的 函数 文件 pppp.m， 即 ; 


function dx=pppp(t,x,flag,F,gama,V) 
QGQx= [x(2);F*cos(x(3)) -gamax*x(2)-x(2)^2*sin(x(1));v]; % 定义 微分 方程 组 


根据 上 面 的 思路 可 以 得 到 求解 庞 加 莱 截 面 的 程序 。 


F=1.49;gama=0.5;v=273; gs 设置 单 摆 方 程 组 的 参数 
options=odeset('RelTol',1e-9); $% 设置 微分 方程 求解 选项 
[Et,x]=ode45('PPPP'，, [0,200], [0,1,0],options,F,gama,v); g% 求解 单 摆 方程 
Subplot (121);P1ot(x(:,1),x(:,2)); 
xlabel(' (b)'，'Fontsize',16,'Fontname', Times new :roman')71gs X 轴 标 注 
x0=xf(endG, :); 8% 从 前 面 求 解 结 果 中 获取 初 值 
N=4000;  s 设置 迭代 次 数 
xk=ones(1,N)*x0(1); sg# 预 置 空间 
Yk=ones(1,N)*x0(2); ss 预 置 空 间 
for k=1:N-1; 

[t,x]=ode45('pppp', [0,pi*2],x0,[],F,gama,v); % 求解 方程 

x0=x(end, :);  s 获取 解 的 终端 值 

xxk(k+l1)=x0(1); #% 提取 与 庞 加 莱 截 面 的 交点 坐标 

Yk(k+1)=x0(2) ; $% 提取 与 庞 加 莱 截 面 的 交点 坐标 
enaQ 
Subplot (122) ;plot (xk,yk,，'r.'，'markersize',1); s# 绘制 让 加 莱 截 面 上 的 交点 图 
Xlabel{(' (b)'，'Fontsize',16,'Fontname'，'Times new roman'); $ X 轴 标注 


因为 phi 的 周期 等 于 2*pi， 所 以 在 求解 微分 方程 时 以 区 间 [0, pi*2] 作 为 输入 ， 通 过 提取 区 间 内 
解 最 后 一 个 数据 就 是 相应 在 庞 加 菜 截 面 的 投影 。 多 次 计算 后 可 以 得 到 庞 加 莱 截 面 上 的 图 案 。 执行 上 
述 程序 ， 输 出 图 形 如 图 20.20 所 示 ， 其 中 图 (a) 是 角度 和 角 加 速度 关系 曲线 ， 散 乱 的 图 (b) 是 庞 加 莱 
截面 上 的 图 案 。 
司 [ 
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中 示例 中 利用 了 分 量 多 的 周期 性 ， 使 得 计算 过 程 变 得 比较 简单 。 如 果 分 量 不 存在 周 
0 用。 期 性 ， 可 以 考虑 利用 插值 的 方法 获得 与 庞 加 莱 截 面 的 交点 坐标 。 


20.3.2 Lorenz 吸引 子 


美国 数学 家 洛 伦 效 { E. N. Lorenz ) 把 大 气 对流 和 贝 纳 德 液体 对 流 联 系 起 来 ， 利 用 流体 力学 中 
的 纳 维 叶 -斯 托 克 斯 ( NavierStokes ) 方 程 、 热 传导 方程 和 连续 性 方程 ,推导 出 著名 的 洛 伦 效 ( Lorenz ) 
方程 组 ， 其 数学 定义 如 下 : 


x=-C(x-y) 
》= 坟 一 》 一 仙 ( 20-22 ) 
z = 一 bz+ 罗 


其 中 G ， 广 和 已 是 系数 ， 它 们 都 是 正 数 。 

令 邓 = 交 = 和 =0， 可 以 得 到 洛 伦 效 方程 的 平衡 点 ， 即 ; 
-alx-y)=0 
一 yxZ=0 { 20-23 ) 
一 pz+x=0 

求解 上 面 的 方程 可 以 得 到 三 组 解 ， 即 : 


xr=0 |x=Vpr-U |x=-VJpbr-1 
y=0，4y7= pr-， y=-Vpr-]) ( 20-24 ) 
z=0 Z= 一 ] Z=7 一 1 


这 样 洛 伦 效 方 程 组 平衡 点 是 : (000) ， 人 (VBC2UJV5C2IUJ -1l 和 
LVEr2J -VCr2Tr-1)。 
首先 定义 洛 伦 兹 微分 方程 组 ， 程 序 如 下 : 


function dx=lorenzf(t,x,flag,sigma,z,b)， 
Gx=[-sigmar (X(1)-Xx(2));rx*x(1)-xf2)-x(1)*x(3)7-bxx(3)+x(1)*x(2)]7 g% 定义 微分 方程 组 


9 把 上 面 两 行 语句 存储 为 lorenzf.m 文件 。 在 MATLAB 中 提供 了 函数 lorenz 来 演示 洛 
他 牙 朋 引子 的 绘制， 读者 在 命令 窗 中 输入 orenz 即 可 运行 这 个 演示 。 

在 计算 中 参数 取 值 为 = 9， 7 三 27， 玫 三 33 初始 条 件 为 X-o =1， y-o=z-o=0。 利 
用 下 面 的 程序 可 以 求解 洛 伦 效 微 分 方程 组 并 绘图 。 


x0=[1,0,0]; % 定义 初 值 

sigma=9) % 对 参数 C 赋值 

r=27; g% 对 参数 六 赋值 

b=3; # 对 参数 户 赋 值 

[t,x]=ode45('"lorenzf', [0,60],x0,[],sigma,zr,b); s# 求解 洛 伦 效 微分 方程 组 
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subplot (221) ;plot(t,x(:,1));L(L)=xlabel('\itt');D(2)=ylabel('N\itx')i g% 绘制 上 ~ 大 


曲线 

subplot (222) ;plot(t,x(:,2));L(3)=xlabel('\itt');L(4)=ylabel('\ity'); $% 绘制 上 ~ 了 
曲线 

subplot (223) ;plot(t,x(:,3));L(5)=xlabel('N\itt');D(6)=ylabel('\itz'); % 绘制 上 ~ 2Z 
曲线 

t(1:1500)=[];x(1:1500,:)=[]; % 删 去 前 面 一 段 数据 


subplot (224) ;plLot3(x({:,1),x(:,2),x(:,3))7;box on; % 绘制 三 维 相 轨 线 图 
L(7)=xlabel('fN\itxl');D(8)=ylabel('f\ity}l');D(9)=zlabel('fNitzl');gX 轴 、Y 轴 和 2 
轴 标 注 


set (TL,'Eontsize',12,'Fontname'，'Times New Roman');s 设置 字体 属性 


输出 图 形 如 图 20.21 所 示 。 
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图 20.21 洛 伦 兹 吸引 子 
可 见方 程 的 解围 绕 空间 中 两 点 不 断 地 在 两 个 区 域 往复 运动 , 读者 可 以 使 用 函数 comet3 来 动态 
绘制 洛 伦 效 吸 引子 以 观察 其 状态 变化 过 程 。 


20.3.3 ”Rossler 吸引 子 


在 1976 年 ， 罗 斯 勒 ( O.E. Rssler ) 在 洛 伦 北 方程 组 的 基础 上 设计 了 一 个 新 的 吸引 子 方程 ， 即 
罗斯 勒 方程 组 ， 其 数学 描述 如 下 : 
尼 =-(?+z) 
多 =X+ay 
z=b+(r-c)z 
下 面 考虑 求解 罗斯 勒 方程 组 ， 首 先 定义 函数 文件 rossler m 描述 这 个 微分 方程 组 。 


( 20-25 ) 


function dx=rossler(t,x,flag,a,b,c); 
dx=[-x(2)-x(3);x(1)+axx(2) ;b+(x(1)-c)*x(3)]; s% 定义 微分 方程 


526 jw jw j> 和 


梧 可 可 本 第 20> 混沌 现象 





这 里 方程 组 的 参数 取 值 为 : a=b=1，c=6，7，8， 初 值 条 件 为 元 -0 =1，y-o = zio=0。 然 
后 利用 下 面 的 程序 就 可 以 绘制 罗斯 勒 吸 引子 。 


x0=[1,0,0]; 8 定义 初 值 

a=0.1; % 对 参数 a 赋值 

b=0.1; s 对 参数 b 赋值 . 

[t,x]=ode45('rossler' oo 100],x0， 口 ， ab,6);x(t<50,:)=[]; % 求解 洛 伦 效 微分 方程 组 ， 并 
把 解 中 上 <50 的 部 分 数据 删 

Re ,1) ,xl(:v,2),x(:,3));ti(1)=title('ft\itc}=6')) gs% 绘制 曲线 
[t,X]j=ode45("rossler'， [0,100],x0,[],a,b,7);x(t<50,:)=[]; &% 求解 洛 伦 效 微 分 方程 组 ， 并 
把 解 中 t<50 的 部 分 数据 删 删 去 

Subplot (132) ;plot3(x(:,1),x(:,2),x(:,3));ti(2)=title('f\itc}j=7'); g% 绘制 曲线 

[上 ,xj=ode45 ('rossler', [0,100],x0, [],a,b,8);x(t<50,:)=[]) s 求解 洛 伦 兹 微分 方程 组 ， 并 
把 解 中 t<50 的 部 分 数据 删 去 

subplot (133) ;plot3(xf:,1),x(:,2),x(:,3)) rti(3)=title('f\itcj)=8'); g% 绘制 曲线 

set (ti,'Fontsize',12,'Fontname'，'Times New Roman');s 设置 字体 属性 


执行 上 述 程序 输出 图 形 如 图 20.22 所 示 。 


10 10 C=7 20 
c= 一 8 
5 5 10 
位 习 ] 
0 针 0 本 0 名 
0 0 0 
-10 -20 -20 -20 -20 -20 


图 20.22 ”罗斯 勒 吸 引子 


20.4 _Lyapunoyv 指数 


李 雅 普 诺 夫 ( Lyapunoyv ) 指数 是 描述 混沌 现象 的 一 个 重要 指标 。 一 个 映射 = jF(x,a) 的 李 雅 
普 诺 夫 指数 4 
=1lim 一 LS nrata4 :a) 


用 一 ee 天 k=0 
当 4 是 负数 时 ， 和 点 ; 当 4 等 于 0 时， 映射 进行 周期 运动 ; 当 是 正 数 时 ， 
映射 处 于 混沌 状态 。 对 于 在 计算 机 上 和 处 的 计算 ， 只 考虑 计算 屎 为 较 大 数 即 可 ， 


( 20-26 ) 








而 不 必 计 算 无 穷 多 个 点 的 导数 。 本 节 将 给 出 映射 和 微分 方程 组 的 李 雅 普 诺 夫 指数 4 的 计算 例子 。 
这 里 以 罗杰斯 蒂 映 射 为 例 ， 该 映射 关系 的 导数 表达 式 为 : 
dca_。 2 ( 20-27 ) 
dr 


在 计算 中 参数 寻 的 取 值 为 600， 和 迭代 过 程 中 的 初 值 为 0.1。 这 里 参数 a 的 取 值 范围 是 [3.4, 4] 。 
为 了 便于 比较 李 雅 普 诺 夫 指 数 与 系统 状态 的 关系 ， 此 处 同时 把 映射 图 形 给 出 。 
具体 计算 程序 如 下 ， 


n=600， * 设置 计算 李 雅 普 诺 夫 过 程 中 迭代 的 总 次 数 
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xn=zeros{(l,n); s# 预 置 全 0 数组 占据 空间 
aa=3.4:0.001:4; $ 离散 化 参数 a 


N=1; # 计数 指标 
subplot (211);hold on;box on;xlim( [min(aa) ,max(aa)]); 8 生成 空 的 坐标 
XD(1)=YylLabel('\icx'); 
for a=aa' 

x=0.1; # 预 置 初 值 

for qq=1:80; 

x=axxw (1-x); g 预 迭 代 

ena 

s=01; g# 把 累加 参数 设置 为 0 

for G=1:n; 


xn{q) =x} ，$% 记录 映射 的 绘图 数据 
af=a-2*axXxi 当 计算 导数 值 
s=s+log(abs(df)); sg% 累加 绝对 值 的 对 数 
Xx=axXw ( 工 -X) % 迭代 计算 下 一 个 值 
enaQ 
L(N)=s/n; g% 计算 李 雅 普 诺 夫 指数 
N=N+1; g 计数 器 累加 
plot(a,xn(1:100)，'k.'，'markersize',1); s% 绘制 映射 图 
apause(0.01) 
endQ 


subplot (212) ;plot (aa,L);  #% 在 新 建 坐 标 轴 上 绘制 李 雅 普 诺 夫 指数 曲线 
XL(2)=xlabel('\ita');xLb(3)=ylabel('Nit\lambda')， 

Set (XL,'Fontsize',14,'Fontname'，'Times new Roman ' ) 

holda on;box on;plot (xlim, [0,0],'r--'); sg% 绘制 0 刻度 线 
xlim( [min(aa) ,max(aa)]); % 设置 坐标 轴 范 围 


执行 上 述 程序 输出 图 形 如 图 20.23 所 示 。 本 程序 运行 比较 耗 时 ， 需 要 耐心 等 待 运行 结果 。 
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20.23 ”罗杰斯 蒂 映 射 的 李 雅 普 诺 夫 指数 曲线 
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对 于 微分 方程 组 的 李 雅 普 诺 夫 指数 的 计算 可 以 利用 Wolf 等 提出 的 基于 Gram_Schmidt 正 交 化 
的 求解 方法 。 该 算法 实现 程序 的 下 载 网 址 为 http:/wwwmathworks.com/matlabcentral/ 
fileexchange/4628。 读者 可 以 下 载 到 一 个 压缩 包 , 其 中 含有 3 个 文件 , 即 lorenz_extm, lyapunovm 
和 run_lyap,m， 前 两 个 文件 是 函数 文件 ， 最 后 一 个 文件 是 脚本 文件 。 下 面 分 别 介绍 这 3 个 文件 的 
内 容 。 

{ 1 ) 函数 文件 lorenz_ext 是 定义 微分 方程 组 以 及 对 应 的 雅 可 比 { Jacobi ) 和 矩阵， 该 函数 的 调 
用 格式 为 : 


fE=1orenz_ext (t,X) ; 


参数 说 明 : f 是 一 个 人 +1)xm 和 矩阵 ， 其 中 是 时 间 函 数 的 个 数 ， 第 一 行 的 个 数 表 示 离 散 微 分 
值 ， 后 面 上 xz 是 微分 方程 对 应 的 雅 可 比 矩 阵 ， 比 如 微分 方程 可 以 表示 为 


总 三 六 ( 志 二 双 5 双 ) ( 20-28 ) 
其 中 1<kK<m， 雅 可 比 和 矩阵 Vpy 的 元 素 是 

9 
7 - 眉 ( 20-29 ) 


3 
其 中 PP 和 9 是 正 整数 ， 且 1< 记 2<mo 
t 是 时 间 值 ，x 是 由 待 求 函数 的 值 组 成 的 向 量 。 这 个 程序 包 是 针对 洛 伦 兹 方程 的 ， 如 果 想 计算 
其 他 微分 方程 组 ， 可 以 相应 地 规 换 lorenz_ext 文件 内 容 得 到 相应 函数 的 表达 式 。 
{ 2 ) 函数 文件 lyapunovm 是 用 来 计算 李 雅 普 诺 夫 指数 的 程序 ， 该 函数 的 调用 格式 为 ， 


[Texp,Lexp]=lyapunov (n,zhs_ext_fcn, fcn_integrator, 上 Start, Stept,tend,ystart,iou 
tp) ; 
参数 说 明 : Texp 是 时 间 的 数值 。Lexp 是 李 雅 普 诺 夫 指数 的 数值 。n 表示 微分 方程 的 个 数 。 
rhs_ext_fcn 是 前 面 定义 微分 方程 组 的 函数 句柄 名 。fcn_integrator 是 所 调用 求 微分 方程 的 MATLAB 
函数 名 。tstart 是 时 间 的 初始 值 。stept 是 进行 Gram_Schmidt 正 交 化 的 迭代 次 数 。tend 是 时 间 的 
终止 数值 。ystart 是 求解 微分 方程 的 初 值 。ioutp 表示 每 隔 ioutp 个 点 输出 相应 的 时 间 和 李 雅 普 诺 夫 
指数 数值 。 
{ 3) run_lyap.m 程序 是 调用 前 面 两 个 函数 计算 李 雅 普 诺 夫 指数 的 程序 。 


20.5 小 结 


本 章 主要 介绍 混沌 现象 的 模拟 。 首 先 介绍 了 典型 映射 的 分 侣 图 的 绘制 方法 ,以 及 根据 一 些 映射 
绘制 分 岔 图 的 例子 。 然 后 介绍 了 微分 方程 中 的 混沌 现象 , 通过 变化 微分 方程 中 的 参数 绘制 相应 的 混 
沌 图 形 。 混 沌 吸引 子 可 以 很 好 地 刻画 混沌 性 质 ,本 章 介 绍 了 混沌 相 图 、 混 沌 吸引 子 的 绘制 方法 以 及 
庞 加 莱 截 面 的 画 法。 最 后 介绍 了 李 雅 善 诺 夫 指数 , 并 给 出 了 映射 和 微分 方程 系统 的 李 雅 普 诺 夫 指数 
的 计算 方法 。、 
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第 &] 章 分 形 图 形 


争 基本 分 形 图 介绍 康 托 集 及 其 派生 图 形 、Jul1ia 集 、Mandelbrot 集 和 Koch 曲线 等 分 形 图 的 
绘制 。 

人 迭代 函数 系统 ”介绍 利用 和 迭代 函数 系统 绘制 不 同类 型 的 分 形 图 形 。 

人 递归 算法 ”介绍 利用 递归 算法 绘制 分 形 图 形 的 方法 。 

争 分 维 的 计算 ”给 出 分 形 图 形 维 数 的 计算 方法 。 


分 形 的 英文 是 Fractal， 它 是 B.Mandelbrot 根据 拉丁 语 的 词根 设计 的 一 个 单词 。 最 初 分 形 的 研 
究 是 关于 一 些 特 殊 图 形 的 绘制 。 后 来 人 们 发 现 很 多 学 科 中 的 图 案 与 分 形 有 关 ，, 从 而 计算 图 案 的 分 形 
维 数 ( 称 为 分 维 ) 不 同 的 分 维 数 对 应 着 不 同类 型 的 意义 。 目 前 分 形 已 经 应 用 于 很 多 领域 ， 如 数学 、 
物理 、 材 料 科 学 、 生 物 学 、 地 理学 和 计算 机 科学 等 。 本 章 主要 介绍 基本 分 形 图 的 绘制 方法 以 及 分 维 
的 计算 等 知识 。 


21.1 基本 分 形 图 


了 解 分 形 应 该 从 分 形 图 的 绘制 开始 。 本 节 介 绍 几 种 经 典 分 形 的 绘制 方法 , 从 中 可 以 了 解 到 分 形 
图 结构 单元 的 内 在 联系 。 


21.1.1， 康 托 集 


康 托 { Cantor ) 集 的 定义 是 每 次 蕉 去 某 行 线段 中 间 的 1/3 部 分 ， 这 样 就 得 到 很 多 小 线段 。 每 次 
得 到 的 线段 长 度 是 上 面 一 行 的 1/3。 绘 制 的 算法 是 计算 各 个 线段 的 三 等 分 点 的 数值 就 是 新 增 点 的 坐 
标 ， 即 ， 


过 2z。- 22z， 二 
吉 3 过 1.9 二 尹 一 .9+1 ， 了 z 二 Pi-l,9 全 一 ,9+1 ( 21-1 ) 


3 3 wp 3 
其 中 ，zw，， zw pl 是 分 割 后 的 等 分 点 坐标 ， zw_lg ， zw_uefl 是 分 割 点 的 线段 端点 坐标 。 
通过 上 面 的 介绍 可 以 得 到 康 托 集 的 绘制 程序 ， 具 体内 容 如 下 : 


N=6;  $% 分 割 次 数 
axis([0,8,-1,N+l]) ;hold onibox on;  % 生成 空 的 坐标 轴 
Z=[1+N*i,7+N*i]l; sg 设置 初始 时 坐标 的 数据 ， 这 里 用 复数 表示 坐标 点 
plot (Zr')) % 绘图 
text (7.2,N, fitcj_0', Fontsize',14,，'Fontname' Times New Roman'); % 标注 
text(0.4,N,'fNitC}_0' Fontsize',14,'Fontname'，'Times New Roman'); $ 标注 
for k=1:N; 

Z=Z-i) % 下 移 一 段 距离 

for G=J1323:2^k; 

Zt(2*q-1)=2(d) ; $% 记录 分 割 点 端点 坐标 
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Zt(2*q)=2*Z{q) /3+2(g+l)V3; ss 计算 内 部 三 等 分 点 
Zt (2*q+1)=2(q) /3+2(q+1)*2/3; % 计算 内 部 三 等 分 点 
Zt(2xq+2)=Z(q+1); % 记录 分 割 点 端点 坐标 
L1=[ZL{(2*q-1),Zt(2*G)];  % 计算 等 分 线段 的 端点 坐标 
L2=[Zt(2*q+1),2Zt(2*G+2) ]) 当 计算 等 分 线段 的 端点 坐标 
plot (real(L1) ,imag(L1)，r'vreal(L2) ,imag(L2)，r'); #% 画 小 线段 
text (7.2,N-k, ['{fNitCl_ num2str(k)],，'Fontsize' ,14，'Fontname'，'Times New 
Roman') ; $% 标注 
text (0.4,N-k,['fNitCcl_ nunm2str(k)]，'Fontsize',14,'EFEontname'，'Times New 
Roman') ; g% 标注 
end 
Z=Zt; ，$% 更 新 线段 端点 坐标 
Enda 


上 述 程序 的 整体 思路 是 先 初始 化 得 到 一 条 线段 ， 以 后 每 步 计算 中 先 得 出 每 段 线段 的 三 等 分 点 ， 
然后 进行 连 线 。 其 中 L1 和 L2 分 别 是 线段 三 等 分 后 左 侧线 段 和 右 侧 线段 的 端点 。 同 时 每 步 计 算 中 
要 把 线段 的 高 度 减 1。 执 行 上 述 程序 输出 图 形 如 图 21.1 所 示 ， 可 见 线段 的 长 度 随 着 步 数 逐渐 变 小 ， 
缩小 的 比例 为 3。 





“0 1 2 3 4 5 6 7 B 
图 21.1 康 托 集 图 形 


下 面 给 出 递归 调用 的 程序 实现 。 


function [za,zb]=cantor (za zZb); 
E margin==0; 
za=50+110i; ， $% 参数 默认 时 左 端点 的 坐标 值 
zb=750+110*i) % 参数 默认 时 右 端点 的 坐标 值 
enaQ 
if real(za)>real(zb) 
error('zb 实 部 必须 大 于 za 的 实 部 ' ) 
end 
c=8) 8% cantor 集中 线段 的 最 小 长 度 ， 控 制程 序 执行 的 深度 
d=50; % 上 下 两 层 线段 之 间 的 距离 
holda ony 
if abs(zeal(za) -eal(zb) )>c; 、 
plot (real([za,zb]l),imag([za,zb]l),'z''linewidth' ,2); $% 绘制 线段 
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zc=zax*2/3+zb/3; & 计算 三 等 分 点 坐标 
zc=zc-dxi; $% 将 线段 右 端点 下 移 一 段 距离 
za=za-dx*i; g% 将 线段 左 端点 下 移 一 段 距离 
[za,zc]=cantor(za,zc); 递归 调用 
Za=Za+dwii % 将 za 点 恢复 到 原来 位 置 
zd=za/3+zbx2/3; 8% 计算 三 等 分 点 坐标 
zb=zb-dxri; s$ 将 线段 左 端点 下 移 一 段 距离 
zd=zd-dx*i; g% 将 线段 右 端点 下 移 一 段 距离 
[zdq, zb]=cantor(zd,zb); $ 递归 调用 
Enda 


在 每 步 递 归 中 , 把 线段 的 两 个 三 等 分 点 与 最 近 的 端点 进行 组 合 而 进入 下 一 步 的 等 分 过 程 。 根据 
这 个 思路 可 以 设计 出 递归 结构 , 同时 在 递归 过 程 中 需要 考虑 每 步 降低 线段 的 高 度 。 通 过 下 面 的 语句 
调用 上 面 的 函数 Cantor， 可 以 得 到 相应 的 康 托 集 。 


[za, zb] =Cantor(50+110i,750+110i); % 绘制 康 托 集 
ylim([-110,120]); box on # 设置 Y 轴 范 围 


执行 上 述 程序 输出 图 形 如 图 21.2 所 示 , 除 了 相 邻 层 线段 的 高 度 不 同 外 ,图 21.2 的 结构 与 图 21.1 
一 样 。 
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图 21.2” 康 托 集 图 形 
此 外 ,光盘 的 \Ch21 文件 夹 下 的 Cantor_general.m 文件 可 以 生成 一 个 倾斜 的 康 托 集 -Cantor3.m 
也 是 一 个 利用 递归 算法 绘制 康 托 集 的 程序 。 
下 面 来 介绍 二 维 康 托 集 的 绘制 。 在 一 个 白色 的 方形 区 域 ， 把 区 域 等 分 为 3X3 的 9 个 分 块 ， 涂 
黑 中 心 的 一 个 分 块 。 按 这 个 规则 进行 下 去 可 以 得 到 二 维 康 托 集 。 一 个 递归 函数 文件 的 内 容 如 下 ; 


function [zc,LD]=Cantor_2Q(zc,D); 

zfE nargin==0; 
zc=0.5+0.5i;y % 设置 中 心 坐标 值 的 默认 值 
L=1/3; g% 设置 正方 形 半边 长 的 默认 值 


endQ 

L0=0.02; 8% 最 小 半边 长 的 界限 

hola ony; 

[px,py]=meshgrid([-1,0,1]); #% 生成 相对 坐标 点 
Zrm= [PX+PY* 守 ] * 荆 7 g% 生成 复数 位 移 坐 标 

iE L>DO; 
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rectangle('position' [real(zc)-L/2,imag(zc)-D/2,,D]，'Facecolor','k'); 填 - 
充 区 域 
zct=zc+zm(1);[zc,D]=Cantor_2d(zct,L/3) ;zc=zc-zm(1I);L=D*37 4 递归 调用 
zct=zc+zm(2)7 [zc,L]=cantor :2d(zct,L/3);zc=zc-zm(2)7L=L*3) 8% 递归 调用 
zct=Zc+z2m(3) 7 [zc,L]=Cantor_2d(zct,L/3)7zc=zZc-zm(3) ;LDL=L*3; g% 递归 调用 
zct=zc+zm(4)7; [zc,L]=Cantor_2d(zct,L/3)7zZc=zc-zm(4);L=Dx*3; % 递归 调用 
zct=zc+zm(6); [zc 了]=Cantor_2d(zct,D/3)7zc=zc-zm(6);DL=Lx*3) s 递归 调用 
zct=zc+zmt7)7f[zcvL]=cantor_2d(zct,L/A3)7zc=zc-zm(7);L=Dx3; % 递归 调用 
zct=zc+zpm(8); [zc,L]=cantor_2d(zct,L/3);zc=zc-zm(8);L=Lxr3; g% 递归 调用 
zct=zc+zm(9)7 [zc,L]=Cantor_2d(zct,L/13) ;zc=zc-zm(9);L=D*3; g% 递归 调用 
end 


说 明 这 里 利用 函数 rectangle 来 填充 方形 区 域内 部 颜色 为 黑色 ， 读 者 还 可 以 使 用 fi]] 
- 函数 来 实现 区 域 的 填充 目的 。 


利用 下 面 一 段 程序 调用 上 面 的 Cantor_2d 绘制 二 维 康 托 集 。 


rectangle('position', [0,0,1,1],，'LineStyle',，':' Edgecolor'，'r5)) sg 画 出 考虑 区 域 的 
边框 

[zc,L]=Cantor_2d(0.540.5i,1/3); # 绘制 二 维 康 托 集 

axis(gca,'sauare','off'); # 设置 坐标 勒 属性 

set (gcf,'Color' 和 w') % 设置 图 形 窗口 为 白色 


首先 利用 函数 rectangle 生成 正方 形 区 域 ， 边 框 利用 虚线 表示 ， 再 调用 Cantor_2d 绘制 二 维 康 
托 集 图 案 ， 其 中 Cantor_2d 的 输入 参数 zc 是 中 心 点 对 应 的 复数 ，L 表示 缩小 比例 。 执 行 上 述 程序 
输出 图 形 如 图 21.3 所 示 ， 从 中 可 以 看 出 二 维 康 托 集 具 有 分 形 图 形 的 自 相似 性 。 

如 果 在 3X3 分 块 中 填充 如 图 21.4 所 示 标 记 为 “2” “4"、"5"”、"6"” “8” 的 区 域 为 黑色 ， 那 
么 所 得 的 分 形 图 案 可 以 利用 下 面 的 递归 函数 来 绘制 。 














图 21.3 ”二 维 康 托 集 的 图 案 图 21.4 填充 方案 





function Cantor_Square_Fractal(n) 7 
if nargin==0; 


n=4; g% 设置 默认 渤 代 次 数 


enda 


本 本 可 可 533 


MATLAEB 科学 计算 与 可 视 化 仿真 宝 肛 > > > 区 


- x=0;Yy=0; % 设置 中 心 位 置 

hold on; 

Cantor_Saquaretn,x,y,1)) #% 调用 Cantor_Square 函数 绘 分 形 图 

axis square} % 设置 坐标 轴 属 性 

function Cantor_Sauare (mn,X,Y,I) ; 

HW=[-0.5,-0.5,1,1]; sg 设置 相对 位 移 坐 标 

rzr=Lr/3; g% 设置 单元 网 格 的 宽度 

IE n==0; 
rectangle('position',HN*r+[x,y,0,0]，'FaceCcolor',，'k'); % 填充 区 域 

else 
Cantor_Square (n-1,x,y,L/3) ， # 递归 调用 
cantor_Sdquare (n-1,x+rr,y,z/3); sg% 递归 调用 
Cantor_Square (n-1,x,y+rr,r/V3); g$% 递归 调用 
cantor_Square(n-1,x-rr,y,r/3); % 递归 调用 
Cantor_Square{n-1,x,y-rr,r/3); s% 递归 调用 

Enda 


利用 下 面 的 程序 调用 函数 Cantor_Square_Fractal 以 绘制 相应 的 分 形 图 ， 


subplot (131) ;box oniCantor_Square_Fractal(2); % 绘制 分 形 图 
xlabel{('n=2','HorizontalRalignment'，'center','Fontsize',14); % X 轴 标注 
subplot (132) ;box oniCantor_Saquare_Fractal(3); $% 绘制 分 形 图 
xlabel ('n=3','Horizontalalignment','center',，'Fontsize',14); % X 轴 标注 
subplot (133) ;box oniyCantor_Saquare_Fractal(4) ; $% 绘制 分 形 图 
xlabel('n=4'!,'Horizontalalignment'，'center'，'Fontsize',14); % X 轴 标注 


Cantor_Square_Fractal 的 设计 与 前 面 的 Cantor_2d 相似 。 先 选 定 相应 的 区 域 利 用 函数 
rectangle 把 区 域 涂 黑 , 然后 调用 函数 Cantor_Square_Fractal 作 不 同 递归 深度 的 图 案 。 执 行 上 述 程 
序 所 得 图 形 如 图 21.5 所 示 ， 可 见 随 着 递归 深度 n 的 增加 图 案 逐 渐 细 致 。 
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图 21.5“ 康 托 集 的 推广 形式 之 一 


21.1.2 Julia 集 


Julia 集 对 应 着 下 述 映 射 关 系 : 
z=z2+c { 21-2 ) 
其 中 z 是 复 平 面 上 的 点 ，c 是 一 个 复 常数 。Julia 图 案 的 绘制 过 程 可 以 总 结 为 如 下 步骤 。 


选 定 一 个 区 域 并 计算 等 间隔 采样 点 。 

把 所 有 采样 点 带 入 公式 ( 21-2 ) 中 ， 进 行 多 次 迭代 。 

当 某 个 复数 z 的 模 值 大 于 M ( 预定 义 的 一 个 大 数 , 此 时 认为 复数 z 的 模 值 已 经 接近 于 "无 
穷 " ) 时 ， 记 录 相 应 的 友 代 次 数 N 。 将 各 点 对 应 N 值 ， 按 大 小 关系 着 色 即 可 得 到 相应 的 
Julia 图 。 下 面 给 出 绘制 Julia 集 的 函数 文件 Julia.m 的 内 容 。 
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function Julia(x,yv,D,c): 
if nargin==37 


end 


c=0.302-0.577i; $% 设置 参数 c 的 歌 认 值 


Nmax=80; % 设置 最 大 迭代 次 数 

M=100; ”% 设置 一 个 大 数 ， 表 示 无 穷 大 
[xl,yl1]=meshgrid(1inspace(x-L,x+L,512),1inspace(y-D,y+L,512)); 当 计算 采样 点 坐标 值 
N=ones(size(x1l))*Nmax; % 设置 N 的 初 值 

Z=X1+Y1TxIr 外 生成 复数 坐标 点 


for 


end 


k=1 :Nmax: 


Z=Z.^2+cy; g 和 迭代 计算 新 的 z 值 
N(abs(z) >M) =k; $% 找 出 模 值 超 过 M 的 点 


image (1inspace{(x-DL,x+L,512),1inspace(y-DL,y+D,512),N); s# 根据 N 的 数值 绘图 
titlel(['{fNitc=' num2strtc)])7 


上 面 的 函数 Julia 的 调用 格式 为 : 


Julia(x,yv,D)， 
Julia(x,y,D,c); 


参数 说 明 : x 和 y 是 计算 区 域 中 心 的 横 纵 坐 标 。L 表示 正方 形 区 域 的 半边 长 。c 是 Julia 集 





的 复 常 数 取 值 ， 其 默认 值 为 0.302-0.577ie。 当 x, y, L 和 c 取 不 同 数值 时 ,可 以 得 到 不 同 的 Julia 


集 的 图 案 。 

调用 下 面 的 程序 可 以 得 到 如 图 21.6 所 示 的 图 形 。 
subplot (221) ;Julia(0,0,2);axis square;xlabel('(a)'); # 绘制 Julia 集 的 图 案 
subplot (222) ;Julia(0,0.5,0.5)7axis square;xlabel('(b)')， g 绘制 Julia 集 的 图 案 


subplot (223) ;Julia(-0.1,0.5,0.1)7axis squareljxlabellt'tc)'); 绘制 Julia 集 的 图 案 
subplot (224) ;Julia(-0.1,0.5,0.05)7;axis square;xlabelf'(a)'); s$ 绘制 Julia 集 的 图 案 


c=0.3020.577i c=-0.302.0.577i 





人 (tb) 


c=0.302.0577i c=0.302.0.577i 
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图 21.6 Julia 集 的 图 案 
下 面 给 出 一 个 制作 Julia 集 的 用 户 界 面 窗口 的 程序 .利用 这 个 程序 ,可 以 方便 地 改变 前 面 Julia.m 
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文件 中 的 参数 x，y，L 和 c， 并 得 到 相应 的 分 形 图 。 首 先 应 该 把 Julia.m 文件 进行 修改 ， 即 : 


function Julia(x,y,Lvc) 
zzE nargin==37 
c=0.302-0.577iy $% 设置 参数 c 的 默认 值 
end 
Nmax=100; $% 设置 最 大 迭代 次 数 
M=100; 。 % 设置 一 个 大 数 ， 表 示 无 穷 大 
[xl,y1]=meshgrid(linspace(x-L,x+L,512) ,linspace(y-L,Yy+L,512) ); % 计算 采样 点 坐标 值 
N=ones (size(xl))*Nmax; % 设置 N 的 初 值 
z=xl+yl*i; g 生成 复数 坐标 点 
for k=1:Nmax; 
Zz=Z.^2+CG7 $ 和 迭代 计算 新 的 z 值 
N(abs{z) >M) =k; % 找 出 模 值 超过 M 的 点 
end 
I1=image(linspace{(x-L,x+L,512),1inspace(y-L,y+L,512),N); g% 根据 N 的 数值 绘图 
title(['{fNitc)=' num2str(c)]); 
set (I1,，'ButtonDownFcn',['p=get (gca,，''currentpoint''),Julial(p(1),Pp(3),L,c);']); 


s% 设 置 鼠 标 按 下 的 相应 内 容 


、 这 里 增加 了 函数 image 绘制 图 形 时 鼠标 按 下 的 相应 内 容 。 当 按 下 鼠标 左 键 或 者 右 
说 明 键 时 ， 属 性 ButtonDownFcn 里 面 的 语句 将 被 执行 。 


制作 用 户 界面 窗口 的 程序 如 下 : 


c=0.302-0.577i;L=0.5;x=0;Y=0; % 对 参数 赋 默 认 值 

figure('MenuBar','Figure'，'Position',[76 133 541 417]) ; # 设置 图 形 窗口 的 位 置 和 大 

小 

set (gcf, 'Name','Generation of Julia set'，'NumberTitle','off'); % 设 置 图 形 窗口 名 称 

&Rl1=axes('Position',[0.1,0.1,0.6,0.7]);box on; % 生成 坐标 轴 

T1=uicontrol (gcf,'style','text'，'unit'，'normalized'，'pPosition'， 
[0.24,0.9,0.04,0.05]，'Backgroundacolor' [0.9 0.9 0.9],..， 
'ForegroundCcolor'，'b''fontsize',10,'string'y 'c = 1); g% 标注 文字 

E2=uicontrol(gcf,'style"，'edit' unit'， normalized'，'Position'， 


[0.29,0.9,0.18,0.05], "Backgroundcolor'，'w'，'Foregroundcolor '，'b'，'fontsize',10 


Callback'，'c=get (E2,''String5) ;c=str2num(C)IJuliatp(1l),Pp(3) DCc) 7 )7 生成 
文本 输入 框 
set (RAR1,，'ButtonDownFcn',，['p=get{(RA1,，''currentpoint'')，'，.. 
'Julia(p(1),p(3),D,c);axes(R1);'])) $% 设置 坐标 轴 属 性 、 
S1=uicontrol(gcf,'style','slider'，'unit'，'normalized'， "Position'， 
[0.8,0.1,0.03,0.8],'Backgroundacolor'，'w'，'Foregroundcolor',，'b'，'fontsize',10,， 
'SliderStep', [0.01,0.01]，*TooltipString''D=0' Value',0.5，'Callback'， 


['L=get(S1,' Value'')yset(S1， TooltipString' [LE= num2str(L) ]) ;Julia(P(1I) 
,p{3),L,c);]); gs 生成 滑动 条 用 于 控制 L 的 数值 


在 如 图 21.7 所 示 的 坐标 轴 内 单 击 一 点 就 能 以 该 点 的 横 纵 坐标 为 中 心 绘制 Julia 集 ( 如 图 21.8 
所 示 )。 在 坐标 轴 上 面 的 编辑 框 中 可 以 输入 参数 c 的 取 值 。 通 过 滑动 条 可 以 改变 参数 |L 的 数值 。 
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21.8 生成 的 Julia 集 


与 Julia 集 相似 的 是 Mandelbrot 集 ，Mandelbrot 集 的 生成 过 程 也 是 通过 和 迭代 关系 z= zz+c， 
不 同 的 是 z 和 < 都 是 变化 的 ， 它 们 在 相同 的 范围 内 取 值 。 当 某 次 ( 比如 ) 迭代 时 ， 某 点 z 的 模 值 
大 于 某 个 数 M ， 即 把 这 个 位 置 的 函数 值 用 迭代 次 数 大 代替 ， 进 行 有 限 次 迭代 ， 可 以 得 到 一 个 关于 
和 迭代 次 数 的 函数 ， 这 个 函数 对 应 的 图 形 就 是 Mandelbrot 集 。 这 里 取 参 数 M 等 于 2，:z 的 迭代 初 什 
统一 取 值 为 1。 当 z 的 模 值 大 于 M 时 把 对 应 位 置 的 c 和 z 值 设置 为 0， 这 样 在 迭代 中 这 些 已 经 达到 
M 的 点 数值 将 始终 等 于 0 ( 不 可 能 再 次 达到 M )。 下 面 给 出 Mandelbrot 集 的 绘制 程序 。 


function M_Set (X,Y, 工 ) ; 
% 生 成 mandelbrot 分 形 图 
if nargin==37? 


c=0.302-0.577i; % 设置 参数 c 的 球 认 值 


enda 
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员 全 1 后 (有 458 全 512),1Linspace(y-L,y+L,512)); % 在 指定 范围 内 离散 
样 
C=X1+iwy1; % 生成 复数 c 对 应 的 矩阵 
z=zZeros(size(c))) #% 设置 z 的 初 值 
N=100; % 最 大 迭代 次 数 
S=ones (size(c))*N; g% 生成 记录 迭代 次 数 k 的 和 矩 阵 ， 其 初 值 设 置 为 最 大 迭代 次 数 
M=2; gs 对 参数 M 赋值 
for Kk=1:N; 
z=z.^2+c; % 进行 迭代 
S(abs(z)>2)=k; gs 找 出 z 的 模 值 大 于 KM 的 位 置 并 赋值 为 k 
c(abs(z)>2)=0; % 把 > 的 模 值 大 于 XM 的 位 置 相应 的 c 值 设置 为 0 
z(abs(z)>2)=0; % 把 z 的 模 值 大 于 XM 的 位 置 相应 的 c 值 设置 为 0 


end 
II=image(1linspace(x-L,x+L,512),1inspace(y-L,ytL,512),S); sg 绘图 

set (II,，'ButtonDownFcn'",，['p=get (gca,' currentpoint' '),M_set(x,y,L);']); $% 设置 鼠 
标 按 下 的 相应 内 容 


上 面 的 函数 M_set 可 以 绘制 指定 区 域 的 Mandelbrot 集 ， 其 调用 格式 为 ， 


M_Set (X,Y,) : 
参数 说 明 : x 和 y 表示 考虑 范围 的 中 心 点 横 纵 坐标 。L 是 方形 区 域 的 半边 长 。 
利用 下 面 一 段 程序 可 以 得 到 不 同 范围 的 Mandelbrot 集 。 





subplot (221) ;M_set{(0,0,2);axis square;xlabel('(a)'): gs 绘制 mandelbrot 集 


的 图 案 
Subplot (222);M_set(0.1,-0.8,0.5)7axis Squareyxlabel('(b)'); % 绘制 mandelbrot 


集 的 图 案 
subplot (223) 7;M_set(0.15,-0.6,0.125);axis square;xlabel('(c)'); $ 绘制 manaelbrot 


集 的 图 案 
subplot (224) ;M_set(0.145,0.65,0.03)7yaxis square;xlabel('(dj'); ss 绘制 mandelbrot 


集 的 图 案 

前 面 定 义 M_set 可 以 画 出 不 同 范围 内 的 Mandelbrot 集 , 这 里 即 调 用 函数 M_set 绘制 不 同 范围 
内 的 Mandelbrot 集 。 缩 小 函数 M_set 的 输入 参数 L， 可 以 得 到 局 部 区 域 的 放大 效果 。 执 行 上 述 程 
序 输出 图 形 如 图 21.9 所 示 ， 从 图 中 可 以 看 出 Mandelbrot 集 可 以 得 到 非常 丰富 的 图 案 。 
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图 21.9 不 同 范围 内 的 Mandelbrot 集 图 形 
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类 似 于 前 面 介 绍 的 Julia 集 ， 可 以 制作 一 个 用 户 界 面 来 生成 不 同 范 围 内 的 Mandelbrot 集 。 通 过 


界面 窗口 显示 其 中 Mandelbrot 集 的 细节 部 分 ， 可 以 得 到 不 同样 式 的 美丽 图 案 。 


21.1.3 Koch 曲线 


美国 生物 学 家 Aristid Lindenmayer 在 研究 植物 形态 的 进化 与 构造 时 ， 于 1968 年 提出 了 一 种 描 
述 方法 ， 现 在 把 这 种 方法 称 为 上 L 系统 。1984 年 Smith 首次 将 上 L 系统 引入 到 计算 机 图 形 学 领域 。 

L 系统 是 使 用 几 个 特殊 符号 描述 分 形 图 形 的 描画 过 程 ， 然 后 把 这 些 字符 转化 为 分 形 图 形 。 其 建 
立 字符 串 的 过 程 是 , 设 定 替 代 字 符 串 的 单元 及 替换 规则 ; 然后 对 其 中 的 某 些 字符 串 按照 给 定 的 规则 


进行 替换 。 下 面 介绍 一 些 特殊 字符 对 应 的 意义 。 
F: 以 当前 方向 前 进一步 ， 并 画 线 。 
f: 以 当前 方向 前 进一步 ， 不 画 线 。 
+: 逆 时 针 旋 转 C 角度 。 
-: 顺 时 针 旋 转 8 角度 。 
[: 将 当前 信息 压 栈 。 
]: 把 状态 信息 以 “ 剪 切 ”的 方式 从 栈 中 取出 。 
包 : 初始 规则 。 
尺 : 替换 规则 。 


上 面 介绍 的 是 一 般 的 L 系统 的 定义 。 这 里 考虑 Koch 曲线 对 应 的 L 系统 ， 具 体 可 以 写 为 : 


包 :F 
0O=60 
玉 :F=>F+FF+F 


首先 把 初始 规则 包 7 中 的 F 按照 替换 规则 尺 换 为 F+F--F+F， 得 到 一 个 新 的 字符 串 他 ， 然 后 按 
替换 规则 替换 字符 串 由 中 的 F， 得 到 迪 ， 依 此 类 推 ， 计 算 到 我 们 设 定 的 步 数 。 最 后 我 们 根据 最 终 


的 字符 串 wm ， 按 照 每 个 字符 的 意义 把 加 转 化 为 分 形 图 。 
下 面 给 出 利用 L 系统 的 方法 绘制 Koch 曲线 的 例子 。 


omega='F'; $% 初 值 规则 
R='F+F--F+F') % 替换 规则 
delta=pi/3; g# 旋转 角度 
到 = 让 g 初始 位 置 
RA=0; sg 初始 时 的 角度 
N=4; sg 替换 规则 的 次 数 
for Kk=1:N; 
omega=strrep (omega, 'F',R); #% 用 R 对 符号 F 进行 替换 
end 
hold ony'; 
for k=1:1ength (omega) ; 
f Strcmp (Omega (k)，'F') 
plot {[z,z+exp(ixa)],'k'); g% 如 果 遇 到 字符 串 了 则 画 一 线段 
Z=Z+eXpP (ix 有 ) ; 
elseif stzrcmp (omega (k)，'+') 7 
RaA=R+delta; g% 更 换 角 度 值 
elseif Sttzcmp (omega(k)，'-') 
aA=aA-delta; $% 更 换 角度 值 


enQ 
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endQ 
axiSs equal; box on 

首先 根据 初始 规则 和 替换 规则 得 到 最 终 的 字符 串 , 然后 按照 最 终 字 符 串 中 每 个 字符 的 含义 进行 
绘图 。 执 行程 序 得 到 的 图 形 如 图 21.10 所 示 ，Koch 曲线 的 自 相似 性 很 容易 看 出 来 。 

为 方便 起 见 ， 把 上 面 程序 中 根据 字符 串 绘图 部 分 的 程序 保存 为 Ls_draw 文件 ( 其 保存 在 光盘 的 
\Ch21 文件 夹 下 )， 在 得 到 规则 的 字符 串 后 可 以 直接 调用 函数 Ls_draw 来 画图 ， 该 函数 调用 格式 为 : 


Ls_dqraw(z,R，omega，deltal) 


参数 说 明 : z 是 初始 时 绘图 起 点 的 坐标 ， 其 为 一 个 复数 值 。A 是 初始 时 的 角度 。omega 是 规则 
对 应 的 字符 串 。delta 是 旋转 角度 。 
如 果 把 初始 时 的 规则 写 为 “F--F--F--"， 则 可 以 得 到 Koch 雪花 ， 相应 程序 如 下 


omega='F--F--F--') g% 初 值 规则 
R='F+EF--F+E'; % 蔡 换 规则 
delta=pi/3;  #% 旋转 角度 
z=i; gg 初始 位 置 
&R=0; s% 初始 时 的 角度 
N=4; % 替换 规则 的 次 数 “ 
for Kk=1:N; 
omega=strrep(omega, 'F',R); $% 用 R 对 符号 了 进行 替换 
end 
Ls_draw(z,aA,omegaydelta); s# 根据 规则 绘图 


这 里 以 一 个 封闭 的 三 角形 ( 即 规则 'F--F--F--' ) 作为 Koch 雪花 的 初始 输入 规则 ， 然 后 多 次 利用 
替换 规则 得 到 一 个 字符 串 , 通过 调用 函数 Ls_draw 对 所 得 字符 串 绘图 而 得 到 Koch 雪花 的 图 案 。 输 
出 图 形 如 图 21.11 所 示 ， 可 以 看 出 Koch 曲线 就 是 由 3 个 Koch 曲线 按 一 定 的 角度 组 合 而 成 的 。 下 
面 给 出 上 系统 所 使 用 的 不 同 规则 ， 如 表 21.1 所 示 。 
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图 21.10 ”Koch 分 形 图 图 21.11 Koch 雪花 
表 21.1 上 系统 的 规则 
编号 旋转 角度 9 初始 字符 串 忆 替换 规则 民 
A 60? F 二 十 F 十 十 F F+F--F+F 
B 90? F-F-F-F F-F+F+FFF-F-F+F 
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( 续 表 ) 
编号 旋转 角度 9 初始 字符 串 替换 规则 尺 
C 90? F+F+F+F+ FF 十 F+F 十 F 十 F 十 F-F 
D 90" F-F-F-F FF-F-F-F-FF 


相应 的 绘图 程序 在 光 盘 \Ch21 文件 夹 中 的 Ls_draw_test,m 文件 中 ， 生 成 的 图 形 如 图 21.12 所 
示 。 读 者 可 以 设计 其 他 的 规则 ， 利 用 L 系统 绘制 相应 的 分 形 图 形 。 





图 21.12 上 系统 绘制 的 分 形 图 形 


21.2 和 迭代 函数 系统 


本 章 前 面 介绍 的 分 形 图 形 都 是 使 用 线段 作为 基本 单元 绘制 而 成 的 ， 本 节 的 方法 主要 是 用 “点 ” 
把 分 形 图 “点 ”出 来 ， 所 用 的 方法 叫做 迭代 函数 系统 。 


21.2.1 基本 定义 


迭代 函数 系统 ( lterated Function System， 缩 写 为 IFS ) 是 根据 仿 射 变 换 而 来 的 ， 其 中 仿 射 变 
换 的 数学 表达 式 为 : 

了 风 ar+cy+e oz| -| 加 园区 图 了 四 

y=px+ 吃 + 了 yj Le dy LA 区 小学 

其 中 大 和》 是 变换 前 的 坐标 ，x" 和 "是 变换 后 的 坐标 ，4，z ，c ，d ，e 和 上 是 变换 的 系 
数 。 这 里 用 短 阵 的 形式 便于 计算 。 在 变换 表达 式 里 面体 现 了 缩放 、 旋 转 和 平移 ， 如 果 想 绘制 某 个 特 
殊 的 分 形 ， 读 者 应 该 找 出 分 形 的 自 相 似 特点 ， 通 过 相似 性 确定 仿 射 变换 的 系数 。 

了 绘制 复杂 的 图 形 ， 需 要 多 个 仿 射 变换 ， 即 仿 射 变换 集 {@w, } 。 对 应 于 每 个 仿 射 变换 在 绘图 

中 都 有 一 个 固定 的 被 选中 几率 ， 被 选中 则 被 调用 。 

以 Sierpinski 垫 片 为 例 ， 确 定 它 的 仿 射 变换 的 系数 。 在 Sierpinski 垫 片 中 主要 由 3 个 部 分 作 递 
归 而 得 到 ， 所 以 需要 建立 3 个 仿 射 变换 {W,@,d } 。 同 时 3 个 部 分 的 形状 是 完全 一 样 的， 只 是 当 
前 层 的 边 长 等 于 前 一 层 边 长 的 一 半 ， 所 以 了 为 : 
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而 3 个 部 分 的 中 心 位 置 可 以 这 样 表示 ，(0,0) ，(0,1) 和 (0.5,V312) ,这 3 点 表示 平移 量 。 
所 以 对 应 的 3 个 仿 射 变换 的 系数 和 几率 的 数值 如 表 21.2 所 示 ， 相 应 的 MATLAB 程序 如 下 。 


N=20000; $% 迭代 次 数 
p=1/3;  $ 设置 几率 值 
q=2/3;  % 设置 几率 值 
e=[1,0]; s# 常数 项 
f=[0.5,sqrt(3)/2]; s% 常数 项 
pxy=zeros (N,2); #% 初始 化 坐标 数据 
zr=rand{(1,N-1); sg% 生成 随机 数 
for k=1:N-1; 
if (k) <p 
pxYy (k+1, : ) =pxy (k, :)/2) $% 按 迭 代 式 生成 
elseif rz(k)<G; 
PxYy (k+1, : ) =pxy (k, :) /2+e; $% 按 失 代 式 生成 
else 
Pxy (k+1,:) =pxy (k, :) /2+f; g 按 迭 代 式 生成 
end 
end 
P=complex(pxy{(:,1),pxy(:,2)); 8% 把 数据 转化 为 复数 
图 


plot(P,'k.'，'markersize',2)) 多 


根据 表 21.2 进行 多 次 循环 计算 ， 在 每 一 步 循环 中 根据 随机 数 取 值 的 大 小 选择 计算 式 计 算 影 射 
点 。 通 过 多 次 循环 得 到 一 组 数据 ， 然 后 把 数据 以 点 的 方式 绘制 出 来 就 可 以 得 到 Sierpinski 垫 片 。 


表 21.2 Sierpinski 垫 片 的 IFS 参数 


i ali bfi cli di efi 位 i 
1 0.5 0 0 0.5 0 0 1/3 
2 0.5 0 0 0.5 1 0 1/3 
3 0.5 0 0 0.5 0.5 sin(Pl3) 1/3 


执行 上 述 程序 输出 图 形 如 图 21.13 所 示 , 尽管 是 一 个 随机 过 程 , 但 最 后 还 是 得 到 了 规则 的 图 形 ， 
其 中 的 规律 可 以 认为 是 , 初始 一 个 涂 黑 的 正三 角形 , 每 次 切 去 正三 角形 中 间 的 一 个 小 正三 角形 ,多 
次 下 去 而 得 到 了 Sierpinski 热 片 。 
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图 21.13 Sierpinski 垫 片 图 案 
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在 迭代 函数 系统 中 的 和 代 次 数 N, 读者 还 可 以 改变 它 的 数值 ， 当 N 取 值 较 大 时 数据 
点 的 数目 多 ， 图 形 会 变 得 清晰 。 


下 面 给 出 利用 迭代 函数 系统 绘制 Koch 曲线 的 方法 ， 相 关 参 数 如 表 21.3 所 示 。 
表 21.3 Koch 曲线 的 迭代 函数 系统 参数 





j 己 b C d 已 f 

1 1/3 0 0 1/3 0 0 1/4 
2 1/6 1/sqrt(12) -1/sqrt(12) 1/6 1/3 0 1/4 
3 1/6 -1/sqrt(12) 1/sqrt(12) 1/6 1/2 1/sqrt(12) 1/4 
4 1/3 0 0 1/3 2/3 0 1/4 





下 面 给 出 利用 迭代 函数 系统 绘制 分 形 图 形 的 一 个 函数 ， 其 内 容 如 下 : 


function IFS_draw(M,DP); 
N=30000; % 迭代 次 数 
for k=1:length(p); % 生成 映射 矩阵 al,a2,... 
eval(['a',num2str (k)，'=reshape(M(' ,num2str(k),'，:),2,3)7;])) 
end 
xy=zeros(2,N);  #% 设置 迭代 和 珑 阵 初 值 
pp=meshgrid(p); s# 生成 网 格 矩 阵 
PPp=tril(pp); % 取 上 三 角 和 矩阵 
pp=sum(pPp,2) ; % 对 行 向 量 求 和 ， 从 而 得 到 几率 的 累加 结果 
for k=1:N-1; 
a=rand-pp;  s 计算 随机 数 和 几率 向 量 的 差 值 
d=find(a<=0) ;sg 找 出 满足 几率 条 件 的 位 置 


xy {(:,k+l)=eval(['a',num2str(Q(1))，'(:，,1:2)'])*xy(:,k)+eval(['a'vnum2str(d(1))， 
'(:，3) '])， % 计算 迭代 点 

end 。 

P=complex(xy(1,:),xy(2,:)); g% 生成 复数 点 

pl1ot (P, 'k.'，'markersize',2)) *# 画图 

axis equal; 8% 设置 坐标 轴 属 性 


函数 IFS_draw 的 调用 格式 为 : 


IFS_daraw(M,DP)， 


参数 说 明 : M 为 映射 矩阵 的 系数 以 及 常数 项 部 分 组 成 的 矩阵 ， 如 表 21.3 中 数值 阵列 对 应 的 矩 
阵 。p 是 一 个 几率 向 量 ， 其 顺序 应 该 和 矩阵 M 中 映射 输入 顺序 一 致 
下 面 利用 函数 IFS_draw 来 绘制 Koch 曲线 ， 相 关 的 语句 为 
M=[1/3,0,0,173，0,0;..。 
1/6,1/sqxrt(12)，,-1/sdrt (12),1/6,173,0;..，。 
176,-1Vsqrt (12),1/sGrt(12),1/6,1/2,1/sdGrt (12)).，,。 
1/V3,0,0,1/3,2/3,0]; *% 迭代 矩阵 M 
p=ones(1,4)/4; $ 几率 向 量 
IFS_draw(M,p); # 调用 函数 绘图 
使 用 迭代 函数 系统 绘制 Koch 曲线 时 ， 先 定义 映射 矩阵 系数 矩阵 M,， 同时 定义 对 应 的 几率 向 量 
p,， 然 后 调用 函数 IFS_darw 绘制 Koch 曲线 。 执 行 上 述 程序 输出 图 形 如 图 21.14 所 示 ， 其 图 案 与 前 
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面 利 用 上 L 系统 绘制 的 Koch 曲线 很 相似 。 
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21.14 ”利用 迭代 函数 系统 绘制 的 Koch 曲线 
下 面 给 出 一 个 六 角 雪 花 的 迭代 函数 参数 ， 如 表 21.4 所 示 。 


表 21.4 六 角 雪 花 的 迁 代 函 数 系统 参数 





j 己 b C d e 下 p 

1 1/3 0 0 1/3 cos(Pi3) Sin(pi/3) 1/6 
2 1/3 0 0 1/3 cos(2*pi/3) sin(2*pi/9) 1/6 
3 1/3 0 0 1/3 cos(pi) sin(pij) 1/6 
4 1/3 0 0 1/3 cos(4*pi/3) ”Sin(4*Pi/3) 1/6 
5 1/3 0 0 1/3 Cos(5*pi/3) ”sin(5*pl/3) 1/6 
6 1/3 0 0 1/3 1 0 1/6 


a=1/3; $% 比例 系数 

RAR=pi/3; g% 角度 间隔 

M=[a,0,0,a,cos(RA) ,sin(RA) 7 ... 
a0,0,acos(2*A) ,Sin(2*RA)7..。 
av0,0,a,cos(3*RA) ,Sin(3*xRA) 7; .，。 
av,0,0,a,cos(4*A) ,Sin(4*RA) 7 .，。 
0,0,acos(5*RA) ,Sin(5*RA)7.。.- 
ay 0,0,a,1,0]; $% 和 迭代 矩阵 

p=ones(1,6)/6; # 几率 向 量 

IFS_draw(M,p); % 调用 函数 绘图 

axis image 

Sekt (gcf,，'Color'，'W')， 


使 用 迭代 函数 系统 绘制 六 角 雪 花 时 ， 首 先 定义 映射 矩阵 系数 ( 其 在 表 21.4 中 给 出 ) 算 阵 M， 
同时 定义 对 应 的 几率 向 量 p ( 其 数据 在 表 21.4 最 后 一 列 )， 然 后 调用 函数 IFS_darw 绘制 六 角 雪 花 。 


执行 程序 输出 图 形 如 图 21.15 所 示 ， 从 中 可 以 看 出 分 形 图 形 的 自 相似 性 特点 。 
21.2.2 分形 树叶 


下 面 给 出 两 个 利用 迭代 函数 系统 绘制 树叶 的 例子 。 第 1 片 树叶 和 迭代 函数 系统 的 参数 如 表 21.5 


所 示 。 
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图 21.15 ”利用 迭代 函数 系统 生成 的 雪花 图 案 
表 21.5 树叶 1 迭代 函数 系统 的 参数 





编号 有 b C d e f 

1 0.65 0 0 0.65 0.2 0.4 

2 0.55 0 0 0.55 0.2 0.135 

3 0.38 -0.28 0.28 0.38 0.3 0.4 

4 0.38 0.28 -0.28 0.38 0.3 0.1 
其 中 所 有 几率 为 25。 


为 了 得 到 更 清晰 的 图 案 ， 在 绘制 分 形 树叶 的 时 候 把 IFS_draw.m 文件 中 的 迭代 次 数 N 改 为 
300000， 其 他 参数 不 变 。 相 应 的 MATLAB 程序 如 下 : 


M=[0.65,0,0,0.65,0.2,0.4;... 
0.55,0,0,0.55,0.2,0.135;... 
0.38,-0.28,0.28,0.38,0.3,0.4;... 
0.38,0.28,-0.28,0.38,0.3,0.1]; g% 生成 系数 矩阵 M 

p=ones(1,4)/4; sg 生成 几率 向 量 

IFS_draw(M,P); # 调用 函数 绘图 

axis image; gs 设置 坐标 轴 属 性 


与 前 面 绘制 Koch 曲线 和 六 角 雪 花 相似 ， 首 先 定义 映射 矩阵 系数 ( 其 在 表 21.5 中 给 出 ) 矩阵 
M， 同 时 定义 对 应 的 几率 向 量 p ( 其 数据 在 表 21.5 最 后 一 列 )， 然 后 调用 函数 IFS_darw 绘制 分 形 
树叶 。 执 行 上 述 程序 所 得 的 树叶 图 形 如 图 21.16 所 示 ， 该 图 案 整 体 看 上 去 很 像 树叶 。 
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图 21.16 ”利用 和 迭代 函数 系统 生成 的 树叶 
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下 面 给 出 另 一 种 树叶 的 迭代 函数 系统 的 参数 , 如 表 21.6 所 示 。 
表 21.6 树叶 2 迭代 函数 系统 的 参数 





编号 引 b 6 d e f p 

1 0 0 0 0.15 0 0 0.08 

2 0.83 -0.02 0.04 0.83 0 2 0.8 

3 0.2 0.22 -0.3 0.3 0 2 0.096 

4 -0.14 0.24 0.31 0.27 0 0.5 0.096 
具体 实现 程序 如 下 : 


M=[0,0,0,0.15,0,0.2;... 
0.83,-0.02,0.04,0.83,0,2;... 
0.2,0.22,-0.3,0.3,0,2;... 
-0.14,0.24,0.31,0.27,0,0.5]; $ 生成 系数 矩阵 MX 

p=[0.08,0.8,0.096,0.096]; g 生成 几率 向 量 

IFS_draw(M,p); $% 调用 函数 绘图 

axis imagey g% 设置 坐标 轴 属 性 


执行 上 述 程序 所 得 的 图 形 如 图 21.17 所 示 。 与 图 21.16 不 同 的 是 ， 在 图 21.17 中 含有 叶柄 。 





图 21.17 ”迭代 函数 系统 生成 的 树叶 


21.2.3 ”分形 树 
本 小 节 介绍 利用 迭代 函数 方法 绘制 树木 图 案 的 实例 。 树 木 1 的 迭代 函数 系统 参数 如 表 21.7 所 


表 21.7 树木 1 的 迭代 函数 系统 参数 


编号 | b C d e f p 

1 -0.64 0 0 0.5 0.86 0.25 0.06 
2 -0.04 -0.47 0.07 -0.02 0.49 0.51 0.22 
3 0.2 0.33 -0.49 0.43 0.44 0.25 0.23 
4 0.46 -0.25 0.41 0.36 0.25 0.57 0.24 
5 -0.06 0.45 -0.07 -0.11 0.59 0.1 0.25 
相应 的 MATLAB 程序 如 下 : 
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M=[-0.64,0,0,0.5,0.86,0.25;... 
-0.04,-0.47,0.07,-0.02,0.49,0.51;... 
0.2,0.33,-0.49,0.43,0.44,0.25;... 
0.46,-0.25,0.41,0.36,0.25,0.57;... 
-0.06,0.45,-0.07,-0.11,0.59,0.1]; % 生成 系数 矩阵 

p=[0.06,0.22,0.23,0.24,0.25]; $% 生成 几率 向 量 

IFS_draw(M,P); $% 调用 函数 绘图 

axis image; # 设置 坐标 轴 属 性 


与 前 面 绘 制 Koch 曲线 和 六 角 雪 花 相 似 ， 首 先 定 义 映射 矩阵 系数 ( 其 在 表 21.7 中 给 出 ) 矩阵 
M 和 几率 向 量 p ( 其 数据 在 表 21.7 最 后 一 列 )， 然 后 调用 函数 IFS_darw 绘制 树木 图 案 。 执 行 上 述 
程序 输出 图 形 如 图 21.18 所 示 ， 该 图 很 像 春 天 刚刚 发 芽 的 树木 。 
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图 21.18 ”和 迭代 函数 系统 生成 的 树木 
树木 2 的 迭代 函数 系统 参数 如 表 21.8 所 示 。 


表 21.8 树木 2 的 迭代 函数 系统 参数 


编号 a b C d e f p 

1] 0.06 0 0 0.6 0 0 0.1 
2 0.04 0 0 -0.5 0 1 0.1 
3 0.46 -0.34 0.32 0.38 0 0.6 0.1 
4 0.48 0.17 -0.15 0.42 0 1 0.23 
5 0.43 -0.26 0.27 0.48 0 1 0.23 
6 0.42 0.35 -0.36 0.31 0 0.8 0.24 

相应 MATLAB 程序 如 下 ， 


M=[0.06,0,0,0.6,0,0;... 
0.04,0,0,-0.5,0,17;.。.。。 
0.46,-0.34,0.32,0.38,0,0.6)... 
0.48,0.17,-0.15,0.42,0,17...。 
0.43,-0.26,0.27,0.48,0,17... 
0.42,0.35,-0.36,0.31,0,0.8]; #% 生成 系数 和 矩阵 M 

p=[0.1,0.1,0.1,0.23,0.23,0.24]; s# 生成 几率 向 量 

IFS_draw(M,p); $% 调用 函数 绘图 

axis imagey g% 设置 坐标 轴 属 性 
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与 前 面 绘制 Koch 曲线 和 六 角 雪 花 相 似 ， 首 先 定 义 映 射 矩阵 系数 { 其 在 表 21.8 中 给 出 ) 和 矩阵 
M 和 几率 向 量 p ( 其 数据 在 表 21.8 最 后 一 列 )， 然 后 调用 函数 IFS_darw 绘制 树木 图 案 。 执 行 上 述 
程序 输出 如 图 21.19 所 示 的 图 形 ， 该 图 案 很 想 一 株 夏天 的 树木 ， 长 有 茂密 的 树叶 。 
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图 21.19 利用 迭代 函数 系统 绘制 的 树木 


21.2.4 龙 曲 线 


本 小 节 来 讨论 外 形 像 “ 龙 ”的 分 形 图 案 ， 它 们 可 以 利用 IFS 绘制 。 下 面 给 出 龙 曲 线 的 迭代 函数 
系统 的 参数 ， 如 表 21.9 所 示 。 


表 21.9 龙 曲 线 的 迭代 函数 系统 参数 





编号 a b 克 d 日 f 
1 0.5 0.5 -0.5 0.5 1 0 
2 0.5 0.5 -0.5 0.5 -1 0 


其 中 编号 1 和 编号 2 的 几率 都 是 50%。 相 应 的 MATLAB 程序 如 下 : 


M=[0.5,0.5,-0.5,0.5,1,0;..， 
0.5,0.5,-0.5,0.5,-1,0]; $% 生成 系数 和 矩阵 K 

p=[0.5,0.5]; sg 生成 几率 向 量 

IFS_draw(M,p); $# 调用 函数 绘图 

axis imagey; s 设置 坐标 轴 属 性 


与 前 面 绘制 Koch 曲线 和 六 角 雪 花 相 似 ， 首 先 定义 映射 矩阵 系数 ( 其 在 表 21.9 中 给 出 ) 矩阵 
M 和 几率 向 量 p ( 其 数据 在 表 21.9 最 后 一 列 )， 然 后 调用 函数 IFS_darw 绘制 龙 曲线 图 案 。 输 出 的 
图 形 如 图 21.20 所 示 ， 图 案 看 起 来 像 长 有 多 只 头 的 龙 。 
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图 21.20 ”利用 迭代 函数 系统 绘制 的 龙 曲 线 图 
下 面 再 给 出 一 个 龙 曲 线 的 例子 ， 相 关 的 参数 如 表 21.10 所 示 。 


表 21.10 龙 曲 线 的 迭代 函数 系统 参数 





编号  a b C d e f p 
1 0.8 0.2 0.3 0.9 1.9 0.1 0.7 
2 0.1 0.5 0.5 -0.4 0.8 7 0.3 


相应 的 MATLAB 程序 如 下 : 


M=[0.8,-0.2,0.3,0.9,-1.9,-0.1;..， 
0.1,-0.5,0.5,-0.4,0.8,7]; % 生成 系数 矩阵 M 


p=[0.7,0.3]; g 生成 几率 向 量 
IFS_draw(M,Dp); g% 调用 函数 绘图 
axis image:; g# 设置 坐标 轴 属 性 

该 迭代 函数 系统 只 有 两 个 映射 关系 条 件 。 与 前 面 绘制 Koch 曲线 和 六 角 雪 花 相 似 ， 首 先 定 义 映 
射 矩 阵 系数 ( 其 在 表 21.10 中 给 出 ) 答 阵 M 和 几率 向 量 p ( 其 数据 在 表 21.10 最 后 一 列 )， 然 后 调 
用 函数 IFS_darw 绘制 龙 曲 线 图 案 。 执 行 上 述 程序 输出 图 形 如 图 21.21 所 示 ， 该 图 案 很 像 一 条 扭曲 


的 龙 。 

















图 21.21 利用 迭代 函数 系统 绘制 的 龙 曲 线 
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通过 前 面 的 介绍 , 读者 可 以 发 现 利用 迭代 函数 系统 可 以 绘制 不 同类 型 的 分 形 图 案 。 迭代 函数 系 
统 中 的 映射 关系 就 如 同 画家 脑海 中 的 思绪 ， 利 用 这 些 映射 随机 迭代 就 可 以 用 MATLAB 程序 绘制 出 
美妙 的 图 案 。 读 者 可 以 自己 设计 一 些 映 射 关系 来 绘制 丰富 的 图 案 。 在 使 用 兴 代 函数 系统 时 ， 虽 然 迭 
代 函 数 系统 的 计算 量 比 前 面 提 到 的 递归 算法 和 上 |L 系统 大 , 但 是 它 的 时 间 主 要 是 花 在 计算 数据 上 , 相 
对 绘图 的 时 间 较 短 ， 计 算 后 使 用 plot 函数 一 次 就 可 以 了 。 在 迭代 过 程 中 ， 牺 牲 了 计算 量 ， 但 换取 
了 对 分 形 图 细节 的 描绘 ， 使 得 分 形 图 更 加 逼真 。 


21.3 递归 算法 


前 面 介绍 了 和 迭代 算法 绘制 分 形 图 的 方法 , 本 节 介 绍 利用 递归 算法 绘制 分 形 图 。 分 形 图形 的 主要 
特点 是 自 相似 性 ,而 递归 算法 就 是 按 某 一 规则 进行 嵌 套 来 绘制 图 形 。 可 以 使 用 不 同 的 基 元 图 形 来 递 
归 。 递 归 的 一 般 结构 如 下 ， 


function recursion 人 (mn): 
Tecursion (m) ; 


实质 上 , 递归 算法 是 根据 计算 机 中 “ 压 栈 ”和 “出 栈 ” 的 概念 ， 重 复 地 使 用 某 规 则 来 绘制 图 形 。 
“ 压 栈 ”是 停止 目前 的 操作 ， 记 录 当 前 信息 ， 再 去 完成 更 低 一 层 的 操作 ;“ 出 栈 ” 是 结束 在 该 层 的 
操作 回 到 更 高 的 层 ， 开 始 因为 “ 压 栈 ” 而 中 断 的 操作 。 这 样 的 程序 结构 是 一 种 特殊 的 结构 ， 可 以 大 
大 缩短 程序 的 长 度 。 对 于 初次 接触 这 个 算法 的 人 来 说 是 比较 难 理解 的 。 分 形 的 自我 相似 、 复 制 和 揪 
套 ， 很 容易 和 递归 算法 结合 起 来 ， 很 多 的 经 典 分 形 图 形 都 可 以 使 用 递归 算法 计算 。 


21.3.1 分 形 树 木 


前 面 一 节 介 绍 了 树木 的 迭代 函数 系统 的 画 法 , 这 里 给 出 利用 递归 方法 绘制 树木 的 例子 。 通 过 几 
条 线段 的 递归 就 可 以 得 到 一 些 图 案 酷 似 树 或 者 树叶 的 图 形 ， 下 面 介绍 一 些 画 法 。 

用 递归 算法 对 线段 CD，CB，CE，BF 和 BG 用 图 21.22 中 的 左 图 进行 递归 就 可 以 得 到 右 侧 的 
图 形 , 程序 参见 光盘 中 \Ch21 文件 夹 下 的 fractals_tree_2.m 文件 ,在 命令 窗 输入 以 下 的 代码 ,就 可 
以 得 到 图 21.22 右 图 所 示 的 图 形 。 
subplot (121) 

[zl,z2]=fractals_tree_2(2+iv，2+4Tv,I)， 
Subplot (122) 
[zl,ZzZ2]=fractals_tree_2(2+i,2+41,5)7 

另外 使 用 图 21.23 左 侧 的 生成 元 进行 递归 就 可 以 得 到 右 侧 图 形 ， 具 体 程序 可 以 参阅 光 盘 中 
\Ch21 文件 夹 下 的 fractals_tree3,m 和 fractals_tree_3.m 程序 文件 。 读 者 可 以 改变 其 中 的 角度 ， 再 
观察 结果 的 变化 。 
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图 21.22 递归 算法 绘制 的 分 形 树 图 21.23 分形 树 的 生成 元 及 其 递归 结果 


在 图 21.24 中 , 使 用 两 个 递归 方式 与 图 21.22 不 同 就 会 得 到 完全 不 同 的 结果 ,此 时 的 结果 很 像 
树叶 。 在 图 21.24 中 只 是 进行 了 5 层 递 归 , 次 数 多 一 些 能 够 更 逼近 树叶 。 读者 可 以 参见 光盘 中 \Ch21 
文件 夹 下 的 fractals_leaf.m 文件 ， 对 比 和 图 21.22 的 不 同 之 处 。 





图 21.24 分 形 树叶 

图 21.25 利用 3 个 分 叉 进行 递归 ， 得 到 一 棵 伞 状 的 树木 ， 请 参见 光盘 中 \Ch21 文件 夹 下 的 fractals_ 
tree4.m 文件 。 

分 形 树 和 分 形 树 叶 的 画 法 有 很 多 ， 可 以 使 用 不 同 的 生成 元 对 其 中 部 分 或 者 全 部 线段 进行 递归 ， 
而 且 可 以 改变 其 中 的 角度 和 程度 参数 。 当 然 也 可 以 控制 长 度 和 角度 数值 为 某 一 个 范围 内 的 随机 数 ， 
这 样 产生 的 图 形 失去 规则 性 ， 看 上 去 就 更 接近 于 自然 图 形 了 。 实 际 计算 的 时 候 递 归 的 深度 要 合适 ， 
能 够 得 到 实际 图 形 就 行 了 ， 不 要 一 味 地 增加 递归 深度 , 这 样 会 耗费 很 多 时 间 。 当 然 选择 合适 的 递归 
更 好 ， 使 计算 最 尽 可 能 少 。 这 些 都 是 技巧 ， 可 以 在 实际 编程 时 慢 慢 地 摸索 。 
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图 21.25 “分 形 树 





21.3.2 ”Arboresent 肺 
Arboresent 肺 也 可 看 成 是 一 种 Koch 曲线 。 初 始 是 两 个 项 角 为 钝 角 的 等 腰 三 角形 ， 它 们 有 一 个 


公共 的 锐角 顶点 ( 如 图 21.26 中 n=0 的 情况 )。 从 这 个 项 点 出 发 ， 两 个 等 腰 三 角形 的 长 边 组 成 有 一 
个 夹 角 的 两 个 等 腰 三 角形 , 这 两 个 等 腰 三 角形 与 原来 的 三 角形 具有 相似 关系 , 相似 比 为 三 角形 的 腰 
的 长 度 和 底 边 长 度 的 比值 。 实 际 上 ， 上 面 的 过 程 可 以 在 n=0 时 ， 把 两 侧 的 三 角形 分 别 递 归 ， 这 样 
有 自 相 似 关系 ， 而 n=0 时 ， 整 体 处 理 还 是 不 具有 递归 关系 的 。 可 以 参阅 光盘 中 \Ch21 文件 夹 下 的 
arboresent_lung.m 文件 。 只 要 在 命令 窗 输入 下 面 的 内 容 就 可 以 得 到 如 图 21.26 所 示 图 形 。 
n=0 nr=1 =2 n=3 
图 21.26 Arboresent 肺 


for k=1:4 


subplot (1,4,k); gs 生成 子 图 
arboresent_lung(k-1):; % 调用 函数 arboresent_lung 绘图 
title{t['n=',num2str(k-1)]); sg 添加 图 题 

axis Square image off; % 设置 坐标 轴 属 性 

end 


可 以 增 大 arboresent_lung 函数 的 输入 参数 n， 以 得 到 更 精细 的 结构 。 


21.3.3 Sierpinski 垫 片 


21.13 给 出 了 等 厅 三 角形 的 Sierpinski 垫 片 ， 这 里 再 给 出 正方 形 的 Sierpinski 垫 片 图 案 。 
Sierpinski 垫 片 也 可 以 看 成 是 Koch 曲线 的 二 维 扩展 。 它 的 生成 规则 是 : 首先 在 平面 上 构造 一 个 正 
方形 ， 将 正方 形 的 每 条 边 三 等 分 ( 得 到 9 个 小 正方 形 ， 如 图 21.27 所 示 )， 把 中 间 的 正方 形 挖 除 ， 
再 把 剩 下 的 8 个 小 正方 形 按照 同样 的 方法 进行 分 割 与 挖 除 。 理 论 上 此 过 程 执行 到 无 穷 小 的 正方 形 
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即 得 到 Sierpinski 热 片 。 实 际 上 选择 到 最 小 正方 形 的 边 长 是 初始 正方 形 的 1/34, 即 1/81 就 可 以 了 ， 
再 小 下 去 视觉 上 就 看 不 到 了 。 递 归 算 法 步骤 如 下 ; 


ER 设 定 初始 正方 形 左上 角 和 右 下 角 的 坐标 为 (为 ,为 ) 和 ( 妈 , 六 ) ， 则 正方 形 的 长 宽 分 别 为 
了 = 六 一 恒 ， 卫 = 为 一 久 ( 说明 ， 考虑 到 计算 方便 才 这 样 定义 ， 此 时 仙 是 负数 ) 根据 


这 两 个 点 就 可 以 绘制 正方 形 了 。 
计算 9 个 小 正方 形 的 左上 角 和 右 下 角 坐 标 ， 这 里 把 结果 以 表格 形式 给 出 ， 如 表 21.11 所 


不 o 





图 21.27 ”区 域 分 割 法 
表 21.11 正方 形 的 坐标 值 


正方 形 编号 


左上 和 角 坐 标 
(为 + 工 /3, + 砚 /13) 


(站 ) 

(为 十 二 /3, 放 ) 

( 妈 2- 工 /3,) 

(国力 + 网/13) 

(2 =- 工 /3,+ 克 13) 
(六 一 攀 /3) 
(i+ZL13, 罗 一 克 13) 


( 妈 - 工 /3, 7 - 殉 /13) 


右 下 角 坐 标 
( 冯 2 一 工 /3, 交 -了 克 /3) 


(为 + 工 /3,+ 殉 13) 
(已 一 /3, 六 + 取 /13) 
(z2, 六 + 了 三 /13) 
(+Z13, 六 一色 13) 
(交友 /3) 
(为 + 工 /3 六) 
( 妈 -ZL/3,7) 


(六 ) 


设 定 递归 深度 ， 对 编号 为 1-8 的 正方 形 作 递归 处 理 ， 就 可 以 得 到 Sierpinski 垫 片 的 分 形 
图 形 , 如 图 21.28 所 示 。 为 了 书写 简单 ，MATLAB 程序 中 使 用 友 和 区 替换 厂 /3 和 区/3。 
该 算法 对 应 的 程序 是 光盘 中 \Ch21 文件 均 下 的 Sierpinski_carpet,m， 其 中 凤 和 区 取 相 等 
数值 是 正方 形 ， 如 果 它 们 不 相等 就 是 长 方形 对 应 的 Sierpinski 垫 片 。 
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图 21.28 正方 形 的 Sierpinski 妻 片 


21.3.4，Peano 曲线 
意大利 的 数学 家 Peano 通过 对 一 些 古代 装饰 图 案 的 研究 ， 构 造 了 一 条 奇怪 的 平面 曲线 。 这 条 
曲线 蚁 钱 曲折 一 气 呵 成 ， 并 能 经 过 平面 上 某 一 正方 形 区 域内 “所 有 点 "。 当 时 引起 数学 界 的 广泛 注 
意 ， 不 久 研究 者 们 便 找 到 了 具有 这 样 性 质 的 其 他 曲线 ， 后 来 统称 为 Peano 曲线 。Peano 曲线 的 一 
个 典型 例子 就 是 Hilbert-Peano 曲线 ， 如 图 21.29 所 示 。 
该 曲线 的 生成 元 为 三 条 正 交 的 线段 , 图 21.30 给 出 了 该 曲线 的 递归 过 程 示意 图 。 具 体 递归 步骤 
如 下 : 
ED 情 把 正方 形 四 等 分 ， 求 出 各 小 正方 形 的 中 心 ， 将 它们 连接 起 来 ， 可 以 看 到 存在 两 种 连接 方 
式 ， 如 图 21.31 所 示 。 
将 各 个 小 的 正方 形 再 细 分 为 4 个 相同 的 小 正方 形 ， 并 连接 各 正方 形 的 中 心 ， 也 将 会 发 展 
成 两 种 连接 方式 。 
ED 依 此 类 推 就 可 以 得 到 相应 的 图 形 。 对 应 程序 可 以 参阅 光盘 中 \Ch21 文件 夹 下 的 


Hilbert_Peano.m 文件 。 
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图 21.30 Hilbert-Peano 曲线 的 递归 过 程 
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图 21.31 Hilbert-Peano 曲线 生成 示意 图 
此 外 ，Hilbert-Peano 曲线 还 可 以 使 用 另外 一 种 方法 来 计算 。 如 图 21.32 所 示 ， 在 n=2 时 的 状 
态 ， 如 果 把 曲线 分 成 4 个 部 分 ， 那 么 每 一 部 分 可 以 看 成 是 由 n=1 时 的 曲线 经 过 平移 或 者 旋转 操作 
得 到 的 。 比 如 说 n=2 时 , A 区 的 曲线 可 以 看 成 是 n=1 的 曲线 顺 时 针 旋 转 902 而 得 到 的 ; B 区 曲线 
是 n=1 时 曲线 旋转 180? 再 平移 一 段 距离 得 到 的 ; C 区 的 曲线 和 D 区 的 曲线 都 是 n=1 时 曲线 平移 
操作 得 到 的 。 可 以 验证 这 个 规律 对 从 n=2 状态 到 n=3 状态 是 否 成 立 。 根 据 这 个 规律 我 们 可 以 很 快 


写 出 程序 。 





n=1| n=2 n=3 
D C D C 








A 
图 21.32 Hilbert-~-Peano 曲线 生成 过 程 示意 图 
为 了 计算 方便 ， 规 定 n=1 时 左下 角 处 端点 坐标 在 原点 上 ，n=1 时 每 段 线段 的 长 度 是 1。 接 下 
来 按照 上 面 说 的 规律 进行 递归 处 理 就 可 以 了 。 递 归 深 度 将 决定 坐标 轴 的 范围 ， 比 如 说 ，n=1 时 X 
轴 范 围 是 [0,1]，n=3 时 X 轴 的 范围 是 [0,8] ， 长 度 就 是 2 的 n 次 需 。 此 算法 对 应 的 MATLAB 程序 是 
光盘 中 \Ch21 文件 夹 下 的 Hilbert_Peano2.m 文件 。 
最 后 再 介绍 Hilbert-Peano 曲线 的 一 个 生成 程序 , 即 peano.m 文件 该 文件 保存 于 光盘 中 \Ch21 
文件 夹 下 )， 该 文件 的 对 应 算法 就 不 在 这 里 描述 了 ， 感 兴趣 的 读者 可 以 自己 研究 一 下 。 


21.3.5 _“C 曲线 


如 图 21.33 所 示 的 图 形 非 常 像 一 个 策 着 的 字母 C， 所 以 称 它 为 C 曲线 。 其 实 它 的 原名 叫 Levy 
曲线 ， 是 法 国 数学 家 Paul Levy 构造 的 。 很 明显 ， 它 具有 很 强 的 自 相似 性 ， 也 很 漂亮 ， 具 有 装饰 性 。 
它 的 生成 规则 非常 简单 ， 即 从 一 条 直线 出 发 ， 然 后 向 下 支 起 一 个 90。 的 角 ， 在 角 的 两 条 边 上 再 分 
别 向 外 支 起 90? 的 角 ， 依 此 类 推 ， 就 可 以 得 到 C 曲线 。 读 者 可 以 对 照 图 21.34 理解 。 

算法 步骤 如 下 : 


先 给 定 初始 线段 的 端点 ，( 为 ,为 ) 和 (六 ,六 ) ， 并 连接 它们 。 
计算 向 下 支 起 的 点 的 坐标 ， 为 = (为 十 力 十 六 一 凡 )1/2， 为 =( 国 一 六 一 力 玉 )/2。 
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21.33 递归 算法 生成 的 C 曲线 


1 2 
3 
n=0 n=1 n=2 n=3 n=4 


图 21.34 “C 曲线 的 构造 过 程 
以 (为 , 广 ) 和 (, 六 ) 为 输入 点 ， 按 步骤 1 和 步骤 2 进行 递归 。 
以 (六 ,六 ) 和 (为 ,六 ) 为 输入 点 , 按 步骤 1 和 步骤 2 进行 递归 。 直 至 递归 深度 ， 完 成 制作 
的 过 程 。 
C 曲线 实现 程序 是 drawC.m 文件 ( 其 保存 于 光盘 的 \Ch21 文件 夹 下 )， 程 序 中 为 书写 简单 ,使 


用 复数 表示 点 的 坐标 。 本 程序 在 递归 深度 取 值 较 大 ( 比如 n=10 ) 时 将 要 耗费 很 长 的 时 间 ， 读 者 可 以 
使 用 较 小 的 递归 深度 ， 比 如 n=8， 然 后 使 用 鼠标 缩小 fgure， 就 可 以 得 到 如 图 21.33 所 示 的 图 案 了 。 


21.3.6 ”多 角 星 构成 的 分 形 图 


如 果 以 多 角 星 作为 单元 进行 递归 计算 可 以 得 到 不 同 的 分 形 图 案 ,下 面 给 出 以 七 角 星 为 单元 的 弟 
归 图 案 的 程序 。 


function [z, 有 ]=recurs_star7(Zz, 有 mn) ; 


hold on 
nz=77y % 旋转 对 称 次 数 
N=4; g 递归 次 数 


sc=0.31 % scale 缩 小 率 
kr=4) # 角度 间隔 数 
ang=pi/nr/2; % 最 小 角度 
rand{'state',n+l0) #% 设置 随机 数 状态 
C=rand{t1I,3); g 生成 随机 的 颜色 向 量 
E D<N7; 
r=sc^ni % 计算 半径 的 长 度 
[z,R,P]=star7{z,RA,r))  % 调用 自 函 数 绘制 七 角 星 
fill(real(P) ,imag(P),C); # 对 七 角 星 进行 填充 
if abs(n-1)<1e-57 
m=nr; #% 确定 角 点 的 数目 
k=0; % 计算 角度 初 值 指标 k 
elSse 
m=nr-1; sg# 确定 角 点 的 数目 
k=17 多 计算 角度 初 值 指标 k 
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enda 
for P=1:my; 
&A=a+pi; g% 更 新 角度 变量 A 
R=RA+(P-1+k)*krwang; g% 计算 角度 
z=z+rx(1+SC)xexp(ira); ss 获取 下 一 位 置 的 坐标 ， 其 为 一 复数 
[z,A] =recurs_star7(z,&A,n+1); % 递归 调用 
RA=R+pi; % 变化 角度 值 
z=z+rw(1+SC)*exp(ixa); s 更 新 位 置 坐标 值 
R=RA-(p-1+k)*kr*ang;  $% 计算 角度 值 
enaQ 
end 
axis equal; $% 设置 坐标 轴 属 性 
function [z,RA,P]=Star7(Z, RAT) ， 
Dr=7; g 执行 角 点 树 目 
ang=pi/nr/2; $% 计算 最 小 角度 
ks=2*cos (pi/nr/2); * 计算 缩小 比例 
有 =A+DPiy; sg 更 新 角度 值 
z=z+rxrexp (ixa);  % 计算 顶点 位 置 
R=RA+pi-ang; #% 计算 初始 时 角度 的 数值 
P=Z; g 初始 化 位 置 向 量 
for k=1:nr7 
plot([z,z+rxks*exp(ira)]); % 绘图 
Z=Z+rw*kSswexp{ixya); # 计算 下 一 位 置 的 角度 
P=[P,z]; % 把 z 的 数值 添加 到 向 量 P 中 
R=RA+pi-2x*angy # 更 新 角度 值 
endG 
有 =R+angr s 变化 a 的 数值 
z=z+rxexp(ixva); $% 改变 z 的 数值 


执行 语句 “[z,A]=recurs_star7(0,-pi/2,1);” 后 输出 图 形 如 图 21.35 所 示 。 
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图 21.35 ”以 七 角 星 为 单元 进行 递归 得 到 的 分 形 图 形 
如 果 Koch 曲线 的 生成 元 是 如 图 21.36 所 示 的 矩阵 方 框 内 的 折线 ， 对 应 的 分 形 图 可 以 参见 图 
21.36 下 面 的 曲线 。 该 图 形 的 MATLAB 程序 可 以 参见 光盘 中 \Ch21 文件 夹 下 的 Koch_ Cantort,m 文 
件 。 
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图 21.36 ”变形 的 Koch 曲线 


21.4 分 维 的 计算 


在 几何 学 中 ， 维 数 的 概念 非常 重要 ， 比 如 点 、 线 、 面 、 体 的 维 数 分 别 是 0，1，2，3。 空 间 的 
维 数 常 被 理解 为 坐标 数 ( 或 者 是 描述 对 象 的 最 少 独立 变量 数目 )， 比 如 线性 代数 中 的 半 维 空间 。 对 
于 分 形 图 形 来 说 ， 利 用 最 少 描述 对 象 的 独立 变量 数目 就 不 合适 了 。 在 维 数 研究 中 ，Hausdorff 引入 
的 维 数 的 概念 是 比较 重要 的 进展 。 本 节 来 介绍 维 数 的 定义 与 计算 。 

对 于 经 典 的 分 形 ， 如 Cantor 集 和 Koch 曲线 ， 它 们 的 局 部 形状 和 整体 之 间 满 足 相 似 关系 ， 即 
局 部 图 形 放大 一 定 比例 后 与 整体 相同 ， 这 类 图 形 被 称 为 自 相似 集 。 对 于 这 类 图 形 ， 维 数 的 定义 是 ， 


ln mm 
万 = 一 一 
” ln(lyec) 


其 中 忆 , 是 自 相似 集 图 形 的 维 数 ,被 称 为 相似 维 数 。m 是 当前 尺度 下 的 一 个 单元 包含 下 一 尺度 
下 的 子 单元 数目 。c 是 相似 比 。 对 于 Cantor 集 ， =2，c=1/3，D, =ln2/ln3=0.6309 ; 
而 在 Koch 曲线 中 ,mi = 4，c=1/3，Ds =ln4/ln3=1.2619。 

对 于 复杂 的 分 形 图 形 ， 无 法 确定 参数 记 和 < ， 从 而 不 能 计算 出 对 应 的 相似 维 数 D, 。 此 时 需要 “ 
考虑 其 他 方法 计算 图 形 的 维 数 。 可 以 设想 使 用 一 些 大 小 相同 的 方形 框 或 者 方块 { 其 边 长 为 > ) 来 覆 
盖 被 测量 的 图 形 对 象 。 通 过 统计 覆盖 图 形 对 象 所 需要 的 小 方块 的 数目 N 来 计算 图 形 的 维 数 ， 这 种 
方法 被 称 为 盒 维 计数 法 ( Box counting )， 所 得 维 数 被 称 为 盒 维 Ps 。 如 果 使 用 不 同 边 长 的 方块 来 
测量 图 形 对 象 可 以 得 到 不 同 的 N ， 即 是 > 的 函数 N(r) 。 盒 维 节 的 计算 式 为 ， 


( 21-4 ) 


JnNO) (21-5) 


在 实际 计算 中 ,很 难 取 长 度 r 一 0 的 比例 尺度 进行 测量 。 通 常 的 做 法 是 取 几 个 有 限 长 度 的 比例 
尺度 进行 测量 得 到 相应 的 N{r) 值 ， 然 后 利用 尺度 "和 N 人 r) 的 数值 绘制 双 自 然 对 数 InN(r)~ nr 图 。 
如 果 被 测 对 象 确实 为 分 形 图 , 那么 得 到 的 点 将 会 分 布 在 一 条 直线 上 , 通过 拟 合 的 方法 可 以 计算 出 相 
应 直线 的 斜率 ， 这 个 斜率 是 一 个 负数 ， 其 绝对 值 就 是 盒 维 Z 的 近似 值 。 

分 形 盒 维 数值 的 计算 程序 可 以 在 MATLAB 网 站 中 查询 ， 相 应 网 址 可 以 在 附录 A 中 查询 。 
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21.5 “小 结 


本 章 主要 介绍 了 分 形 图 形 的 绘制 方法 。 分 形 图形 是 一 类 具有 自 相似 特征 的 特殊 图 形 。 在 认识 分 
形 图 形 之 前 ， 人 们 只 是 对 简单 的 几何 图 形 ， 如 三 角形 、 四 边 形 以 及 圆 形 等 进行 了 相应 的 研究 ， 而 对 
稍微 复杂 的 图 形 就 没有 深入 的 认识 了 。 随 着 对 分 形 图 形 的 认识 ,很 多 图 案 可 以 与 分 形 联系 起 来 ,从 
而 使 人 们 认识 世界 的 深度 和 范围 进一步 扩大 。 认 识 分 形 的 第 一 步 就 是 对 绘制 分 形 图 形 的 学 习 。 本章 
首先 介绍 一 些 基 本 分 形 图 形 的 绘制 , 如 Cantor 集 、Julia 集 、Mandelbrot 集 和 Koch 曲线 等 的 画 法 。 
然后 介绍 了 利用 迭代 函数 系统 绘制 分 形 图 形 的 方法 ， 利 用 这 个 方法 可 以 得 到 不 同形 式 的 分 形 图 形 ， 
甚至 是 接近 于 自然 景物 的 图 案 。 接 下 来 介绍 了 递归 算法 绘制 分 形 图 形 , 这 个 算法 需要 在 绘图 之 前 确 
定 分 形 图 形 的 自 相似 性 的 数学 表述 ， 了 解 不 同 尺度 的 单元 关系 ,确定 相关 的 位 置 与 角度 表达 式 ， 从 
而 可 以 利用 递归 关系 画图 。 最 后 给 出 了 分 维 的 计算 方法 。 
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人 奇偶 规则 介绍 奇偶 规则 的 定义 及 相应 的 程序 实现 。 

人 砂 堆 规则 介绍 砂 推 规则， 同时 给 出 了 一 个 砂 汕 例 子 的 过 程 模拟 。 

旬 细菌 生长 模型 介绍 细菌 生长 的 模拟 ， 给 出 元 胞 自动 机 实现 的 例子 。 

人 气体 扩散 在 Margolus 近 邻 上 实现 了 气体 扩散 过 程 的 模拟 。 

急 蚂蚁 规则 结合 蚂 妆 规则 给 出 了 不 同 初始 条 件 下 蚂 上 规 则 的 演化 结果 。 

@ 六 边 形 格子 的 粒子 运动 ”给 出 6 边 形 格子 上 粒子 运动 的 实现 ， 同 时 给 出 一 个 实例 。 


元 胞 自动 机 ( Cellular Automata ) 是 一 种 时 间 、 空 间 、 对 象 的 状态 都 是 离散 形式 的 动力 学 模型 ， 
它 是 研究 非 线 性 科学 的 重要 研究 工具 。 元 胞 自动 机 更 适合 复杂 系统 时 空 演化 过 程 的 动态 模拟 。 在 
1998 年 ，Chopard 和 Droz 出 版 《Cellular Automata Modeling of Physical Systems 》， 对 现 有 元 胞 
自动 机 理论 进行 了 全 面 总 结 。 目 前 这 个 工具 经 常 出 现在 一 些 前 沿 科学 问题 研究 中 ,如 图 像 加 密 、 交 
通 问题 、 人 口 问题 以 及 一 些 关 于 群体 性 行为 的 问题 。 在 元 胞 自动 机 模型 中 , 对象 的 状态 可 以 利用 和 撼 
阵 来 表示 ， 而 和 矩阵 之 间 的 计算 正 是 MATLAB 的 特长 。 利 用 MATLAB 编写 元 胞 自动 机 程序 可 以 使 代 
码 非常 简洁 , 同时 和 珑 阵 化 的 代码 可 以 高 效 地 被 执行 。 本 章 介绍 基本 元 胞 自动 机 模型 如 何 用 MATLAB 
语言 实现 。 


22.1 奇偶 规则 


奇偶 规则 最 早 是 由 E. Fredkin 提出 的 ， 它 是 一 种 定义 在 二 维 网 格 上 的 元 胞 自动 机 。 每 个 网 格 处 
的 状态 用 矩阵 对 应 点 的 像素 值 决 定 。 在 经 典 的 模型 中 ， 状 态 一 般 是 两 个 ， 因 此 用 0 和 1 来 表示 即 
可 。 通 过 设 定 元 胞 自动 机 的 规则 来 控制 相 邻 时 刻 的 状态 的 变化 ( 如 从 $, 变 为 8 )。 为 了 使 元 胞 自 
动机 顺利 地 进行 模拟 ， 还 需要 设 定 初始 条 件 和 边界 条 件 。 
奇偶 规则 下 的 元 胞 自动 机 规则 为 ， 
多 ， 对 应 于 每 一 个 元 胞 位 置 (j, 站 计算 出 其 上 、 下 、 左 、 右 4 个 最 近邻 格 点 上 在 + 时刻 的 状态 值 
3 以 及 总 和 AM (i, 门 。 同 时 通过 下 脚 标 (2 帮 来 遍历 整个 区 域 , 得 到 矩阵 M 所 有 元 素 的 值 。 
@ 根据 M(i, 门 取 值 的 奇偶 性 来 决定 下 一 时 刻 ! 十 1 该 点 的 状态 8 sz, 7 ,相应 关系 可 以 用 下 
式 表示 : 
Sui 人 7)=modlMz(t ,723] (22-1 ) 


其 中 mod 表示 模 除 函 数 ， 即 当 AM (i, 放 为 偶数 时 ， Si 人 ,7 等 于 0; 当 AMh(i, 7) 为 奇数 时 ， 
Si 人 让 等 于 1。 因 此 这 个 规则 被 称 为 奇偶 规则 。 
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对 于 边界 上 的 点 ， 在 考虑 区 域内 的 4 个 近邻 不 可 能 都 选取 到 ， 可 能 取 到 两 个 近邻 ( 4 个 角 点 处 
的 元 胞 ) 或 者 3 个 近邻 ( 边界 上 除 角 点 以 外 的 元 胞 )。 如 果 不 考虑 区 域 以 外 的 元 胞 ， 那 么 相当 于 把 
边界 以 外 的 元 胞 ( 假想 存在 的 ) 状态 值 等 于 0。 此 外 边界 以 外 假想 的 元 胞 还 可 以 存在 其 他 的 取 值 方 
案 ， 这 里 假设 边界 以 外 的 元 胞 状态 值 等 于 0。 

下 面 介绍 四 近邻 状态 值 的 计算 方法 。 当 然 可 以 使 用 循环 来 逐 点 计算 近邻 的 数值 , 这 里 给 出 一 种 
不 用 循环 计算 的 方法 。 如 果 状 态 矩 阵 是 NXN ， 那 么 生成 一 个 (N+2)x(N+2) 的 矩阵 S, 。 把 
矩阵 $ 中 间 的 Nx N 部 分 赋值 为 状态 矩阵 8 ， 而 甜 阵 $,, 周围 的 一 团 元 胞 可 以 根据 边界 条 件 来 赋 
值 。 在 奇偶 规则 中 ， 边 界 设置 为 全 0 即 可 。 状 态 和 矩阵 $, 上 、 下 、 左 、 右 的 近邻 可 以 写 为 : 
sm(l1:end-2,2:end-1) ss 左近 邻 
sm(3:end,2:end-1) 。 % 右 近 邻 
sm(2:end-1l,1:end-2) $ 上 近邻 
Sm(2:end-1,3:end) gs 下 近邻 

如 此 就 可 以 利用 上 面 的 表示 方法 对 近邻 元 胞 进行 相关 的 计算 了 。 这 里 再 补充 八 近邻 中 的 另外 4 
个 近邻 ， 它 们 可 以 表示 为 : 


sml(l:end-2,1:end-2)  % 左上 近邻 


Sm(3:end,1:end-2) # 右上 近邻 
Sm(l:end-2,3:end) % 左下 近邻 
Sm(3:end,3:end) # 右 下 近邻 


下 面 来 考虑 奇偶 规则 的 MATLAB 实现 。 


N=256; ”% 设置 状态 矩阵 线 元 胞 总 数 

t1=4)t2=6; 

S=zeros (N) ; % S 是 状态 矩阵 

S(fix(29*N/59) :fix(30*N/59),fix(29*N/59) :fix{(30*N/V/59) )=17 
sum(S(:)) 

Ii=imshow{1-S, [])， 

axis Square % 设置 坐标 轴 属 性 

Sm=zeros (N+2); % 生成 一 个 比 状态 矩阵 多 2 行 2 列 的 矩阵 


for k=1:110; 
Sm(2:endq-1,2:end-1)=S; 4 把 Sm 中 间 NxN 的 部 分 赋值 为 状态 矩阵 S 


M=Sm(1l:end-2,2:end-1)+sm(3:end,2:end-1)+Sm(2:end-l,1:end-2)+Sm(2:end-1,3:end)， 

S=mod(M,2) ; % 用 模 除 得 到 下 一 时 刻 状 态 和 矩阵 的 数值 

set (Ii, 'CData',1-S); % 更 新 显示 的 数据 

pause(0.2) # 暂停 一 下 显示 出 动画 效果 
enaG 

上 述 程 序 执行 过 程 中 ， 当 t=90 和 t=108 时 输出 的 图 形 如 图 22.1 所 示 。 

随 着 初始 条 件 不 同 ， 得 到 的 演化 图 案 会 有 很 大 的 差异 。 很 多 元 胞 自动 机 规则 都 具有 这 个 特点 ， 
从 简 剃 的 图 案 生成 复杂 的 图 形 。 对 于 奇偶 规则 ， 这 里 再 举例 说 明 其 自 复制 的 特点 ， 即 进行 2 次 和 迭 
代 。 这 里 初始 状态 矩阵 的 形式 如 图 22.2(a) 所 示 ( 其 为 236X256 像素 的 矩阵 ， 相 应 图 片 文件 保存 
为 光盘 中 \Ch22 文件 夹 下 的 words1.bmp )。 利用 奇偶 规则 可 以 得 到 如 图 22.2 所 示 的 图 形 ( 相应 的 
MATLAB 程序 是 光盘 中 \Ch22 文件 夹 下 的 odd_even1.m 文件 )j。 
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图 22.1 奇偶 规则 的 演示 结果 
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图 22.2 奇偶 规则 对 特殊 图 案 进行 演化 的 结果 
从 图 22.2 中 可 以 看 出 出 现 了 初始 时 的 图 案 。 一 般 在 2" 次 迭代 时 会 出 现 初始 条 件 描述 的 图 案 。 
22.3(a) 是 时 间 # = 128 时 刻 的 演化 图 案 ， 为 了 对 比 初始 时 的 图 案 ， 把 9zg 和 $o 中 的 黑色 图 案 相 加 
可 以 得 到 如 图 22.3(b) 所 示 的 结果 ， 可 见 在 图 22.3 中 t=128 初始 时 的 所 有 元 胞 状态 都 已 经 改变 了 ， 
这 个 结论 对 于 其 他 初始 图 案 也 是 成 立 的 。 





图 22.3 奇偶 规则 演化 的 结果 
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接 下 来 给 出 元 胞 自动 机 常用 的 两 种 近邻 类 型 : Von Neumann 型 邻居 和 Moore 型 邻居 。 前 面 奇 
偶 规 则 中 的 近邻 类 型 就 是 Von Neumann 型 邻居 ， 即 上 、 下 、 左 、 右 4 个 最 近邻 元 胞 构成 的 近邻 形 
式 。 而 Moore 型 邻居 除了 包含 最 近邻 的 4 个 元 胞 外 ， 还 有 次 近邻 的 4 个 元 胞 ( 左上 、 右 上 、 左 下 、 
右 下 等 4 个 位 置 )， 所 以 Moore 型 邻居 中 有 8 个 元 胞 。 另 外 一 种 元 胞 的 近邻 类 型 被 称 为 Margolus 
型 邻居 ， 其 近邻 元 素 是 指 次 近邻 的 4 个 元 胞 。 


22.2 ” 砂 堆 规则 


颗粒 状 粒子 的 物理 特性 引起 了 很 多 研究 者 的 兴趣 , 这 类 物质 也 称 为 软 物质 。 实 际 上 可 以 设计 一 
种 元 胞 自动 机 规则 来 模拟 像 砂 粒 一 样 颗 粒 的 堆积 与 倒塌 现象 。 受 重力 作用 ， 只 要 下 面 有 空间 ,砂粒 
就 应 该 去 添补 空位 。 根 据 这 个 常识 ， 可 以 设计 相关 的 元 胞 自动 机 规则 。 

如 图 22.4 所 示 ， 其 中 空心 圆圈 表示 砂粒 。 如 果 E 处 元 胞 为 空 ， 那 么 B 位 置 的 砂粒 下 落 到 E 位 
置 ;， 如 果 E 位 置 有 砂粒 ， 那 么 B 元 胞 处 的 粒子 将 根据 D 和 F 处 粒子 是 否 为 空 决 定 下 落 的 方向 。 





图 22.4 ” 砂 堆 规 则 的 示意 图 


同样 地 ,利用 数值 “{” 表 示 元 胞 处 有 砂粒 ， 而 用 数值 “0” 表 示 元 胞 处 无 砂粒 。 如 果 使 用 sw ， 
sr ， 引 和 Sr 分 别 表示 时 刻 :“ 左 上 角 ”"、" 右 上 角 ”"、" 左 下角” 和 “ 右 下 角 ” 元 胞 的 状态 ， 用 Su ， 
Su ，S5r 和 Sr 分 别 表示 时 刻 !+1“ 左 上 角 ”“、“ 右 上 角 ”"、“" 左 下角” 和 “ 右 下 角 ” 元 胞 的 状态 ， 那 
么 它们 之 间 的 关系 可 以 利用 下 式 表 达 : 


Su 三 Su1S1 [w + 人 (一 sr jsv] ( 22-2 ) 
Sur 三 SurSr [ww +(-sjsu] ( 22-3 ) 
3 = 2 十 人 L 一 吕 外 +(-sw jswsr] { 22-4 ) 
Sr =Sr +(-rw +(-sjsusz] ( 22-5 ) 


从 上 面 4 个 表达 式 可 以 看 出 ,时刻 ++1 砂粒 的 状态 可 以 使 用 时 刻 ! 的 砂粒 来 表示 。 这 几 个 式 子 
描述 了 砂粒 自由 下 落 的 过 程 ， 可 以 认为 是 元 胞 自动 机 的 规则 。 

下 面 来 考虑 一 个 砂 漏 过 程 。 与 自由 下 落 过 程 不 同 的 是 , 只 有 在 自由 空间 内 公式 ( 22-2 ) 到 ( 22-4 ) 
才 是 有 效 的 。 在 砂 漏 边界 外 ( 如 图 22.5 左 图 的 深 灰 色 部 分 ) 应 该 约束 砂粒 不 能 进入 ， 而 且 在 砂 漏 
最 下 一 层 砂粒 不 能 再 继续 向 下 运动 ， 因 此 应 该 考虑 对 公式 ( 22-2 ) 到 ( 22-4 ) 进行 修正 。 
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图 22.5 ” 砂 漏 模型 
这 里 引入 边界 矩阵 B ， 边 界 矩 阵 妃 某 点 的 元 素 值 如 果 等 于 1 表示 砂粒 位 置 不 能 进入 ; 元 素 值 
等 于 0 的 位 置 砂粒 可 以 进入 。 在 边界 矩阵 好 的 限制 下 ,前 面 的 公式 ( 22-2 ) 到 ( 22-5 ) 可 以 修正 为 : 


Si =Busu+(-Bjsus[s t+-shsv] { 22-6 ) 
Sr=Bosr+0-Burjswsr[sw+t-sjso] ( 22-7 ) 
Si =s+0-ajlsotl-Bu)+0-swjsvsrG=-Br ( 22-8 ) 
Sr = 呈 (Be)+(-sr)sost-B ( 22-9 ) 


在 实际 计算 中 可 以 使 用 式 ( 22-6 ) 到 ( 22-9 ) 模拟 砂粒 下 落 的 过 程 ， 计 算 过 程 如 图 22.6 所 示 。 
这 里 诈 表示 砂 漏 模型 中 间 漏 口 列 号 的 位 置 ， 它 是 一 个 随机 数值 。 从 靖 位 置 处 向 左右 两 侧 以 2x2 的 
单元 网 格 进行 计算 ， 而 行 数 > 从 最 下 面 一 行 逐 行 计算 至 上 数 第 二 行 ， 这 样 遍 历 之 后 可 以 得 到 下 一 时 


刻 砂 粒 的 位 置 分 布 情况 。 
3 Sur 3 Su 
(r-1. rn-1)| (r-1.7m) KKr-1. 2+1l)(r-1, m2+2) 
忆 1 3 3 
(rmm-1) (rmm) | rm+1) | rn+2) 


图 22.6” 砂 漏 模型 的 计算 过 程 
根据 上 面 的 分 析 ， 可 以 得 到 下 面 的 MATLAB 程序 。 















人 
2 














N=10; g% 控制 粒子 数 的 参数 
S=zeros(2*N); g% 生成 状态 矩阵 S 
S_b=S; # 设置 边界 和 矩阵 S_b 


[x,y]=meshgrid(linspace(-N,N,2*N) ); $ 坐标 矩阵 

S_b(x-y<1 & x+y<-1 &abs{(x)>1)=0.5) % 生成 边界 矩阵 元 素 值 等 于 0.5 的 地 方 粒子 不 能 进入 
S_b(x-y>l1 & x+y>-1 & abs(x)>1)=0.5; % 生成 边界 矩阵 元 素 值 等 于 0 . 5 的 地 方 粒子 不 能 进入 
S(x-y>=1 & x+y<=-1)=1; % 布置 砂粒 的 初始 分 布 ， 元 素 值 等 于 1 的 位 置 表示 有 砂粒 

S(1,:)=0) g 顶层 设置 为 空 . 

S(end, :)=1; g% 顶层 设置 为 空 

ss-=max(S,S_b); $% 联合 边界 矩阵 和 状态 矩阵 ， 记 录 边 界 与 砂粒 分 布 的 矩阵 

B=zeros(2xN) ; g% 标识 边界 和 地 面 的 矩阵 B，B 的 数值 等 于 1 砂粒 不 能 进入 ，B 的 数值 等 于 0 砂粒 能 进入 
B(X-Y<0 & X+Yy<1 & abs(X)>1)=1; 多 设置 地 面 以 上 的 边界 矩阵 B 的 数值 

B(x-y>-1 & x+y>0 & abs(x)>1)=1; g% 设置 地 面 以 上 的 边界 矩 阵 B 的 数值 

B(end, :)=1; s% 设置 地 面 的 矩 阵 8 的 数值 

ss(end, :)=1; $% 把 地 层 设 置 为 1 


564 wp > > 基 


梧 梧 本 本 第 2 二 元 胞 自动 机 


subplot (121) ;imshow(1-ss, []); s 显示 初始 时 图 案 
subplot (122) ;ITi=imshow(1-Ss, []); # 显示 初始 时 图 案 


ti=title('t=0'，'Fontsize'v14); # 实时 显示 时 间 
for k=1:50; 
for Zas2*N:-13:2; 
rn=zouna (rand) ; g 随机 选择 计算 位 置 


for xl=N+rn:-1:2; g 这 个 循环 结构 用 来 计算 中 心 位 置 向 左 侧 的 状态 矩阵 更 蔡 过 程 
s_ul=S(r-l,rl-1); % 提取 左上 角 位 置 的 状态 和 矩阵 数值 
s_ur=Str-l,rl);  s# 提取 右上 角 位 置 的 状态 矩阵 数值 
s_ll1=S(r,rl-1); ， s% 提取 左下 角 位 置 的 状态 矩阵 数值 


s_1r=S(r,I1)， # 提取 右 下 角 位 置 的 状态 和 矩 阵 数值 
B_ul=B(r,zl-1); ， % 提取 边界 状态 矩阵 像素 值 ( 左上 角 ) 
B_ur=B(rvzl); # 提取 边界 状态 矩 阵 像素 值 ( 右上 角 ) 
S_ul=B_ulxs_ul+(1-B_ul)*s_ul*s_l1*[s_lr+(1-s_1r)*s_ur]; % 左 上 角 状 态 和 矩阵 的 
像素 值 
S_ur=B_urx*s_ur+(1-B_ur)*s_urxs_lr*[s_l1+(1-s_11)*s_ul]; % 右 上 角 状 态 矩 阵 的 
像素 值 
S_11=s_11+(1-s_l11)*[fs_ul*(1-B_ul)+(1-S_Ul)*SsS_uUrwSs_lr*(1-B_ur)]y; % 左 下 角 
状态 矩阵 的 像素 值 


S_lr=s_lr+(1-s_lr)*[s_urw(1-B_ur)+(1-s_ur)w*s_ul*s_ll1*(1-B_ul)]; % 右 下 角 
状态 矩阵 的 像素 值 
S(r,rl-1)=S_11; ， # 更 新 状态 矩阵 左下 角 位 置 的 数值 
S(r,rl)=S_1r; # 更 新 状态 矩阵 右 下 角 位 置 的 数值 
Ss(r-l,rl-1)=S_ul; s% 更 新 状态 矩阵 左上 角 位 置 的 数值 
Ss{(r-l,rl)=S_ur; ，% 更 新 状态 矩阵 右上 角 位 置 的 数值 
enda 
for r2=N+rn+1:2x*N-1; 当 这 个 循环 结构 用 来 计算 中 心 位 置 向 右 侧 的 状态 矩阵 更 符 过 程 
s_ul=S(z-1l,z2); ， s 提取 左上 角 位 置 的 状态 矩阵 数值 
s_ur=S(r-1,r2+1); % 提取 右 土 角 位 置 的 状态 矩阵 数值 
s_11=S(r,z2) 7 g% 提取 左下 角 位 置 的 状态 矩阵 数值 
s_lr=S{tr,r2+1); % 提取 右 下 角 位 置 的 状态 矩阵 数值 
B_ul=B(r,r2); ， $% 提取 边界 状态 矩阵 像素 值 ( 左上 角 ) 
B_ur=B(z,z2+1); % 提取 边界 状态 矩阵 像素 值 ( 右上 角 ) 
S_ul=B_ulx*s_ul+(1-B_ul)*s_ulx*s_l1*[s_lr+(1-s_l1r)*s_ur]; g% 左 上 角 状 态 矩 阵 的 


像素 值 
S_ur=B_urx*s_ur+(1-B_ur)*s_urx*s_lr*[s_11+(1-s_11)*s_ul]; % 右 上 角 状 态 矩 阵 的 
像素 值 
s_11=s_11+(1-s_11)*[s_ul*(1-B_ul)+(1-s_ul)*s_ur*s_lrx(1-B_ur)]; 8 左下 角 
状态 答 阵 的 像素 值 
S_lr=s_lr+(1-8_1r)*[s_urw(1-B_UT)+{(1-S_ur)*sS_uUlws_11*(1-B_ul)]: S% 右 下 角 
状态 符 阵 的 像素 值 
S(r,r2)=S_I1; s# 更 新 状态 矩阵 左下 角 位 置 的 数值 
St(r,rz2+1)=S_1r; g 更 新 状态 矩阵 右 下 角 位 置 的 数值 
S(r-1,r2)=S_ul; # 更 新 状态 矩阵 左上 角 位 置 的 数值 
S(r-l,r2+1)=S_ur;y sg 更 新 状态 矩阵 右上 角 位 置 的 数值 
end 
ena 
Ss=max(S,S_b); s% 联合 边界 甜 阵 和 状态 矩阵 


ss(S_b>0.2)=0.5; ，”$ 把 地 面 以 上 的 边界 部 分 灰 度 值 设置 为 0.5 
settIi,'cData',1-Ss); 8% 更 新 联合 状态 矩 阵 Ss 
set (ti,'String'y [ 履 = num2sttr(k)]); 更 新 时 间 
pause(0.2); gs 暂停 一 下 以 显示 动画 效果 

end 


首先 设置 砂 漏 的 边界 ， 利 用 和 矩阵 S_b 表示 ， 同 时 初始 化 砂粒 所 对 应 的 状态 矩阵 B。 然 后 根据 
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规则 计算 不 同时 刻 的 状态 矩 阵 演化 情况 。 这 里 把 状态 矩阵 和 边界 矩阵 结合 在 一 起 实时 显示 。 上 述 程 
序 所 得 结果 如 图 22.7 所 示 ， 从 中 可 以 看 出 砂粒 下 落 的 情况 。 
人 6 人 16 人 28 





(a) (D) (c) 
图 22.7” 砂 漏 模型 的 截图 
可 以 适当 地 增加 参数 N 的 取 值 ( 如 100 )， 同 时 时 间 模 拟 的 步 数 增加 至 可 以 模拟 更 为 精细 的 界 
面 。 当 然 这 个 砂 漏 过 程 的 模拟 只 是 一 个 粗糙 的 过 程 ， 其 中 未 考虑 砂粒 之 间 的 摩擦 以 及 重力 因素 。 


22.3 细菌 生长 模型 


本 节 来 研究 在 二 维 平 面 上 细菌 繁殖 的 过 程 ,其 基本 模型 是 某 元 胞 处 的 细菌 选择 八 近邻 中 的 空位 
向 外 生长 。 当 存在 多 个 空位 置 时 ， 随 机 选择 一 个 空位 。 同 时 对 细菌 做 如 下 限定 : 细菌 的 寿命 为 ， 
即 当 某 处 细菌 的 生命 大 于 的 时 候 细 菌 死亡 ， 该 位 置 变 为 空位 ; 细菌 存在 一 定 的 死亡 率 己 ， 即 每 个 
时 间 步 内 细菌 受 一 些 外 界 因 素 的 影响 会 死亡 ; 在 细菌 的 生命 力 大 于 fo 的 时 候 才 能 开始 繁殖 ， 之 前 














处 于 幼年 期 。 边 界 的 条 件 为 封闭 性 ， 即 边界 以 外 的 位 置 细菌 不 能 生长 。 
根据 描述 可 以 得 出 如 图 22.8 所 示 的 流程 图 。 
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图 22.8 细菌 生成 模拟 的 流程 图 
利用 二 值 甜 阵 表示 是 否 存在 细菌 ， 其 中 数值 1 表示 存在 细菌 ，0 表示 空位 。 使 用 矩阵 碾 来 记录 
细菌 的 年 龄 。 这 里 细菌 寿命 为 8， 死亡 率 为 0.05。 相 关 的 MATLAB 程序 如 下 ， 
tau=8; % 定义 细菌 的 寿命 
P=0.05; % 定义 细菌 的 死亡 率 


tau0=2; s% 定义 细菌 的 繁殖 年 岭 
N=200; gs 定义 方形 状态 和 矩阵 的 行 数 
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S=zeros(N) ; % 生成 状态 矩 阵 S 
S(N/2:N/2+1,N/2:N/2+1L1)=1; $ 初始 化 状态 矩阵 
L=3xS; s 初始 化 生命 值 
Ii=imshow(1-S); $% 显示 状态 矩阵 
ax=[-1,-1,-1,0,0,1,1,1]); % 用 相对 位 移 来 生成 近邻 坐标 ，dx 用 于 生成 行 位 置 
dy=[-1,0,1,-1,1,-1,0,1]; ， % 用 相对 位 移 来 生成 近邻 坐标 ，dy 用 于 生成 列 位 置 
ti=title('t=0'，'Fontsize',14); # 实时 显示 时 间 
for k=1:300; 
[x,y]=finda(S>0.5 & L>tau0+0.5); $% 找 出 成 年 细菌 
Po=zeros(N); $% 临时 矩阵， 用 于 标记 找 出 的 空位 
for n=1:1ength(x)， 
xt=x(n); ss 提取 成 年 细胞 的 位 置 ( 行 位 置 ) 
yt=y(n); % 提取 成 年 细胞 的 位 置 ( 列 位 置 ) 
xt=xt+dx; % 计算 八 近邻 的 位 置 ( 行 位 置 ) 
yt=Yyt+dy; $% 计算 八 近邻 的 位 置 ( 列 位 置 ) 
xt (yt<0.51yt>N+0.5)=[]; # 除去 边界 以 外 的 近邻 
Yt (yt<0.51Yt>N+0.5)=[]; % 除去 边界 以 外 的 近邻 
yt{(xt<0.51xt>N+0.5)=[]; % 除去 边界 以 外 的 近邻 
xt (xc<0.51xt>N+0.5)=[]; g% 除去 边界 以 外 的 近邻 
Inda=sub2ind{( [N,N],xt,yt); % 转化 为 索引 坐标 
cc=fird(S(Ind)<0.5 & Po(Ind)<0.5); s% 找 出 近邻 中 的 空位 
ra=randperm(length(tcc)); sg% 产生 一 个 随机 序列 
ra(2:end)=[]); 当 删 去 第 二 个 以 后 的 元 素 
Po(xt(ra)jvyt(ra))=1; gs 标记 空 的 位 置 
endG 
S{Po>0.5)=1; % 把 选 出 的 空位 设置 为 细菌 
L=L+[S>0.5]; # 生命 值 累加 
R=rand(N); ss 生成 随机 和 矩阵， 控制 细菌 的 死亡 
S(R<p)=0; % 死亡 细菌 出 的 细 蕊 状态 置 0 
L(R<p)=0; sg 死亡 细菌 出 的 生命 值 填 0 
S(L>tau+0.5)=0; $% 到 达 寿 命 时 细菌 死亡 
LDL(L>tau+0.5)=0; #% 到 达 寿 命 时 ， 细 菌 生命 力 置 0 
set(Ii,'CData',1-S); #% 更 新 显示 矩阵 
set(ti,'String'，,['t = ',num2str(k)]); % 更 新 显示 时 间 
pause(0.2); 8% 暂停 一 下 以 显示 动画 效果 


end 


执行 上 面 的 程序 可 以 模拟 细菌 的 生长 过 程 。 下 面 给 出 时 间 在 :=100 ，t= 200 和 +=300 时 的 图 
案 ， 如 图 22.9 所 示 。 





图 22.9 细菌 生成 模拟 得 到 的 图 案 
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把 语句 “Sc(()=sum(sum(L==3))/sum(S(:));” 放 在 语句 “pause(0.2);” 的 下 一 行 ， 可 以 用 来 
计算 年 龄 为 3 的 细菌 占 细菌 的 比例 。 同 时 利用 下 面 的 语句 绘制 相应 的 曲线 : 
figure;plot(Sc); % 绘图 
xlabel('Time','Fontsize',14,'Fontname'，'Times new roman'); % X 轴 标注 
ylabel('f\itL)}_3V{fNitN)_{total}' Fontsize' ,14,'Fontname'，'Times new roman， )7 
Y 轴 标 注 

进行 上 面 补充 之 后 执行 程序 可 以 得 到 如 图 22.10 所 示 的 曲线 , 即 年 龄 为 3 的 细菌 占 细菌 总 数 随 
时 间 变 化 的 曲线 。 可 以 看 出 在 最 初时 这 个 比例 值 起 伏 比 较 大 ， 在 := 200 以 后 这 个 比例 只 是 在 小 的 
范围 内 变化 ， 达 到 一 个 平衡 状态 。 类 伏地 ， 可 以 计算 其 他 相关 的 曲线 来 反映 细菌 生成 过 程 的 特征 。 














0 开 100 19 20 250 300 
Time 


图 22.10 年 龄 为 3 的 细菌 占 总 细菌 数 的 比例 数值 曲线 
可 以 变化 相关 的 参数 ， 如 细菌 寿命 、 死 亡 率 等 以 研究 细菌 的 生长 问题 。 此 外 还 可 以 对 生长 模型 
进行 修正 以 深入 研究 。 在 这 个 细菌 生长 过 程 模拟 中 ,使 用 随机 数 来 控制 细菌 的 死亡 ,以 及 八 近邻 空 
位 中 的 随机 选择 。 而 且 与 前 面 不 同 的 是 , 除了 元 胞 状态 矩阵 之 外 还 存在 着 其 他 中 间 控 制 矩阵 ， 如 年 
龄 矩阵 L、 标 记 空 位 情况 的 矩阵 Po 等 。 


22.4 气体 扩散 


HPP 规则 最 早 是 由 法 国 科 学 家 Hardy，Pomeau 和 Pazzis 提出 的 ， 因 此 其 名 称 由 这 3 个 人 名 
字 的 首 字 母 缩 写 而 成 。 它 是 一 种 重要 的 元 胞 自动 机 , 用 于 描述 离散 形式 的 格子 气 委 动机 时 空 演变 情 
况 。 其 基本 研究 对 象 是 按 适 当 规 则 在 元 胞 位 置 上 运动 的 粒子 。 元 胞 状态 是 二 值 的 ， 即 “1” 表 示 该 
位 置 存在 粒子 ，"0” 表 示 该 位 置 为 空 。 

下 面 考 虑 粒子 的 运动 规则 。 在 一 个 2x2 区 域 上 研究 粒子 状态 的 改变 。 如 图 22.11 所 示 ( 灰 点 
表示 该 位 置 有 粒子 ), 其 中 给 出 6 种 可 能 状态 的 变化 情况 , 实际 上 共有 16 种 可 能 的 状态 。 在 图 22.11 
中 ， 图 (aj 和 图 从 没有 发 生变 化 ， 图 (b)、 图 (c) 和 图 (e) 的 规律 可 以 总 结 为 : 4+1 时 刻 粒子 的 状态 可 以 
表示 为 前 一 时 刻 ! 的 粒子 沿 主 、 副 对 角 线 方向 交换 粒子 状态 ， 而 图 (3aj 和 图 人 仙 也 可 以 认为 是 这 样 规 则 
得 到 的 结果 。 但 是 图 (d) 的 变化 结果 对 应 着 粒子 之 间 的 非 平 凡 碰 撞 ， 粒 子 的 状态 变化 不 在 对 角 线 上 ， 
而 是 沿 上 下 方向 交换 粒子 的 状态 ， 或 者 说 沿 左右 方向 交换 粒子 的 状态 。 
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图 22.11 不 同情 况 粒子 状态 变化 的 规律 

为 了 使 粒子 演化 具有 流动 性 , 这 里 在 时 间 步 为 奇数 时 选择 点 划 线 围 成 的 区 域 计 算 , 而 在 偶数 时 
间 步 内 选择 虚线 标记 的 区 域 进行 计算 。 也 就 是 说 在 偶数 时 间 步 内 , 计算 区 域 是 从 区 域 丰 上 角 开始 计 
算 ， 而 奇数 时 间 步 内 将 分 别 在 水 平和 竖 直 方向 上 向 和 右 向 下 移动 一 个 元 胞 格 位 。 

如 图 22.12 所 示 , 一 个 矩形 封闭 区 域内 被 一 个 带 空 的 隔 板 分 为 两 个 部 分 。 在 计算 中 把 左 侧 的 矩 
形 区 域 视 为 “一 区 "， 中 间隔 板 上 的 空 对 应 的 狭窄 区 域 视 为 “二 区 "， 右 例 和 矩形 区 域 视 为 “三 区 "。 
区 域 处 的 衔接 方式 要 和 图 22.13 所 示 的 时 间 步 选择 相 匹配 ， 从 而 “二 区 ”部 分 可 以 成 为 粒子 在 “一 
区 ”和 “三 区 " 之 间 过 往 的 通道 。 在 计算 中 要 限定 粒子 只 能 在 可 能 进入 的 元 胞 位 置 上 运动 。 在 初始 
时 粒子 的 布局 如 图 22.14 所 示 。 




















图 22.14 粒子 的 初始 布局 
根据 上 面 的 分 析 ， 可 以 编写 出 相应 的 实现 程序 ， 内 容 如 下 ， 


funccion diffuse 

rand('state' ,0)， 

set (gcf, 'DoubleBuffter'，'on'); 
N=300; % 设置 状态 矩阵 的 列 数 
M=120; % 设置 状态 矩阵 的 行 数 
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h=2; $% 设置 边界 的 宽度 
xp=round{N/2); % 计算 中 间隔 板 的 位 置 
D=round(M/12); $% 计算 中 间 开 孔 的 半 宽 度 
B=ones (M,N) ; % 生成 边界 矩 阵 B， 其 元 素 等 于 0 的 位 置 粒子 不 能 进入 ， 等 于 1 的 位 置 可 以 进入 
B{1:h,:)=0; $% 设置 上 侧 边界 
B(:,1:h)=0; % 设置 左 侧 边界 
B(:,N-h+1:N)=0; g% 设置 右 侧 边界 
B{(M-h+1:M,:)=07 $% 设置 下 面 的 边界 
B(:,xp:xp+h-1)=0; g 设置 中 间 的 隔 板 
B{round(M/2)-D+l:round(M/2)+D,xp:xp+h-1)=1; # 在 隔 板 中 间 开 和 孔 
S=zeros (M,N) ; 当 生成 粒子 状态 矩阵 ， 等 于 1 的 位 置 表示 有 粒子 ， 等 于 0 的 位 置 表示 没有 粒子 
S (h+1:M-h,h+1:xp-1)= [rand(M-2*h,xp-h-1)>0.5]; s% 在 左 侧 区 域 上 随机 布 上 粒子 
Tc=700; $ 设置 演化 过 程 的 总 时 间 
C=min{(1-S,B);， $ 综合 状态 矩阵 与 边界 矩阵 B 为 显示 和 矩阵 c 
ax=Subplot (211) ;asa=imshow{c, []); $# 显示 初始 时 的 粒子 分 布 图 案 
ti=title('time = 0'); % 在 图 题 出 添加 时 间 值 
rL=sum{sum(S(:,1:xp)))/[(xp-h)*(M-2*h)]; #% 计算 左 侧 粒子 密度 
rR=sum(sum(S(:,xp+h:N)))/[(N-xp-2*h+1)*(M-2xh) ]; &# 计算 右 侧 粒子 密度 
subplot (212);p1=plot (1,rL,'z-') ;xlim([1,Tc]l);s 绘制 左 侧 密度 曲线 
hold on;p2=plot (1,rR, 'k--');s% 绘制 右 侧 密度 曲线 
xlabel(' 时 间 ') ; # X 轴 标注 
Ylabel(' 时 间 ' ) ; 8s Y 轴 标注 
legend ( ' 左 侧 密度 ' ，' 右 侧 密度 ' ) ; s 加 注 图 例 
for k=l:Tc; 
p=moda(k,2); # 判断 奇数 或 者 偶数 时 间 步 
xl=h+1+p:2:xp-3+p; 8 计算 一 区 位 置 坐标 数据 {X 轴 ) 
YL1=h+1+p:2:M-h-2+pP; $ 计算 一 区 位 置 坐标 数据 {(Y 轴 ) 
x2=xp-l+p:2:xp+h-1+p; g% 计算 二 区 位 置 坐标 数据 (X 轴 ) 
Y2=rounda(M/2) -D+2:2:round(M/2)+D-1; 8% 计算 二 区 位 置 坐标 数据 (Y 轴 ) 
x3=xp+h+1+p:2:N-h-2+p; g% 计算 三 区 位 置 坐标 数据 {(Y 轴 ) 
Y3=h+1l+p:2:M-h-2+pP; % 计算 三 区 位 置 坐标 数据 (X 轴 ) 
St=S; #% 初始 化 中 间 短 阵 Sc 


St{(y1,x1l)=S(Yy1+1,xl+l1); g% 一 区 交叉 换 位 
St(y1+1,xl+1)=S(yl1,xl); #% 一 区 交叉 换 位 
St(yl,xl+1)=S(yL+1,xl)7 % 一 区 交叉 换 位 
St{y1+1,x1l)=S(yl,xl+1)) sg 一 区 交叉 换 位 
St(y2,x2)=S(yY2+1,x2+1); % 二 区 交叉 换 位 
St (y2+1,x2+1)=S(Y2,x2)) $% 二 区 交叉 换 位 
St(Y2+1,x2)=S(y2,x2+1); % 二 区 交叉 换 位 
St (yY2,x2+1)=S(y2+1,x2)) g# 二 区 交叉 换 位 
St(y3,x3)=S(Y3+1,x3+1); % 三 区 交叉 换 位 
St(y3+1,x3+1)=S(Y3,x3); % 三 区 交叉 换 位 
St(y3+1,x3)=S(y3,x3+1)) g% 三 区 交叉 换 位 
St(y3,x3+1)=S(Y3+1,x3)) &% 三 区 交叉 换 位 
St=changep (St,S,xl,yl); % 计算 一 区 非 平凡 碰撞 
St=changep (St,S,x2,Y2); g% 计算 二 区 非 平 凡 磁 撞 
St=changep(St,S,x3,y3); % 计算 三 区 非 平凡 碰撞 


S=St; % 更 新 状态 阜 阵 S 的 数值 
set (ti,'String', ['time = 'num2str(k)]); $% 更 新 图 题 处 的 时 间 数 值 
set (asa,'CData',min(1-S,B)); $% 更 新 粒子 状态 的 图 案 
xD(k+1)=sum(sum(S{:,1:xp)))/[(xp-h)*(M-2*h)]; % 计算 左 侧 粒子 密度 
rR(k+1)=sum(sum(S(:,xp+h:N)))7/T(N-xp-2x*h+1)*(M-2x*h)]; # 计算 右 侧 粒子 密度 
set (p1,，'XData' ,1:k+l,'YData'yzD); #% 更 新 左 侧 密 度 曲 线 的 数据 
set (P2,，'XData',1:k+l,'YData',rR); % 更 新 右 侧 密度 曲线 的 数据 
pause(0.2); * 暂停 一 下 ， 显 示 动 画 效 果 

end 
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function St=changep (St,S,X,Yy); 
# 这 里 使 用 水 平方 向 和 竖 直 方向 同时 求 和 ， 当 所 有 和 值 都 等 于 1 时 即 为 对 角形 式 
Sr1=S(Yy+1,x)+S{tYy,x); g% 第 一 列 竖 直 方向 求 和 
Scl=S(y,x+l)+S(y+1,x+1l); 第 二 列 紧 直 方向 求 和 
Sr2=S(y,x+l)+S(y,x); sg 第 一 行 水 平方 向 求 和 
Sc2=S(Yy+1,x)+S(Y+1,x+l); $% 第 二 行 水 平方 向 求 和 
[p,q]=find(Sr1==1&Scl==1&Sc2==1&Sc2==1); # 找 出 4 个 和 值 都 等 于 1 的 位 置 
for k=1:1length(p): 
Stty(p(k)),x(q(k)))=S(y(P(k))+1,x(G(k)));， % 第 一 列 上 下 交换 赋值 
St(y(p(k))+1,x(G(k)))=S(y(Pp(k)),x(gG(k))); #* 第 一 列 上 下 交换 赋值 
St(y(p(k)),x(q(k))+1)=S(y(P(k))+1,x(g(k))+1); % 第 二 列 上 下 交换 赋值 
St(y(P(k))+1,x(q(k))+1)=S(y(P(k)),x(G(k))+1)， g% 第 二 列 上 下 交换 赋值 
EnaQ 


首先 生成 粒子 的 初始 布局 和 边界 情况 ,然后 根据 粒子 扩散 的 规律 计算 不 同时 刻 粒 子 位 置 变化 情 
况 ， 并 把 粒子 各 时 刻 位 置 以 动画 形式 显示 出 来 。 其 中 子 函数 changep 用 于 计算 粒子 位 置 的 变化 。 
上 述 程序 是 一 个 函数 文件 的 格式 ， 把 上 面 的 程序 保存 为 diffuse 即 可 执行 并 得 到 相应 的 模拟 结果 。 
执行 上 述 程序 结束 后 可 以 得 到 如 图 22.15 所 示 的 结果 。 


lime = 700 








100 200 300 400 500 600 700 
时 间 


图 22.15 ”粒子 扩散 过 程 的 模拟 


SA 在 模拟 粒子 向 右 侧 空 区域 扩 散 的 过 程 中 ， 实 时 地 显示 了 左右 两 侧 粒 子 密度 的 变化 
注意 


翘 = 情况。 可见 在 一 定时 间 后 两 侧 粒 子 密度 相等 ， 达 到 了 平衡 状态 。 


在 下 面 的 网 址 中 可 以 下 载 到 格子 气 模拟 的 小 程序 ， httpWinstruct1.cit.cornelledu/ 
courses/bionb441/CAgas2.m。 感 兴趣 的 读者 可 以 研究 其 实现 的 算法 。 


22.5 ”蚂蚁 规则 


蚂蚁 规则 是 由 C. Langton 和 G. Turk 提出 的 一 种 元 胞 自动 机 , 这 个 规则 通过 简单 的 运动 算法 来 
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模拟 蚂蚁 在 地 面 上 的 行为 。 在 一 个 二 维 区 域内 , 元 胞 的 状态 用 黑白 两 种 颜色 表示 ， 其 中 黑色 对 应 矩 
阵 元 素 的 数值 为 0， 白色 对 应 和 矩阵 元 素 的 数值 等 于 1。 蚂 上 蚊 运 动 到 白色 的 元 胞 时 ， 对 应 的 元 胞 变 为 
黑色 同时 蚂蚁 的 运动 方向 道 时 针 转 90? ;蚂蚁 运动 到 黑色 的 元 胞 时 ， 对 应 的 元 胞 变 为 白色 同时 昌 
蚁 的 运动 方向 顺 时 针 转 909 。 上 面 就 是 蚂蚁 规则 的 内 容 ， 可 见 这 个 规则 非常 简单 ， 但 它 却 是 一 个 
复杂 的 演化 过 程 。 

下 面 考虑 蚂 蚊 规则 的 程序 实现 。 这 里 设置 蚂 蚊 初始 的 位 置 是 ( 如, yo ) , 蚂蚁 在 每 个 时 间 间 隔 内 
移动 的 长 度 是 1。 这 里 把 蚂蚁 的 位 置 利用 一 个 复数 表示 ， 即 ; 

Z= 为 +Ji ({ 22-10 ) 

利用 一 个 参数 4 来 控制 蚂蚁 运动 方向 的 改变 。 这 里 4 是 一 个 在 单位 圆 上 的 复数 ， 其 可 能 取 值 
为 { 全 11 于 4 个 数 中 的 一 个 , 其 中 -1 和 1 分 别 表示 向 左 和 向 右 运动 , -i 和 ji 分 别 表 示 向 下 和 向 上 
运动 。 蚂 蚁 运动 方向 的 改变 可 以 使 用 下 面 的 表达 式 来 实现 。 
(-i)4，S(xy)=0 
i4， 8S(zy)=1 

其 中 $ (zy) 是 状态 矩阵 的 数值 ， 式 ( 22-11 ) 可 以 实现 在 黑色 元 胞 处 顺 时 针 旋 转 90 、 在 和 白 
色 元 胞 处 逆 时 针 旋 转 90? 。 根 据 上 面 的 分 析 ， 可 以 设计 出 蚂蚁 规则 实现 的 流程 图 ， 如 图 22.16 所 


不 o 


aaCoveoi| ( 22-11 ) 
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图 22.16 ”蚂蚁 规则 实现 的 流程 图 
这 里 取 参 数 如 下 : 状态 矩阵 的 大 小 是 256 x 256， 一 只 蚂蚁 最 初 处 于 (128, 128) 位 置 处 ， 该 处 元 
胞 的 颜色 为 黑色 , 其 他 点 的 颜色 为 白色 , 初始 时 蚂蚁 向 左 运动 ( 即 A=i ), 模拟 的 时 间 长 度 是 12000 
步 。 在 流程 图 的 基础 上 可 以 得 到 蚂蚁 规则 的 实现 程序 ， 具 体内 容 如 下 : 


N=256) g# 设置 方形 状态 矩阵 的 大 小 
S=ones(N); # 设置 方形 状态 矩阵 为 全 1 矩阵 
x=fix(N/2); % 计算 初始 时 蚂蚁 的 位 置 
Yy=fix(N/2); g% 计算 初始 时 蚂蚁 的 位 置 
S(x,y)=0; sg# 设置 初始 时 蚂蚁 所 在 位 置 为 黑色 
Z=X+Yywii 用 一 个 复数 表示 蚂蚁 的 位 置 
Ii=imshow(S,[]); #% 显示 状态 和 矩 阵 
kk=12000; g 设置 总 的 时 间 步 数 

RM=iy #% 设置 初始 时 蚂 雯 运动 的 方向 
ti=titlelrtime = 0! ,Fontsize',14,'Fontname' Times New Roman'); 负 实时 显示 时 间 
Eor Kk=1:kky 
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z=Z+R; % 更 新 蚂蚁 的 位 置 ， 沿 运动 方向 前 移 一 个 距离 

x=real(z) ; % 从 复数 坐标 中 取 位 置 坐 标 

Y=imag(z) ; % 从 复数 坐标 中 取 位 置 坐标 

有 R=RAwixr(-1)^(1+S(X,y))) 委 人 
S(x,y)=~S(x,yY); g% 改变 当前 位 置 的 颜 

set (Ii,'CData',S)7 $% 更 所 中 天 的 杖 晴 细 

set (ti,'Scring' ['time = 'vnum2str(k)])) % 更 新 显示 时 间 
pause(0.1); $% 暂停 一 下 显示 动画 效果 


执行 上 面 的 程序 可 以 实现 蚂蚁 规则 ， 在 本 2000, 4000, 6000, 7000, 8000, 9000, 10000, 11000 
和 12000 等 时 间 点 处 的 图 案 如 图 22.17 所 示 。 可 见 在 一 定时 间 之 后 蚂蚁 将 会 离开 混沌 的 状态 ， 并 
沿 左上 角 45? 方向 运动 。 





图 22.17 ”蚂蚁 规则 得 到 图 案 


前 面 研 究 了 一 只 和 蚁 在 平面 上 运动 的 情况 , 下 面 来 考虑 多 只 蚂蚁 在 平面 上 运动 的 情况 。 这 里 给 
出 4 只 蚂蚁 在 平面 上 运动 的 情况 ， 把 4 只 蚂蚁 布 局 在 状态 矩阵 的 中 心 处 相 邻 的 4 个 位 置 。 它 们 具 
有 不 同 的 初始 速度 ， 如 图 22.18 所 示 。 其 中 的 箭头 表示 蚂蚁 运动 的 初始 方向 ，A，B，C 和 D 处 元 
胞 初始 时 的 颜色 设置 为 黑色 , 状态 矩阵 其 他 位 置 的 元 胞 设置 为 白色 。 在 每 个 时 间 间 隔 内 , 执行 蚂蚁 
规则 按 初始 时 A，B，C 和 D 4 只 蚂蚁 的 先后 顺序 进行 计算 。 根 据 前 面 介绍 的 蚂 蚊 规则， 实现 多 只 
蚂蚁 的 运动 行为 的 研究 。 程 序 实 现 的 结构 如 图 22.16 所 示 。MATLAB 程序 内 容 可 以 参见 光盘 中 \Ch22 
文件 夹 下 的 langton4.m 文件 。 

在 图 22.18(a) 所 示 的 初始 条 件 下 ， 选 择 状 态 矩 阵 的 大 小 为 200x 200 。 运 行 2000 步 可 以 得 到 如 
22.19 所 示 的 图 形 。 可 见 在 这 样 的 情况 下 ，4 只 蚂蚁 没有 在 中 心 区 域 进行 往复 的 混乱 运动 ， 而 是 
直接 进入 分 离 的 状态 且 它 们 都 是 在 与 状态 矩阵 主 、 副 对 角 线 平行 的 方向 上 运动 。 

下 面 再 考虑 在 图 22.18(b) 所 示 的 初始 条 件 下 的 演化 结果 。 取 状态 矩阵 的 大 小 为 S12x512 ， 模 
拟 时 间 总 长 度 是 23000， 在 时 间 t = 13000 和 14000 时 的 图 案 如 图 22.20 所 示 。 
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二 一 


图 22.18 4 只 蚂蚁 的 初始 状态 示意 图 图 22.19 4 只 蚂蚁 让 行 而 得 到 的 图 案 











图 22.20 4 只 蚂蚁 运 动 时 的 图 案 
可 以 选择 更 大 的 状态 和 矩阵 或 者 更 长 的 时 间 来 模拟 蚂蚁 运动 的 情况 ,此 外 不 同 的 初始 条 件 对 结果 
影响 很 大 。 下 面 再 来 考虑 一 种 状态 矩阵 初始 时 不 同 的 情况 , 即 在 状态 矩 阵 中 有 一 条 黑色 的 元 胞 状态 
来 研究 蚂蚁 穿 过 黑色 条 的 情况 ， 相 应 程序 在 光盘 中 \Ch22 文件 夹 下 的 langton1w.m 文件 中 。 执行 这 
个 程序 可 以 得 到 如 图 22.21 所 示 的 图 案 , 其 中 给 出 了 不 同时 刻 的 演化 结果 。 从 图 22.21 中 可 以 看 出 ， 
在 蚂蚁 未 到 达 黑色 条 时 与 前 面 图 22.17 所 示 的 行为 一 致 。 但 是 蚂蚁 运动 到 黑色 条 时 ,其 将 围绕 黑色 
条 运动 ， 如 图 22.21(f) 所 示 。 





图 22.21 带 有 黑色 条 的 一 只 蚂蚁 运动 的 演化 
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通过 本 节 介绍 的 蚂蚁 规则 可 以 看 出 一 个 简单 的 元 胞 自动 机 模型 ,设置 不 同 的 初始 条 件 可 以 演化 
出 非常 丰富 的 图 案 。 感 兴趣 的 读者 可 以 在 前 面 介绍 的 基础 上 研究 其 他 情况 的 结果 。 


22.6 ”六 边 形 格子 的 粒子 运动 


前 面 介 绍 的 元 胞 自动 机 的 状态 矩阵 描述 的 都 是 矩阵 ， 它 所 能 表达 的 元 胞 是 一 系列 的 方形 格子 。 
研究 的 粒子 只 能 在 水 平和 竖 直 两 个 方向 匀速 率 运动 。 本 节 来 研究 在 六 边 形 格子 上 的 粒子 运动 行为 。 
这 种 元 胞 自动 机 的 格子 状态 如 图 22.22 所 示 , 其 中 粒子 可 以 在 6 个 不 同 的 方向 上 同 速 率 运动 。 在 图 
22.22 中 ， 不 能 直接 使 用 矩阵 来 表述 其 中 的 格子 位 置 ， 但 可 以 把 总 的 网 格 分 为 两 类 ， 即 白色 和 灰色 
两 种 网 格 。 这 时 和 白色 网 格 和 灰色 网 格 都 是 正 交 的 阵列 ， 因此 可 以 使 用 两 个 矩阵 多 和 CG，, 其 中 册 表 
示 白 色 圆圈 对 应 的 格子 位 置 的 状态 值 ，C 表示 灰色 圆圈 对 应 的 格子 位 置 的 状态 值 。 元 胞 自动 机 的 
规则 就 是 在 两 个 状态 矩阵 之 间 交 替 地 作用 。 
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图 22.22 ”六 边 形 格子 的 片断 


下 面 给 出 一 个 六 边 形 格子 上 元 胞 自动 机 的 例子 。 这 里 给 出 一 个 容器 内 粒子 受 重力 作用 下 落 的 过 
程 模拟 。 如 图 22.23 所 示 ， 在 ! 时 刻 ，A 处 有 一 个 粒子 ( 其 被 网 格 标注 )， 而 B 处 和 D 处 的 格 位 是 
空 的 ， 那么 A 处 的 粒子 将 有 可 能 运动 到 B 处 或 者 D 处 。 至 于 运动 到 B 处 还 是 D 处 ， 要 根据 A 处 粒 
子 受到 上 面 粒子 的 作用 力 来 决定 : 如 果 A 受到 的 合力 分 量 向 左 ， 那 么 A 处 粒子 将 会 运动 到 B 处 ， 
反之 则 运动 到 D 处 ， 当 受 力 左 右 平衡 时 ， 那 么 A 处 的 粒子 将 会 随机 地 运动 到 B 处 或 者 D 处 ， 这 里 
使 用 概率 己 来 控制 。 对 于 B 处 或 者 D 处 只 有 一 处 为 空 时 ，A 处 粒子 将 运动 到 空缺 的 格 位 。 如 果 B 
处 和 D 处 都 有 粒子 占据 的 时 候 ，A 处 的 粒子 将 停留 在 原 处 。 

如 图 22.24 所 示 , 是 研究 其 中 黑色 区 域 粒 子 受 重力 作用 下 落 的 过 程 模拟 。 粒子 被 束缚 在 一 个 圆 
形 的 回转 体内 , 粒子 从 下 面 的 环形 开口 下 落 , 左 图 显示 的 是 一 个 过 中 心 轴 的 截面 ， 右 图 是 顶层 粒子 
形成 的 曲线 。 主 程序 如 下 : 
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图 22.23 ”六 边 形 格子 的 演化 规则 示意 图 





图 22.24 ”回转 体内 粒子 下 落 的 模拟 


Ny=116) # 线 粒 子 总 数 

Nx=round{(Ny/ [NYy/[1097/4.47]])， 

R&Ro=pi/3; sg% 元 胞 格子 的 角度 

dx=20; 格子 在 X 轴 方 向 的 边 长 ， 

Gy=dx/tan{(a0) ; % 格 子 在 Y 轴 方向 的 边 长 

[xb, Yb] =meshgria([0:Nx] *dx,dy/2+[0:NYy-1]*dy) ;% 蓝 色 粒子 单 便 坐 标 
[xr,Yr]=meshgria([0:Nx-1]*dx+dx/2, [0:Ny]*dy) ;% 红 色 粒 子 单 便 坐 标 
xb=[-fliplr(xXb(:,2:end)),Xbl]; 8#% 关于 x=0 轴 对 称 处 理 


Yb=[fliplr(Yb(:,2:end)),Yb]; ， s# 关于 Y=0 轴 对 称 处 理 
Xr=[-Eliplr(Xr)，Xr]); % 关于 x=0 轴 对 称 处 理 
Yr=[fliplr(Yr)vYr]; % 关于 Y=0 轴 对 称 处理 
Mr=ones (size(Xr) )， #% 红色 粒子 状态 矩阵 
Mb=ones (size(Xb) ) ; # 蓝 色 粒子 状态 矩阵 
R=max(Xb(:))7 s# 炉膛 的 半径 
H=max(Yz(:))， s# 炉膛 的 高 度 


x1=8/10;KXCc=SGFE (1.5) 
Mb {(Xb-KcxwYb>Rxwx1)=-11; % 切 去 边界 下 角 
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Mr (Xr-Kc*Yr>RxXx1)=-1; 当 切 去 边界 下 角 
Mb (Xb+KcwYb<-Rxxl)=-1;  % 切 去 边界 下 角 
Mr (Xr+KCwYr<-RxwXx1l)=-17; g% 切 去 边界 下 角 


x2=0.3;1d2=0.3; s 切 分 流 器 

Mb (abs (Xb) <R*x2&Xb+Kc*Yb<Rrd2&Xb-KCcxYb>-Rxd2)=-17 % 切 分 流 器 

Mr (abs (Xr) <Rrx2&XL+KC*YL<Rrd2&XT-KCx*Yr>-Rxd2)=-1; g% 切 分 流 器 
x3=0.4;Ka=0.5; % 切 分 流 器 

Mb (abs (Xb) <Rxx2*Ka&Xb+KC*Yb<RxXx3&Xb-Kc*Yb>-R*x3)=-1; sg 切 分 流 器 

Mr {abs (Xr) <RxXx2xKa&Xr+KC*Yr<RxrX3&Xr-KC*YT>-RrXx3)=-17 g% 切 分 流 器 

X4=0.8; 

Y1=1.67; 

Mb (abs (Xb) >R*x4&[Xb+saqrt (3) *Yb>H*y11Xb-sqrt(3)*Yb<-H*y1])=-1;g% 切 去 边界 上 部 
Mr (abs (Xr) >Rywx4&[Xr+SdGrE(3) *YL>HwYy11IXr-Ssqrt(3)*Ytr<-H#*y1])=-1: # 切 去 边界 上 部 
D1L=1 .73: 


Mb (abs (Xb) <=Rx*x4& [Xb+sqrt (3) *Yb>H*D11Xb-saqrt (3) *Yb<-H*D1])=-1;g% 切 去 边界 上 部 
Mr (abs (Xr)<=Rx*x4&[Xr+SQrE(3) *Yr>H*D11Xr-sqrt(3) *Yr<-Hx*D1])=-1; g 切 去 边界 上 部 
Subplot (121) 
P1=p1lLot (Xb (Mb==1),Yb (Mb==1)，'ro'，'markerfacecolor','r'，'markersize' ,4) 17 
hold ony; 
P2=plot (Xr (Mr==1),Yr(Mr==1)，'ro'，'markerfacecolor'，'r'，'markersize',4):， 
ks=0.5}; 
plot ( [Ryxl+dxx*ks,R+dGxx*ks-dx/4,R+Gxr*ks-Gx/4，RrX4+Gx*kS，R+Xxd4+dX*KkS]，..， 
[0, (1-xl)*R7Kc,H*0.76,Hx*0.76+(1-Xx4)/sqrt (3) *R,HB+3xdy+30]，..。 
'k'4y 'LIinewidth',2); sg 画 右边 界 
Plot (- [Re*xl+dx*ks,R+dx*ks-dx/4,R+dxx*ks-Gx/4,Rwxd+dxwks,Ryxd+dxrks]l，... 
[0,，(1-xl)*R/VKc,H*0.76,Hr0.76+(1-x4)/SqrL(3)*R,H+3xdy+30]，.。。。 
'k'y'linewidth',2);  % 画 左边 界 
ks=0.4; 
Plot ( [-RxXx2+Gxxks,，-RxX2xKB+GX+KS， 一 RxX2*+Ka+GX*KS，0,RxX2*Ka-dxXxks,RxX2x#Ka-Gdxxwks， 
R*X2-dx*ks],.-。 
[0,RwXx2/KCc/2.3,RwX2/KCw0.9,RyX3/KC-GQx/2/Kc，..。 
ReXx2/KCc*0O.9,RwXx2/KC/2.3,0],，... 
"ko 'Linewidth' ,2); *# 画 分 流 器 
set (gcf, 'DoubleBuffer','on'); g% 控制 动画 效果 的 闪 动 
xlim([-486,486]); 
Ylim(ylim+ [max(ylirm) -min(ylim)]/LO*[0,1]+[-dy,0]); 
axis equal 
Xc=0; 
S=sum(Mr (Mr>0.5)) +sum(Mb (Mb>0. 5) ) ;% 求 出 粒子 总 数 
R=max (max (Xb-Xc) ) ; # 求 出 炉膛 半径 坐标 长 度 
Lb=sqrt (R^2-Xb.^2); s 求 出 红色 粒子 受 力 权重 系数 矩阵 
Lr=sqrE(R^2-Xr.^2);  % 求 出 蓝 色 粒 子 受 力 权重 系数 和 矩阵 
Ti=title(['Times = ',num2stz(0)],，'Fontsize',18,..- 
Fontname'，'Times new roman');g 在 图 题 处 实时 显示 运行 时 间 
YL=Yylim;s 获取 当前 图 形 的 Y 轴 范 转 
xL=xlim;g 获取 当前 图 形 的 X 轴 范 转 
Po=get{gca, 'Position');s 获取 当前 图 形 的 位 置 
subplot (122) ;% 开 第 二 子 图 
NL=size(Xr,2)+size(Xb,2);g% 求 出 红色 粒子 的 坐标 矩阵 和 蓝 色 粒子 坐标 矩阵 的 总 列 数 
xt(1:2:NL)=XxXb(1, :);s# 合成 红色 粒子 和 蓝 色 粒子 的 坐标 矩阵 第 一 行为 一 个 行 向 量 
xt(2:2:NL)=Xr(1, :)7;g% 合成 红色 粒子 和 蓝 色 粒 子 的 坐标 矩阵 第 一 行为 一 个 行 向 量 
yt(1:2:ND)=max(Yb.*Mb) ;% 求 出 最 上 层 粒子 的 坐标 
yt(2:2:NL)=max(Yr.*Mr);g 求 出 最 上 层 粒子 的 坐标 
pt=plot (xt,Yt,，'k');g 求 出 最 上 层 粒子 对 应 的 曲线 
ylim(YL) ;#% 设置 第 二 子 图 的 Y 辆 范围 与 第 一 子 图 相同 
xlim(XD) ;% 设置 第 二 子 图 的 X 轴 范 围 与 第 一 子 图 相同 
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T=07;g 初始 化 时 间 
Mr (1,Mr(l, :)>0.5)=0;% 设 置 最 小 层 红色 粒子 为 空 (用 0 表示 空 粒 子 ) 
while S>0.5;#% 当 粒子 数 大 于 0.5 时 程序 保持 运行 状态 ， 否 则 程序 停止 
S=sum(Mr (Mr>0.5))+sum(Mb(Mb>0.5) ) ;s 求 出 当前 炉膛 内 的 粒子 总 数 
[Mr,Mb] =pmovingg3 (Mr,Mb,Lr,Lb) ;gs 计算 炉膛 内 粒子 的 运动 
MIt=Mb;s$ 置 换 当 前 红色 粒子 矩阵 为 M1t 
M2t=Mr;S 置 换 当 前 蓝 色 粒子 矩阵 为 M2t 
M1t (MLIt<0.5)=nan;g 用 非 nan 来 表示 M1t 中 状态 为 0 和 边界 -1 
M2t (M2t<0.5)=nan;s 用 非 nan 来 表示 M2t 中 状态 为 0 和 边界 -1 . 
X1t=Xb .*M1t;s% 获 得 当前 红色 粒子 的 X 坐标 一 
X2t=Xr . *M2t7g% 获 得 当前 蓝 色 粒子 的 X 坐标 
Y1t=Yb.*M1t;% 获 得 当前 红色 粒子 的 Y 坐标 
Y2t=Yr.*M2t;% 获 得 当前 蓝 色 粒子 的 Y 坐标 
set (P1,'Xdata',Xlt(:)，'Ydata',Ylt(:) )7% 更 新 红色 粒子 的 坐标 
set (P2,'Xdata',X2t(:)，'Ydata',Y2t(:) )18 更 新 蓝 色 粒子 的 坐标 
T=T+1;g 暴 加 计数 器 
Set (Ti,，'SsString'，['Times = ,num2Str(T)，'，SUM = 
num2str (S) ] ) ;g% 更 新 计数 器 和 总 粒子 数目 
yt (1:2:NL) =max(Y1t) ;$% 计 算 最 顶层 的 蓝 色 粒子 Y 坐标 
yt(2:2:NL) =max(Y2t) ;$% 计 算 最 顶层 的 红色 粒子 Y 坐标 
strq=['AYyY_' ,num2sStr (T)，' .txt']; 
set (pt, 'Ydata',yt);is% 更 新 顶层 粒子 对 应 的 曲线 
Mr(1,Mr(l, :)>0.5)=0;8 设 置 最 小 层 红 色 粒 子 为 空 (用 0 表示 空 粒 子 ) 
pause{0.2) ; % 程 序 停顿 一 下 以 体现 出 动画 效果 


end 


其 中 用 到 了 粒子 移动 实现 的 程序 ， 即 pmovingg3.m， 其 保存 于 光盘 中 的 \Ch22 文件 
[有 夫 下 。 


该 程序 中 边界 采用 函数 plot 绘制 的 折线 来 表示 ， 而 炉 内 的 粒子 利用 函数 plot 画 实 心 的 圆圈 表 
示 。 首先 根据 炉 腔 形状 设置 初始 粒子 分 布 。 然 后 利用 粒子 下 落 的 规则 计算 不 同时 刻 炉 内 粒子 的 分 布 
情况 ， 并 实时 地 更 新 绘制 粒子 的 plot 函数 中 的 XData 和 YData 更 新 粒子 的 位 置 。 上 述 程序 执行 后 
可 以 演示 粒子 下 落 的 过 程 ， 顶 层 粒 子 逐渐 下 落 。 当 时 刻 t 等 于 200 时 ， 可 以 得 到 如 图 22.25 所 示 的 
图 形 。 





图 22.25 ”粒子 下 落 过 程 的 截图 
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本 章 主 要 介绍 了 元 胞 自动 机 典型 规则 的 程序 实现 。 利 用 MATLAB 和 玫 阵 化 计算 的 优势 ， 一 些 元 
胞 自动 机 的 规则 可 以 并 行 实现 。 同 时 MATLAB 的 数据 可 视 化 可 以 方便 地 把 元 胞 自动 机 的 状态 窍 阵 
变化 实时 地 显示 出 来 。 本 章 首先 介绍 了 奇偶 规则 程序 实现 ， 利 用 MATLAB 可 以 方便 地 实现 这 个 规 
则 。 接 下 来 给 出 了 一 个 砂 漏 的 程序 模拟 和 细菌 生长 过 程 的 模拟 。 在 Margolus 近邻 上 给 出 气体 扩散 
过 程 的 模拟 。 在 蚂蚁 规则 的 基础 上 研究 了 3 种 不 同 初 始 条件 下 的 演化 过 程 模拟 。 最 后 给 出 了 六 边 
形 格 子 上 的 粒子 运动 模拟 。 
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随机 布朗 运动 ”介绍 随机 布朗 运动 和 随机 行走 模型 。 

9 扩散 限制 凝聚 ( DLA ) ”给 出 扩散 限制 凝聚 的 定义 及 相应 的 程序 实现 。 
人 随机 吸附 介绍 该 过 程 的 编程 思路 ， 并 给 出 树枝 晶体 生长 的 模拟 。 

@ 随机 向 心 吸附 利用 MATLAB 模拟 具有 向 心 运动 趋势 的 DLA 模型 。 


前 一 章 介 绍 了 元 胞 自动 机 模型 的 一 些 基本 规则 ,很 多 粒子 的 运动 模型 可 以 利用 元 胞 自动 机 来 模 
拟 。 而 晶体 的 生长 也 可 以 描述 为 一 些 数学 模型 ， 从 而 可 以 利用 这 些 模型 来 模拟 晶体 生长 过 程 。 在 一 
定 程度 上 ， 晶 体 生长 过 程 可 以 看 做 是 一 种 元 胞 自动 机 。 本 章 介绍 树枝 状 晶体 生长 过 程 的 模拟 方法 ， 
这 其 中 要 用 到 随机 行走 ( Random Walk ) 模型 、 扩 散 限 制 凝 聚 ( DLA ) 等 。 通 过 程序 模拟 这 样 的 演 
化 过 程 ， 可 以 从 另外 一 个 角度 研究 生长 过 程 ， 一 定 程度 上 可 以 缩短 研究 周期 ， 提 高 研究 效率 。 


23.1 随机 布朗 运动 


自从 布朗 发 现 花粉 在 液体 中 的 随机 运动 现象 后 ,人们 开始 利用 这 个 现象 来 研究 一 些 自然 界 中 的 
过 程 模拟 。1905 年 爱 因 斯 坦 发 表 有 关 “ 布 朗 运动 ”的 理论 研究 论文 ,迄今 已 有 一 个 世纪 。 在 这 100 
年 的 时 间 里 ， 布 朗 运动 以 及 相关 的 随机 行走 ( Random Walk ) 问题 的 研究 有 了 长 足 发 展 ， 不 仅 对 
物理 各 领域 有 深远 的 影响 ,也 在 其 他 科学 诸如 化 学 、 地 理 、 生 物 以 及 经 济 学 中 广泛 应 用 。 而 随机 行 
走 模型 用 来 描述 粒子 以 几率 的 形式 在 不 同方 向 上 游 走 。 因为 实际 过 程 的 复杂 性 , 很 多 自然 场合 的 粒 
子 行为 呈现 出 随机 性 。 通 过 随机 模型 可 以 一 定 程度 简化 多 体 问题 的 研究 。 尽 管 这 个 过 程 是 随机 的 ， 
日 是 结果 往往 表现 出 一 定 的 规律 性 。 

在 一 个 一 维 或 者 二 维系 统 中 可 以 使 用 一 个 随机 数 来 控制 粒子 的 运动 方向 ,下面 来 举例 说 明 这 个 
过 程 的 模拟 。 

与 前 一 章 介 绍 的 蚂蚁 规则 相似 , 可 以 使 用 一 个 复数 z 来 表示 粒子 的 位 置 。 这 里 考虑 使 用 X 和 》 
来 表示 粒子 当前 位 置 的 横 纵 坐标 值 。 而 运动 方向 的 随机 改变 通过 下 面 的 语句 来 表达 。 


pl=0.2; % 向 左 运动 的 几率 
p2=0.3; % 向 上 运动 的 几率 
p3=0.1; gg 向 右 运动 的 几率 
p4=0.4; g% 向 下 运动 的 几率 
r=rand; g% 产生 一 个 随机 数 
IE TI<p1; 
dx=-1; s# 水 平方 向 的 随机 移动 量 
dy=0; $% 竖 直 方向 的 随机 移动 量 
elseift r<p1+pP2; 
dx=0; s% 水 平方 向 的 随机 移动 量 
-day=-1; g% 竖 直 方向 的 随机 移动 量 
elseif r<p1l+P2+P3; 
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dx=1; g% 水 平方 向 的 随机 移动 量 

ay=0; # 竖 直 方向 的 随机 移动 量 
else 

dx=0; # 水 平方 向 的 随机 移动 量 

dy=1; % 竖 直 方向 的 随机 移动 量 


enda 


其 中 p1，p2，Pp3 和 p4 分 别 表示 向 左 、 向 上 、 向 右 和 向 下 运动 的 几率 ， 如 图 23.1 所 示 。 这 里 
要 求 4 个 几率 值 之 和 等 于 1。 





图 23.1 粒子 随机 运动 的 方向 选择 
为 方便 起 见 ， 把 上 面 这 段 程序 写 为 函数 文件 的 形式 ， 即 choose_D.m 文件 ， 其 调用 格式 为 ; 


[dx,dqy] =choose_D(pl1,p2,p3,p4) 1; 


参数 说 明 : dx 和 dy 是 函数 的 输出 参数 , 分 别 表示 粒子 在 水 平和 竖 直 方向 上 的 位 置 改变 量 。p1， 
p2，Pp3 和 p4 的 含义 如 图 23.1 所 示 ， 使 用 时 它们 的 输入 顺序 不 能 改变 ， 否 则 会 引起 错误 。 

choose_D 函数 可 以 用 在 随机 行走 或 者 后 面 将 要 介绍 的 扩散 限制 凝聚 ( DLA )， 可 以 直接 根据 
几率 数值 来 得 到 dx 和 dy, 利 用 它们 可 以 计算 粒子 下 一 时 间 步 的 位 置 。 下 面 给 出 利用 函数 choose_D 
实现 随机 行走 的 例子 。 


z=0; $ 设置 初始 数值 ， 这 里 利用 一 个 复数 来 表示 位 置 
rand('state' 1) g% 初始 化 随机 数 的 状态 
ph=plot (z) ;hold on; $# 绘图 
T=1; % 计算 时 间 的 参数 
zl1=1; # 位 置 的 中 间 变 量 
ti=title('time = 0!, Fontsize',14，'Fontname'，'*Times new roman')); $% 在 图 题 处 实时 显 
示 时 间 
while abs(zl1)>0.1; g% 循环 多 次 进行 计算 直至 回 到 起 点 位 置 (0, 0) 
[dx, dy]=choose_D(0.25,0.25,0.25,0.25); $% 随机 生成 一 个 位 移 量 
zl1=z+[dx+ixdy]; g% 更 新 位 置 数值 
plot (real([z,zl]) ,imag([z,z1]))7 gs 连接 + 时 刻 和 t+l 时 刻 两 点 绘制 线段 
z=z17 $% 更 新 z 的 数值 
set (ti 'String',['time = ，,num2str(T)]); % 更 新 图 题 处 的 时 间 数 值 
T=T+1; ，g% 时 间 值 更 新 
pause(0.1); #% 暂停 一 下 ， 显 示 动 画 效 果 


enda 

执行 上 述 程序 后 可 以 得 到 如 图 23.2 所 示 的 图 形 。 选 用 不 同 随机 函数 的 状态 数 可 以 得 到 不 同 的 
图 案 ， 图 23.3 给 出 了 当 状 态 数 等 于 5， 即 “randf(state',5);” 时 的 图 案 。 可 见 随 着 随机 数 选 择 的 不 
同 ， 可 以 得 到 不 同 的 图 案 。 可 以 证 明 ， 进 行 足够 多 次 的 计算 后 ， 粒 子 可 以 回 到 起 始 位 置 。 
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图 23.2 ”粒子 随机 行走 得 到 的 图 案 ( 一 ) 
thine = 2434 





T 








图 23.3 ”粒子 随机 行走 得 到 图 案 ( 二 ) 
前 面 介 绍 的 是 粒子 沿 着 水 平和 竖 直 两 个 方向 运动 ,下 面 给 出 粒子 的 运动 方向 可 能 是 平面 上 的 任 
意 角度 。 相 应 的 程序 要 比 前 面 的 程序 简单 一 些 。 


z=0; % 设置 初始 数值 ， 这 里 利用 一 个 复数 来 表示 位 置 
rand('state',5); 多 初始 化 随机 数 的 状态 
ph=plot (z) ;hold on; % 绘图 
T=1; % 计算 时 间 的 参数 
zl=1; $% 位 置 的 中 间 变 量 
ti=title('time = 0" ,Fontsize',14,'Fontname'，'Times new roman'); $% 在 图 题 处 实时 显 
示 时 间 
while abs(zl)>0.1; % 循环 多 次 进行 计算 直至 回 到 起 点 位 置 (0, 0) 
ARA=rand*pix*2; & 生成 一 个 随机 角度 
zl1=z+exp(ixa) ; 当 更 新 位 置 数值 
plot (real([fz,zll),imag(fz,z1])); % 连接 t 时 刻 和 t+l 时 刻 两 点 绘制 线段 
z=Zz1; $% 更 新 z 的 数值 
set (ti, 'String', ['time = ，',num2scr(T)]); % 更 新 图 题 处 的 时 间 数 值 
T=T+1” 多 时 间 值 更 新 
pause(0.1); $% 暂停 一 下 ， 显 示 动 画 效果 


end 
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执行 上 面 的 程序 后 可 以 得 到 如 图 23.4 所 示 的 图 形 ， 这 个 图 形 可 以 认为 是 在 二 维 平面 上 的 布朗 
运动 结果 的 模拟 ， 这 个 图 也 是 “一 笔画 ”的 结果 ， 即 轨迹 不 中 断 。 可 见 这 是 一 个 运动 方向 完全 随机 
的 结果 , 粒子 的 轨迹 也 显得 杂乱 无 章 。 与 前 面 介绍 的 蚂蚁 规则 不 同 的 是 ,布朗 运动 和 前 面 的 运动 轨 
迹 不 相关 ， 粒 子 运动 方向 不 受 之 前 状态 矩阵 的 影响 。 


thane = 4000 








图 23.4 粒子 进行 随机 行走 的 结果 
分 形 布朗 运动 ( Fractal Brown Motion ， 缩 写 为 FBM ) 曲线 的 物理 定义 是 一 维 布朗 运动 的 位 移 - 


B(x2,y2) 为 终点 ， 选 择 分 形 布 朗 曲线 的 标 度 因 子 HO<H<1， 在 线段 AB 的 中 点 C(x3,y3) 取 高 斯 分 
布 ( 均值 为 0， 方差 DY=(X2-X1)/(1-2^(2*H-2))^0.5 ) 随机 数 Y 作为 偏 移 值 ， 得 C"(x3,y3+Y) 为 分 
形 布朗 曲线 上 的 点 。 然 后 再 对 线段 AC" 和 线段 C"B 重复 上 述 过 程 ， 但 是 这 时 的 高 斯 随机 数 方差 为 
DY/(2*2 全 H)， 即 原 方差 除 以 2 的 H+1 次 方 ， 这 里 的 H 称 为 标 度 因子 ， 如 此 无 限 继续 下 去 ， 就 可 
以 得 到 分 形 布朗 曲线 了 ,此 方法 属于 随机 中 点 位 移 法 。 在 实际 计算 中 不 必 取 无 限 多 次 计算 ， 取 足够 
多 次 计算 就 可 以 了 。 下 面 是 一 个 实现 分 形 布朗 曲线 的 程序 。 


function zp=Brown_motion{zl,z2,n,zp); % 分 形 布朗 运动 的 程序 
N=8; 多 递归 次 数 
H=0.5; $# 分 形 布朗 曲线 的 标 度 因 子 H(0<H<1) 
C=1-sqrt(2^(2*H-2));7 % 系数 因子 
守 E mn<N; 
zc=mean([zl,z2]); #% 计算 中 点 坐标 值 
DY=real(z2-zlij/cr s% 方差 DY 
E mn>0; 
DY=DY/(2*2^H) ); % 系数 因子 
endQ 
Y=normrnat0, sqrt(DY) )) s% 计算 偏 移 量 
Z3=ZC+YAL 7 
zp=[zp,z3]; % 更 新 zp 的 数据 
zpP=Brown_motion(z1li,z3;n+1,zp); g% 进行 递归 计算 
zp=Brown_motion(z3,z2,n+l,zp); #% 进行 递归 计算 


elSse 
[X,K]=sort (real (zp)) 7 $% 按 横 坐标 从 小 到 大 排序 得 到 排序 序号 
Zzp=zp (K)》 * 排列 数据 的 顺序 

end 
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这 是 一 个 函数 文件 ， 其 调用 格式 为 : 


ZP=Brown_motion(zl,z2,n,zp): 


参数 说 明 : 输出 量 zp 是 数据 点 的 坐标 。zl 和 z2 是 开始 时 的 两 个 端点 坐标 ， 其 可 以 选择 复数 
值 。n 是 控制 递归 过 程 的 参数 。 输 入 量 zp 是 用 于 在 传递 递归 计算 的 过 程 中 传递 坐标 数据 。 

利用 下 面 的 语句 可 以 调用 前 面 的 Brown_motion 函数 计算 分 形 布朗 运动 的 曲线 。 
rand('state',0); $% 设置 随机 数 的 状态 


2z=Brown_motion(0,1,0, [0,1]); s% 计算 分 形 布朗 运动 的 曲线 数据 点 
plot (z) ; $% 绘图 4 


上 面 语句 输出 图 形 如 图 23.5 所 示 。 
15 
1 


05 
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图 23.5 “分形 布 朗 运动 曲线 


23.2 ”扩散 限制 凝聚 ( DLA ) 


早 在 1981 年 ，Witten 和 Sander 两 位 学 者 在 研究 悬浮 于 大 气 中 的 烟灰 、 金 属 粉末 或 者 烟尘 的 
扩散 凝聚 问题 时 ， 提 出 了 扩散 受 限制 的 凝聚 模型 ( Diffusion Limited Aggregation， 缩 写 为 DLA )， 
目前 这 个 模型 被 应 用 到 不 同 领域 。 

DLA 模型 可 以 模拟 下 面 的 电解 过 程 : 把 负电 极 放置 在 带 有 正 的 金属 离子 的 电解 液 中 ， 金 属 离 
子 在 电解 液 中 将 会 进行 扩散 , 当 它们 遇 到 负电 极 时 会 被 负电 极 所 吸引 。 此 外 这 些 例 子 也 可 能 在 已 经 
沉淀 的 凝聚 体 上 发 生 粘 贴 而 被 固定 。 如 此 下 去 ,一 系列 复杂 坚硬 的 树枝 状 结构 将 会 被 堆积 出 来 。 对 
于 这 个 沉积 、 吸 附 过 程 可 以 使 用 数值 方法 进行 求解 。 

DLA 模拟 的 数学 模型 可 以 描述 为 : 在 一 个 阵列 形 点 阵 上 面 ， 在 中 心 位 置 处 布置 一 个 固定 的 粒 
子 作为 初始 状态 , 在 距离 该 点 一 定 范围 之 外 产生 粒子 , 这 个 粒子 在 未 被 吸附 之 前 将 进行 随机 行走 运 
动 ， 直 至 它 被 固定 的 粒子 所 吸附 才 停止 下 来 。 这 里 吸附 的 原则 是 : 在 4 个 最 近邻 ( 指 上 、 下 、 左 、 
右 格 点 ) 之 中 存在 一 个 固定 的 粒子 , 则 运动 的 粒子 将 被 吸附 ,其 停止 运动 。 接 下 来 产生 下 一 个 粒子 ， 
并 按 上 面 的 规则 进行 计算 。 如 此 下 去 将 会 得 到 一 个 凝聚 集 图 案 。 

需要 指出 的 是 ,如 果 粒 子 在 随机 行走 时 超出 状态 和 矩阵 所 限制 的 范围 ,需要 考虑 对 应 的 处 理 方案 。 
这 里 可 能 用 到 的 方案 有 两 个 : 一 是 采用 周期 边界 条 件 ， 这 样 粒子 就 不 会 逃逸 , 直至 吸附 到 固定 的 粒 
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子 上 才能 产生 下 一 个 粒子 ; 二 是 采用 吸收 边界 条 件 , 这 样 粒子 超出 边界 之 后 将 放弃 这 个 粒子 而 去 生 
成 下 一 个 粒子 。 

根据 上 面 的 分 析 ， 建 立 相应 的 实现 程序 。 首 先 给 出 采用 周期 边界 条 件 来 建立 DLA 模型 ， 这 里 
使 用 白色 ( 和 矩阵 元 素 值 等 于 1 ) 表示 该 格子 位 置 上 没有 粒子 ， 而 使 用 黑色 ( 矩阵 元 素 等 于 0 ) 表示 
格子 位 置 上 有 粒子 。 这 样 ,运动 粒子 的 4 个 最 近邻 之 和 小 于 3.5 就 表示 周围 至 少 有 一 个 固定 的 粒子 ， 
从 而 粒子 被 吸附 住 。 

相应 的 MATLAB 程序 如 下 ; 


rand('state',0); % 设置 随机 数 的 状态 值 
set (gcf, 'DoubleBuffer'，,'on'); % 设置 泻 染 效果 
N=256; ， s# 生成 状态 矩阵 大 小 的 控制 参数 
S=ones(N) ; % 生成 状态 矩阵 S 
S(N/2,NV4:N/4*3)=0; sg 设置 状态 矩阵 的 初始 值 
Ii=imshow(S) ; # 显示 状态 矩 
ti=title('time = 0'，'EFEontsize', 14, 'Fontname'，'Times New Roman')) 多 显示 时 间 
T=0; #% 记录 时 间 的 参数 
for k=1:4350; % 循环 计算 
Xt=4; g 产生 粒子 的 位 置 
YEt=N/2; $% 产生 粒子 的 位 置 
Ss=0; s* 控制 下 面 循环 是 否 终止 的 参数 
while Ss<1; % 计算 当前 粒子 的 吸附 过 程 
[ax,dy]=choose_D(0.25,0.25,0.25,0.25); $% 计算 粒子 位 移 量 
xt=xt+dx; # 计算 下 一 时 刻 粒 子 的 位 置 
YLt=yt+dy; gs 计算 下 一 时 刻 粒 子 的 位 置 . 
yt=mod{yt-1,N)+1; &% 利用 周期 边界 条 件 限 制 拉 子 坐 标 位 置 
xt=mod(xt-1,N)+1; % 利用 周期 边界 条 件 限制 粒子 坐标 位 置 
xn=xt+[-1,1,0,0]; g% 计算 最 近邻 的 坐标 
wyvn=yt+[0,0,-1,1]; g% 计算 最 近邻 的 坐标 
yn=mod{(yn-1,N)+1; % 对 近邻 进行 周期 边界 条 件 处 理 
xn=mod(xn-1,N)+1; g% 对 近邻 进行 周期 边界 条 件 处 理 
Inda=sub2ind( [N,N] ,xn,yn) ; % 转化 脚 标 为 索引 
if sum(S(Ind))<3.5; # 判断 近邻 是 否 有 粒子 
S(xt,yt)=0; g% 固定 当前 运动 的 粒子 
Ss=2; gs 把 ss 赋值 为 2， 从 而 可 以 退出 循环 
enda 
enda 
set (ITi, 'CData',S) ; % 显示 当前 状态 矩阵 
T=T+1， gs 票 加 时 间 参 数 
set (ti,'String',['time = ,num2str(T)]); 多 更 新 时 间 参 数 
pause(0.01); % 暂停 一 下 ， 显 示 动画 效果 
end 


上 述 程序 输出 图 形 如 图 23.6 所 示 。 这 里 初始 时 的 状态 矩阵 的 中 间 有 一 条 水 平 线 上 的 粒子 是 静 
止 的， 在 固定 位 置 的 粒子 随机 运动 ， 在 最 初 的 直线 上 进行 随机 豚 附 。 最 后 在 各 个 方向 上 都 长 出 
了 树枝 状 分 支 ， 在 上 、 下 两 个 方向 树枝 生长 的 长 度 较 长 。 随 着 固定 粒子 数目 的 增加 ， 吸 附 的 速 
度 也 要 增加 。 

如 果 把 语句 “S(N/2,N/4:N/4*3)=0;” 改 为 “S(N/2:NM4*3,N/2)=0; ， 可 以 研究 状态 矩 阵 的 初始 
固定 粒子 成 紧 直 方向 线段 时 DLA 演化 的 模拟 ， 所 得 图 形 如 图 23.7 所 示 。 
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图 23.6 周期 边界 条 件 下 DLA 模型 生成 的 图 案 





图 23.7 ”周期 边界 条 件 下 DLA 模型 得 到 的 图 案 
下 面 考虑 吸收 边界 条 件 的 实现 : 在 状态 矩阵 $ 中 , 以 x=2，x=N-l1，y=2 和 y=N-1 
四 条 直线 作为 边界 ， 粒子 逸 出 边界 ( 包含 边界 ) 将 产生 下 一 个 粒子 ， 而 其 他 部 分 可 以 和 周期 边界 条 
件 采 取 相 同 的 实现 方法 。 相 应 的 MATLAB 程序 如 下 : 


rand('state'"v0)7 g% 设置 随机 数 的 状态 

set (gcf, 'DoubleBuffer','on'); # 设置 图 形 窗口 的 泻 染 效果 
N=256; # 生成 状态 矩阵 大 小 的 控制 参数 

S=ornes(N); % 生成 状态 矩阵 S 

S(N/2,N/4:N*3/4)=0; 8% 设置 状态 矩阵 的 初始 值 


Ii=imshow(S) 7 # 显示 状态 矩 阵 
t=titlef['time = 0 ，N=0'],'Fontsize' ,14,，'Eontname:, 'Times New Roman'); % 显 
示 时 间 


T=0; % 记录 时 间 的 参数 
for k=1:30000; 4% 循环 计算 
xt=4; sg% 产生 粒子 的 位 置 
yt=N1/2; % 产生 粒子 的 位 置 
Ss=0; .g% 控制 下 面 循环 是 否 终止 的 参数 
while Ss<1; s% 计算 当前 粒子 的 吸附 过 程 5 
[fdqx,dy]=choose_D(0.25,0.25,0.25,0.25)7 % 计算 粒子 位 移 量 
xt=xt+dx; $ 计算 下 一 时 刻 粒 子 的 位 置 
yt=yt+dy; $% 计算 下 一 时 刻 粒 子 的 位 置 
if xt<2.51xt>N-1.511yc<2.51Yt>N-1.5; 4% 判断 粒子 是 否 饮 出 边界 
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ss=2; $% 把 ss 赋值 为 2， 从 而 可 以 退出 循环 

end 

if [S(xt+1l,yt)+S(xt-1,yt)+S(xt,yt+1)+S(xt,yt-1)]<3.5;).% 判断 近邻 是 否 有 粒子 
S(xt,yt)=0; # 固定 当前 运动 的 粒子 
Ss=2; g 把 Ss 赋值 为 2, 从 而 可 以 退出 循环 


ena 
end 
set(Ii,'cData',S); % 显示 当前 状态 矩阵 
T=T+1; # 累加 时 间 参 数 


set (ti,，'String',，['time =',num2str(T),，'，N=' ,num2str(sum(sSum(I-S))-[N/V2+1])])， 


% 更 新 时 间 参 数 
pause(0.01); 8% 暂停 一 下 ， 显 示 动 画 效果 


ena 

上 述 程序 执行 后 可 以 得 到 如 图 23.8 左 图 所 示 的 图 形 。 可 见 在 初始 固定 粒子 下 面 很 少 出 现 粒子 
吸附 的 现象 ， 绝 大 部 分 粒子 在 初始 线段 上 面 就 被 “挡住 ”了 。 前 面 周期 边界 条 件 理解 为 粒子 可 以 从 
上 面 边界 运动 至 初始 线 的 下 侧 ， 这 样 上 下 生长 规模 相似 了 。 另 外 在 图 23.8 左 图 的 图 题 处 time 数值 
对 应 着 在 粒子 源 点 处 产生 的 粒子 总 数 ，N 表示 被 吸附 的 粒子 总 数 ， 而 N 和 time 二 者 的 数值 相差 很 
多 ， 这 表明 大 部 分 粒子 都 逸 出 边界 之 外 了 。 

当 把 语句 “S(N/2,N/4:N*3/4)=0;” 换 为 “S(N/2:N*3/4,NV2)=0;” 时 ， 可 以 得 到 如 图 23.8 右 图 
所 示 的 图 形 。 可 见 对 于 吸收 边界 条 件 ， 树 枝 状 结果 的 生长 方向 是 朝向 粒子 源 所 在 方向 的 。 





图 23.8 吸收 边界 条 件 下 的 DLA 模型 的 演化 图 案 
在 前 面 给 出 各 向 同性 ( 粒子 向 4 个 方向 运动 的 几率 相同 ) 时 DLA 模型 的 实现 ， 下 面 考 虑 粒子 
向 下 运动 几率 较 大 时 的 情况 , 即 户 = 0.2 ， 玉 =0.2 ， 户 =0.2 和 Ps = 0.4 时 的 DLA 模型 程序 。 
与 前 面 不 同 的 是 ， 产 生 粒 子 的 源 是 在 从 上 例 数 第 4 行 的 水 平 直线 上 ， 具 体位 置 是 随机 的 。 实 现 程 
序 如 下 : 


rand('state',0); g% 设置 随机 数 的 状态 

set (gcf, 'DoubleBuffer' 'on');s 设置 图 形 窗口 的 泻 染 效果 
N=400; % 生成 状态 矩阵 大 小 的 控制 参数 

M=200; % 生成 状态 和 矩阵 大 小 的 控制 参数 

S=ones (M,N) ; $% 生成 状态 矩阵 S 

stend-2,:)=0; $% 设置 状态 矩阵 的 初始 值 

Ii=imshow(S); % 显示 状态 矩阵 
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ti=title(['time = 0''，N=0']，, Fontsize' ,14, Fontname'， Times New Roman'); 8% 显 
示 时 间 
T=0; # 记录 时 间 的 参数 
for k=1:30000; % 循环 计算 
xt=4; $ 产生 粒子 的 位 置 
Yt=2+round({N-4)*rand); % 产生 粒子 的 位 置 
while 1; % 计算 当前 粒子 的 吸附 过 程 
[dx,dy]=choose_D(0.2,0.2,0.2,0.4); &% 计算 粒子 位 移 量 
xt=xt+dy; # 计算 下 一 时 刻 粒 子 的 位 置 
Yt=Yt+dxi g% 计算 下 一 时 刻 粒 子 的 位 置 
if xt<3.51xt>M-1.511yt<3.51yt>N-3.5; g 判断 粒子 是 否 逸 出 边界 
break; $ 跳出 当前 循环 
enda 
if [S(xt+1l,yt)+S{(xc-1,yc)+S(xc,yt+1)+S(xt,yt-l1)]<3.5; % 判断 近邻 是 否 有 粒子 
S(xt,Yyt)=0; % 固定 当前 运动 的 粒子 
break; # 跳出 当前 循环 
end 
enda 
set (TIi,'CData',S); #% 显示 当前 状态 矩阵 
T=T+1; $% 累加 时 间 参 数 


set (ti,'String'，['time = ,num2str(T),'!，N=',num2str(sum(sum(1-S))-N)]); * 更 
新 时 间 参 数 

pause(0.01); % 暂停 一 下 ， 显 示 动 画 效果 
enaQ 


执行 上 述 程序 输出 图 形 如 图 23.9 所 示 。 可 见 产生 的 粒子 很 快 被 吸附 在 固定 的 粒子 上 。 

此 外 ， 可 以 考虑 周期 边界 条 件 的 模拟 。 这 里 给 出 局 = 0.3， 严 =0， 户 =0.3 和 忆 =0.4 时 
DLA 模型 得 到 的 结果 ,如 图 23.10 所 示 。 相应 程序 保存 在 光盘 的 \Ch23 文件 夹 下 的 DLA_period2.m 
文件 中 。 在 这 种 情况 下 粒子 只 能 沿 着 向 下 、 向 左 和 向 右 3 个 方向 运动 。 





1 
的 
图 23.10 各 向 异性 周期 边界 条 件 下 的 DLA 模 
模型 演化 的 图 案 型 演化 的 图 案 
下 面 研究 粒子 源 呈 圆 形 的 DLA 模型 ， 这 里 采用 周期 边界 条 件 ， 初 始 时 中 心 的 圆 形 区 域内 有 一 
些 固定 的 粒子 。 相 应 的 MATLAB 程序 如 下 : 





rand('state',0); % 设置 随机 数 的 状态 

set {gcf,'DoubleBuffer','on');s% 设置 图 形 窗口 的 演 染 效果 

N=256; % 生成 状态 矩阵 大 小 的 控制 参数 

M=256; % 生成 状态 矩阵 大 小 的 控制 参数 

S=ones (M,N) ; $% 生成 状态 和 矩阵 S 
[x,y]j]=meshgrid(linspace(-N/2,NV2,N)，1Linspace(-M/2, MA27M) ) 
S(abs (x+iw*y)<N/16)=0; % 设置 状态 矩阵 的 初始 值 
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S0=sum(sum(1-S));  #% 计算 初始 时 固定 粒子 总 数 
Ti=imshow(S); #% 显示 状态 和 矩阵 
ti=title(['time = 0','，N=0'],，'Fontsize',14,，'Fontname'，'Times New Roman'); % 显 
示 时 间 
T=0; % 记录 时 间 的 参数 
for k=1:8000; 8% 循环 计算 
2=round ( [N-20] *exp (1i*randwrpirw2))7 
xt=real{(z); % 产生 粒子 的 位 置 
yt=imag(z); % 产生 粒子 的 位 置 
while 1; % 计算 当前 粒子 的 吸附 过 程 
[dx,dy]=choose_D(0.25,0.25,0.25,0.25); $% 计算 粒子 位 移 量 
xt=xt+dy; 8% 计算 下 一 时 刻 粒 子 的 位 置 
Yt=Yyt+dx; $% 计算 下 一 时 刻 粒 子 的 位 置 
xn=mod(xt-1+[-1,1,0,0],M)+1; &% 进行 周期 边界 条 件 处 理 
yn=mod(yt-1+[0,0,-1,1],N)+1， 进行 周期 边界 条 件 处 理 
Ind=sub2inda([M,N] ,xn,yn) ， 
if sum(S(Ind))<3.5 sg 判断 近邻 是 否 有 粒子 
S(mod(xt-1,M)+l,mod(yt-1,N)+1)=0; # 固定 当前 运动 的 粒子 
break; $ 跳出 当前 循环 
enaQ 
enda 
set (TIi,'CData',S); g% 显示 当前 状态 矩阵 
T=T+1 % 陛 加 时 间 参 数 


set (ti,，'String',，['time =' ,num2str(T),'，N=',num2str(sum(sum(1-S))-S0)]);* 更 
新 时 间 参 数 

pause(0.01); % 暂停 一 下 ， 显 示 动 画 效果 
endG 


首先 在 状态 矩阵 的 中 央 布 置 一 些 国定 的 粒子 , 它们 的 分 布 形状 呈现 一 个 圆 形 , 然后 在 一 个 回 形 
的 位 置 上 随机 产生 粒子 并 进行 随机 布朗 运动 , 直至 其 与 固定 的 粒子 发 生 粘 贴 才 产生 下 一 个 粒子 。 多 
次 计算 之 后 可 以 得 到 DLA 演化 图 案 。 执 行 上 述 程序 输出 的 图 形 如 图 23.11 所 示 。 此 外 还 可 以 考虑 
吸收 边界 条 件 下 DLA 模型 的 实现 。 





图 23.11 周期 边界 条 件 和 圆 形 粒子 源 下 DLA 模型 得 到 的 图 案 
这 里 给 出 粒子 生长 受 限 的 一 个 例子 , 即 当 粒 子 吸附 到 的 树枝 长 到 一 定 高 度 时 , 相应 的 分 支 将 被 
切 掉 。 切 去 分 支 的 程序 被 写 为 一 个 函数 文件 形式 ， 保 存在 光盘 \Ch23 文件 夹 中 ， 文 件 名 为 cuth.m。 
因为 凝聚 体 的 分 支 是 不 规则 的 形状 ,所 以 函数 文件 cuth.m 需要 使 用 递归 算法 编写 。 在 这 个 程序 中 ， 
计算 使 用 数值 1 表示 该 位 置 有 粒子 ， 而 0 表示 该 位 置 没有 粒子 。 在 显示 粒子 分 布 的 时 候 ， 用 1-S 
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来 显示 { S 是 状态 矩阵 )， 这 样 白色 表示 该 格 点 处 空白 ， 黑 色 表示 粒子 被 固定 。 而 主 程序 的 内 容 如 
下 : 


S=zeros (400,500); g% 生成 状态 矩阵 
St(end, :)=1; g% 设置 状态 矩阵 中 最 下 面 一 行 元 素 等 于 1 
=17B=1;X=0.8， 
rand('state',0); gs 设置 随机 数 的 状态 数 
subplot (121) ;Ti=imshow(1-S, []); % 显示 状态 矩阵 
T1=title(['times = 1','，total particle=',num2str(sum(S(:)))],... 
'Fontname'，'cimes new roman'，'fontsize',14); % 显示 时 间 与 粒子 总 数 
=rand(1,500) ; 
subplot (122);P1=plot (sum(S,2)/size(S,2),1:size(S,1)，'rz');s 绘制 各 行 的 密度 值 曲线 
set (gca, 'Position',[0.57,0.35,0.33,0.36],，'YDir'，'reverse'); $% 设置 坐标 轴 属 性 
xlim([0,max(sum(S,2)/size(S,2))]); % 设置 X 轴 的 范围 
Ylabel('\ith'，'fontname','times new roman','fontsize',14);  # 站 轴 标 注 
xlabel('Nit\rho'，'ftontname','times new roman','fontsize',14); gs X 轴 标注 
title('fNit\rzho ({N\ithj)'，'fontname','times new roman'，'fontsize',14); $ 加 注 图 
题 
set (gcf, 'DoubleBuffer','on'); $# 设置 图 形 窗 口 的 泻 染 效果 
[L1,L2]=size(S); % 返回 状态 矩阵 的 行 数 L1 和 列 数 L2 
N=500;H=1; sg% 初始 化 参数 ， 粒子 总 数 N 和 时 间 参 数 H 
h=150; ，# 设置 截 顶 高 度 
scale=0.5; $% 设置 剪 切 系数 
while N<20000; 
R1=2+round([L1-3]*rand) ; % 随机 产生 粒子 的 坐标 
R2=2+round([L2-4]*rand) ; #% 随机 产生 粒子 的 坐标 
flag=0; $# 控制 循环 停止 的 参数 
while R1<L1&R1>1&R2<L2&R2>1&flag==0) 8% 验证 粒子 在 状态 矩阵 内 部 且 粒 子 未 被 吸附 
he=S(R1,R2-1)+S(R1,R2+1)+S(RL+1,R2); g% 计算 左 、 下 和 右 方位 的 近邻 
if he>0.5; $% 判断 近邻 中 有 无 固定 粒子 
S(R1,R2)=1) 8% 运动 粒子 被 吸附 
flag=1; g 标记 粒子 已 经 被 吸附 
else 
ra=rand; % 粒子 进行 随机 移动 的 分 量 
rb=rand; % 粒子 进行 随机 移动 的 分 量 
R1=R1+ (ra>=0.5)- (ra<0.5); g% 计算 下 一 时 刻 粒 子 的 位 置 坐标 
R2=R2+(rb>=0.5)-(rb<0.5); $% 计算 下 一 时 刻 粒 子 的 位 置 坐标 


endG 
enaG 
sS=sum(S,2); $% 对 行 所 有 元 素 求 和 
Se=find(ss);Se=min(Se); $ 找 出 有 粒子 的 最 高 一 行 
if Se==[sizel(s,1)-h]; $% 判断 高 度 是 否 达 到 截 顶 高 度 
Sx=find{S(Se, :)); # 找 出 最 高 点 粒子 的 横 坐 标 
S=cuth(S,h, se, Sx,scale) ; % 切 去 最 高 点 粒子 所 在 的 分 支 
end 
set(Ii,'CData',1-S); $% 显示 状态 矩阵 
N=sum(S(:)); g% 计算 粒子 总 数 
H=H+1; # 累计 时 间 值 
set (P1, 'XData',sum(S,2)/size(S,2)); #% 更 新 密度 曲线 数据 
set (T1,'string',['times = '，vnum2str(H)，'，total 
particle=',num2str(sum(S(:)))])7g% 更 新 时 间 和 粒子 总 数 
pause(0.02); g% 暂停 一 下 ， 显 示 动画 效果 
end 


首先 在 状态 矩阵 的 最 下 面 一 层 布置 固定 的 粒子 。 然 后 在 初始 固定 粒子 上 方 随机 产生 一 个 粒子 并 
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进行 随机 布朗 运动 ,直至 其 与 固定 的 粒子 发 生 粘 贴 才 产 生 下 一 个 粒子 。 当 某 一 分 支 达 到 截 定 高 度 后 ， 
该 分 支 将 会 被 切 去 。 多 次 计算 之 后 就 可 以 得 到 DLA 演化 图 案 。 上 述 程序 可 以 不 停 地 执行 ， 直 至 强 
行 终止 它 。 其 中 一 个 截图 如 图 23.12 所 示 。 左 图 实时 显示 粒子 分 布 状态 的 变化 ， 右 图 是 各 行 粒子 密 
度 对 应 的 曲线 。 在 右 图 中 ， 由 于 存在 截 顶 限 制 ， 所 以 非 零 密度 值 对 应 的 曲线 一 定 在 [250,400] 这 个 
范围 内 ， 也 就 是 说 粒子 的 高 度 被 限制 在 150 之 内 。 





23.12 ” 带 有 截 顶 限制 的 DLA 模型 


23.3 ”随机 吸附 


前 一 节 介绍 了 不 同类 型 的 DLA 模型 ， 这 里 考虑 一 种 带 有 吸附 几率 的 DLA 模型 。 也 就 是 说 粒子 
遇 到 固定 粒子 时 以 一 定 的 几率 吸附 到 固定 的 粒子 上 。 这 里 吸附 几率 取 0.04， 而 粒子 的 运动 方向 取 
格子 的 对 角 线 ， 边 界 条 件 选 择 周 期 边界 条 件 。 

相应 的 实现 程序 如 下 ; 


rand('state',0); $% 设置 随机 数 的 状态 
set (gcf, 'DoubleBuffer','on');s# 设置 图 形 窗口 的 演 染 效果 
N=500; % 生成 状态 矩阵 大 小 的 控制 参数 
M=200; $% 生成 状态 矩阵 大 小 的 控制 参数 
S=ones{M,N) ; $#% 生成 状态 矩阵 S 
S(end,:)=0; ss 设置 状态 答 阵 的 初始 值 
Ii=imshow(S); % 显示 状态 矩阵 
ti=title(['time = 0'，'，N=0']，'Fontsize',14,，'Fontname'，'Times New Roman'); $ 显 
示 时 间 
T=0; $% 记录 时 间 的 参数 
while sum(S(100,:))>N-0.5; g% 循环 计算 
xt=4; $% 产生 粒子 的 位 置 
yt=2+round( {(N-4)*rand); % 产生 粒子 的 位 置 
while 1 % 计算 当前 粒子 的 吸附 过 程 
[dx,dy]=choose_D(0.3,0,0.3,0.4); 8% 计算 粒子 位 移 量 2 
xt=xt+dy; $% 计算 下 一 时 刻 粒子 的 位 置 
Yt=Yt+dx;y sg 计算 下 一 时 刻 粒 子 的 位 置 
xn=<mod{(xt-1+[-1,1,0,0],M)+1; # 进行 周期 边界 条 件 处 理 
yn=mod{tyt-1+[0,0,-1,1]， N)+17 g 进行 周期 边界 条 件 处 理 
Ina=sub2ind( [M,N] ,xn,yn) 
if sum(S(Ind) )<3.5) 判断 近邻 是 否 有 粒子 
S(mod(xt-1,M)+1,mod(yt-1,N)+1)= [rand>0.04]; #% 固定 当前 运动 的 粒子 
break; % 跳出 当前 循环 
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enda 
end 
set (ITi,'cData',S); #% 显示 当前 状态 和 矩阵 
T=T+1; g 宗 加 时 间 参 数 


set (ti,'String'，['time = ， ,num2str(T),，'，N='numn2str(sum(sum(1-S) )-N)]); $% 更 
新 时 间 参 数 

pause(0.01); g% 暂停 一 下 ， 显 示 动 画 效果 
end 


首先 在 状态 矩阵 的 最 下 面 一 层 布置 固定 的 粒子 ,然后 在 初始 固定 粒子 上 方 的 一 条 水 平 线 上 随机 
产生 一 个 粒子 并 进行 随机 布朗 运动 , 直至 其 与 固定 的 粒子 发 生 粘 贴 才 产生 下 一 个 粒子 。 其 中 对 各 个 
时 刻 的 图 案 实 时 显示 。 多 次 计算 之 后 就 可 以 得 到 DLA 演化 图 案 。 执行 上 述 程序 输出 图 形 如 图 23.13 
所 示 。 对 于 明 收 边界 条 件 的 程序 ， 可 以 进行 类 似 编写 。 此 外 ,程序 中 的 吸附 系数 可 以 换 用 其 他 介 于 
(0,] 的 数 。 


ii 


图 23.13 得 有 随机 厂 刚 的 DLA 模型 滨 化 的 图 案 
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23.4 随机 向 心 吸 附 


下 面 考虑 一 种 具有 向 心 运动 趋势 的 DLA 模型 。 这 里 考虑 粒子 在 一 个 圆 形 的 粒子 源 上 随机 地 出 
现 。 初 始 时 的 固定 粒子 分 布 为 圆 环形 , 且 分 布 在 粒子 状态 矩阵 的 中 心 。 粒 子 的 运动 方向 具有 向 心 运 
动 的 趋势 ， 其 中 向 左 、 向 上 、 向 右 和 向 下 运动 的 几率 分 别 表示 为 启 ， 记 ， 户 和 P ， 它 们 可 以 表 
示 为 下 面 的 形式 。 


Kcos2g+(1- 丰 )7，cosg<0 

忆 = (23-1 ) 
0+(1- 大 )， cosO>0 
ksin2g+(1- 上 Js，sing>0 

区 Sin +(1 一 大) 疡 ，sin | 
0+(1 一 大 ) 厂 ， sing<0 
Kcos2O+(1 一 丰 )53，cosg>0 

和 人 (23.3) 
0+(1 一 大 )m， cosO<0 
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Ksin2 +(1-)7m，sing<0 
,= (23-4) 


0+(1 一 大 ) 记 ， sing>0 
其 中 大 是 向 心 运动 的 几率 比例 。 石 ， 琅 ， 广 和 为 表示 4 个 随机 数 ， 它 们 的 总 和 是 1。 在 粒子 


每 次 运动 之 前 ， 先 利用 上 面 的 4 个 公式 计算 4 个 方向 的 几率 。 为 了 更 好 地 了 解 上 面 4 个 等 式 的 含 
义 ， 可 以 参考 图 23.14 所 示 。 





图 23.14 向 心 趋势 吸附 的 DLA 模型 
这 里 使 用 周期 边界 条 件 编写 程序 ， 具 体内 容 如 下 : 


ranQ('Sstate',0); 
Set (gcf,，'DoubleBuffter'，'on') ; 
N=256; $% 生成 状态 矩阵 大 小 的 控制 参数 
S=ones (N) ; # 生成 状态 和 矩阵 S 
R=round( [IN-1]/2); s# 圆 形 粒子 源 的 半径 
[x,Y]=meshgrid(1linspace(-N/2,N/2,N) ); 
S(abs (x+i*y)<N/32)=0; % 设置 状态 矩 阵 的 初始 值 
S(abs (x+ix*y)<N/40) =1; 8% 设置 状态 矩阵 的 初始 值 
Ii=imshow{(S); #% 显示 状态 矩阵 
ti=title('time = 0'，'Fontsize',14,'Fontname','Times New Roman'); $% 显示 时 间 
T=0; ， g% 记录 时 间 的 参数 
sc=0.6; 8% 相当 于 系数 公式 中 的 k 
for k=1:6000; # 循环 计算 
rn=zrand*2*piy $% 产生 一 个 随机 的 角度 值 
xt=round(Rwcos (rn)); $% 产生 粒子 的 位 置 
yt=round(Rxsin(zrn)); $% 产生 粒子 的 位 置 
Ss=0; g% 控制 下 面 循 环 是 否 终止 的 参数 
while Ss<1; % 计算 当前 粒子 的 吸附 过 程 
rzr4=rand(1,4); 8% 产生 4 个 随机 数 
r4=r4/sum(r4); s$ 归 一 化 随机 数 
pl=[cos(rn)<0]*cos{rn)^2*sc+(1-sc)*r4(I); sg 根据 角度 分 布 情况 确定 各 方向 运动 的 几率 
p2=[sin(rn)>0]*sin(zrn)^2*sc+(1-sc)*rd4(2); % 根据 角度 分 布 情况 确定 各 方向 运动 的 


p3= [cos(rn)>0]*cos{(rn)^2*sc+(1-sc)*r4(3); g# 根据 角度 分 布 情况 确定 各 方向 运动 的 几率 
p4=[sin(rn)<0]*sin(rn)^2x*sc+(1-sc)x*r4(4); g% 根据 角度 分 布 情况 确定 各 方向 运动 的 


几率 


几率 
[dx,dy]=choose_D(pl,p2,p3,p4); $ 计算 粒子 位 移 量 
xt=xt+dy; $% 计算 下 一 时 刻 粒子 的 位 置 
Yt=Yyt+dx; % 计算 下 一 时 刻 粒 子 的 位 置 
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Yt=mod(yt-1,N)+I; % 利用 周期 边界 条 件 限 制 柱子 坐标 位 置 
xt=moda(xt-1,N)+1; &% 利用 周期 边界 条 件 限 制 粒子 坐标 位 置 
xn=xt+[-1,1,0,0]; g% 计算 最 近邻 的 坐标 
Yn=yt+[0,0,-1,1]; g% 计算 最 近邻 的 坐标 
yn=mod{(yn-1,N)+1; % 对 近邻 进行 周期 边界 条 件 处 理 
xn=mod{(xn-1,N)+1; # 对 近邻 进行 周期 边界 条 件 处 理 
Ind=sub2ind{( [IN,N] ,xn,yn); $% 转化 脚 标 为 索引 
S(xt,yt)=[sum(S(Ind))>3.5]; $% 判断 近邻 是 否 有 粒子 ， 如 果 有 则 固定 当前 运动 的 粒子 
Ss=2*[1-S(xt,yt)]; g% 把 Ss 赋值 为 2， 从 而 可 以 退出 循环 

end 。 

set (Ii,'CData',S); # 显示 当前 状态 矩阵 

T=T+1; % 累加 时 间 参 数 

set (ti,'String',['time = num2stzr(T)]); ss 更 新 时 间 参 数 

pause(0.01); 8% 暂停 一 下 ， 显 示 动 画 效 果 


end 

首先 在 状态 矩阵 的 中 央 区 域 布置 一 些 固定 的 粒子 , 它们 呈 圆 环形 分 布 。 然 后 在 圆圈 上 随机 产生 
一 个 粒子 并 进行 随机 布朗 运动 , 各 个 粒子 运动 方向 具有 向 心 运 动 的 趋势 , 直至 其 与 固定 的 粒子 发 生 
粘贴 才 产生 下 一 个 粒子 。 其 中 对 各 个 时 刻 的 图 案 实 时 显示 。 多 次 计算 之 后 就 可 以 得 到 DLA 演化 图 
案 。 执行 上 述 程序 后 可 以 得 到 如 图 23.15 所 示 的 图 形 , 这 个 图 形 的 分 布 是 各 方向 随机 运动 和 向 心 运 
动 的 总 和 。 





图 23.15 “具有 向 心 运动 趋势 的 DLA 模型 模拟 图 案 


23.5 小 结 


本 章 主要 介绍 了 树枝 状 晶体 生长 MATLAB 数值 模拟 的 方法 。 其 中 主要 理论 基础 是 随机 布朗 运 
动 的 模型 。 随 机 布朗 运动 可 以 直接 用 来 模拟 随机 行走 模型 。 在 随机 布朗 运动 的 基础 上 , 实现 了 扩散 
限制 凝聚 模型 。 利 用 扩散 限制 凝聚 模型 可 以 模拟 一 些 树枝 状 晶体 生长 的 过 程 。 本 章 还 介绍 了 周期 边 
界 条 件 、 有 吸收 边界 条 件 的 实现 方法 ， 以 及 不 同 随机 运动 的 形式 ， 如 随机 吸附 模型 、 具 有 向 心 运动 趋 
势 的 DLA 模型 。 利 用 这 些 基 本 的 模块 ， 可 以 模拟 不 同 条 件 下 树枝 状 晶体 生长 的 过 程 。 


会 信 全 
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人 网 格 上 的 鱼 眼 介绍 鱼 眼 效果 的 模拟 方法 ， 给 出 不 同形 式 鱼 眼 网 格 的 绘制 程序 。 
@ 计算 全 息 编码 及 再 现 程序 介绍 全 患 编 码 的 程序 实现 方法 。 

4 光 的 等 厚 干 涉 ”结合 空气 劈 尖 介绍 等 厚 于 涉 的 模拟 。 

多 杨 氏 双 缝 干涉 ”介绍 杨 氏 双 急于 涉 的 原理 ， 同 时 给 出 相应 的 模拟 程序 。 

多 牛顿 环 介绍 一 个 模拟 牛 额 环 的 用 户 界面 程序 示例 。 


在 很 多 光学 问题 研究 中 , 使 用 了 数值 模拟 来 实现 这 个 过 程 或 者 结果 。 随 着 目前 学 科 的 细 化 ,， 数 
值 模 拟 的 重要 性 在 不 同学 科研 究 中 日 益 突出 。 具 有 快速 、 节 省 资源 资金 、 富 于 变化 等 特点 。 光 学 在 
信息 、 测 量 、 微 观 结构 研究 等 前 沿 领域 有 着 重要 应 用 。 本 章 介 绍 基本 光学 现象 的 模拟 ， 其 中 包括 鱼 
眼 效果 的 模拟 、 全 息 、 干 涉 现象 以 及 牛顿 环 的 模拟 。 


24.1 网 格 上 的 鱼 眼 


虚拟 景观 的 研究 目前 已 经 成 为 计算 机 图 形 学 的 一 个 研究 热点 ,其 原因 就 是 它 具 有 极 大 的 实际 应 
用 价值 。 特 别 是 随 着 计算 机 、 网 络 以 及 电子 商务 的 快速 发 展 ， 虚 拟 景物 在 环境 介绍 、 旅 游 和 一 些 商 
业 活 动 中 具有 重要 的 作用 。 如 果 使 用 普通 相机 镜头 进行 照片 的 拍摄 , 即使 利用 广角 镜 也 需要 拍摄 多 
幅 照 片 ， 然 后 通过 一 些 复杂 的 图 像 处 理 方法 才能 得 到 建立 在 曲面 ( 如 柱 面 或 者 球形 表面 等 ) 表面 的 
全 景 图 ， 这 是 一 个 非常 烦琐 的 工作 。 而 使 用 鱼 眼 镜头 就 可 以 拍摄 180? 甚至 是 大 于 180"% 的 景物 。 
鱼 眼 镜头 的 基本 原理 如 图 24.1 所 示 。 

鱼 眼 镜头 成 像 原理 图 如 图 24.2 所 示 ， 如 果 把 照相 机 放置 到 坐标 系 的 原点 上 ， 而 拍摄 方向 选择 
沿 Z 轴 正 方向 ( 光 轴 所 在 方向 )， 这 样 成 像 面 就 是 一 个 和 XOY 平行 的 平面 。 如 此 ， 图 24.2 就 简化 
成 了 二 维 XOZ 坐标 的 情况 。 鱼 眼 成 像 的 基本 原理 可 以 描述 如 下 : 假设 S 是 以 原点 O 为 焦点 、MN 
为 准 线 的 抛物 线 ， 该 抛物 线 与 X 轴 相 交 于 A 和 B 两 点 ， 令 7r 导 OA41， 则 抛物 线 方程 可 以 表示 为 ; 


(z- 和 请 +(z-z 关 =[r-(z-z) ( 24-1 ) 

其 中 0 点 的 坐标 为 ( 蕊 ,z。 ) , 若 0 点 正好 落 在 坐标 原点 上 , 那么 所 = z。 = 0 。 这 里 取 z. =0， 
那么 等 式 { 24-1 ) 可 以 改写 为 : 

(* 一 到 )= 一 27rz 十 产 ( 24-2 ) 
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图 24.1 鱼 眼 镜头 的 基本 原理 图 24.2 ” 鱼 眼镜 头 成 像 原 理 图 


等 式 ( 24-2 ) 是 一 个 抛物 线 方程 。 对 于 景物 上 一 点 玉 ， 连接 O 点 和 及 点 相交 于 抛物 线 上 的 瑟 
点 ， 通 过 忆 点 作 垂直 于 X 轴 的 线段 ， 与 X 轴 相 交 于 琼 点 ， 嫩 便 是 六 点 通过 鱼 眼 镜头 拍摄 成 的 像 
点 。 若 鱼 眼镜 头 能 够 拍摄 180? 的 场景 ， 则 景物 点 的 像 点 将 会 布 满 X 轴 上 的 线段 AB。 

对 于 真实 的 三 维 情况 ， 抛 物 线 将 变 为 旋转 抛物 面 ， 即 ， 

(xz 一 克 六 +(7 一 站 “=[r-(z- z.)] ( 24-3 ) 

类 似 于 前 面 等 式 ( 24-1 ) 和 等 式 { 24-2 ) 之 间 的 推导 ， 可 以 得 出 下 面 的 关系 式 ， 


(xz 一 区 ) +(> 一 交 广 = 一 27z+ 疡 ( 24-4 
三 维 成 像 过 程 和 二 维 成 像 过 程 相 似 。 利 用 关系 式 ( 24-4 ) 就 可 以 得 到 一 些 图 形 的 鱼 眼 效 果 图 。 

N=30; g# 网 格 采样 点 数 

figurejset(gcf,'Position',[8 90 792 420]); # 生成 空 的 坐标 窗口 

axis squarejhold on; # 设置 坐标 轴 属 性 

[x,y]=meshgrid(0:N) g 生成 格 点 的 坐标 值 

plot (N/2,N/V2，'r. markersize',20) # 画 出 中 心 点 

set (gca, 'Position',[0.05 0.11 0.775 0.815]); gs 设置 坐标 轴 大 小 

k=1/3;ks=sqrt (k)*0.77 sg 设置 比例 系数 

=N*ky g 鱼 眼 透镜 半径 的 大 小 

b=r^2; g% 得 到 半径 的 平方 

axis([0,N,0,N]); g 设置 坐标 轴 范 围 

rxy=Ssqrt ( [x-N/2] .^2+[y-N/2] .^2); g% 计算 网 格 点 到 中 心 的 距离 

for m=1:N+17 gs 逐 点 计算 


for n=1:N+17 
if rxy (mmn)>1e-3 & ITxXY (mn)<L7 


aA=angle([x(tm,n)-N/2]+i*[y(mv,n)-N/2]); $% 计算 当前 格 点 对 中 心 的 方位 角度 


a=2*r^27rxY (mvn) 7 % 计算 参数 a 
rr=-1/2*a+1/2*(a^2+4xb)^(172); s 得 出 目标 点 在 鱼 眼 镜头 成 像 下 到 中 心 的 距 
离 

x(tm,n) =rrvrcos (有 )+N/21 gs 根据 角度 和 到 中 心 的 距离 得 到 像 点 坐标 
Y(m,n) =rrx*sin(R)+N/V21 s 根据 角度 和 到 中 心 的 距离 得 到 像 点 坐标 

else 
x(m,mn)=[x(mn)-NA2]*ks+N/27 g% 处 理 透 镜 半 径 之 外 点 坐标 的 计算 
y(m,n)=[y(m,n)-N/2]*ks+N/2; % 处 理 透 镜 半径 之 外 点 坐标 的 计算 

endG 
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end 

enda 

for Kk=1:N+1; 
plot (xf(:,k),y(:,k),'k'); s% 根据 数据 点 绘图 
plot (x(k,:),y(k,:),'k'); s% 根据 数据 点 绘图 


enda 


axis imagey g 设置 坐标 轴 属 性 
set (gca, 'xtick',[],'ytick' []); *# 删 去 坐标 轴 刻 度 
title(['fish-eye']); g% 加 注 图 题 


首先 对 相关 的 几何 参数 赋值 ， 然后 对 鱼 眼 透镜 内 部 区 域 和 外 部 区 域 采用 不 同 计算 方法 。 遍 历 网 
格 矩 阵 的 所 有 交点 后 ， 在 X 轴 方 向 和 Y 轴 方 向 分 别 利用 plot 函数 绘制 网 状 图 ， 然 后 就 可 以 得 到 相 
应 的 鱼 眼 效果 图 。 上 述 程序 执行 后 可 以 得 到 如 图 24.3 所 示 的 图 形 。 

如 果 把 中 心 点 随机 地 移动 并 实时 计算 当前 鱼 眼 效果 图 , 可 以 得 到 一 个 动画 过 程 。 相 应 地 实现 程 
序 为 光盘 中 \Ch24 文件 夹 下 的 fsh_eye2.m 文件 。 其 中 一 个 截图 如 图 24.4 所 示 。 





图 24.3 鱼 眼 效果 图 图 24.4 ”随机 移动 的 鱼 眼 效果 图 
在 前 面 给 出 鱼 眼 效果 实现 的 程序 中 ， 两 个 参数 k 和 ks 之 间 的 关系 式 是 ks=sqrt(k)*0.7， 这 是 
一 个 经 验 公 式 。 其 中 的 系数 “0.7” 是 随 着 k 的 变化 而 变化 的 ， 这 里 把 这 个 关系 式 总 结 为 : 


ks = cwk ( 24-5 ) 
通过 测试 ， 不 同 的 k 对 应 的 c 数值 如 表 24.1 所 示 。 
表 24.1 参数 k 和 的 部 分 经 验 数值 





k 忆 k C k C k 他 
0.20 0.92 0.30 0.75 0.40 0.65 0.50 0.58 
0.23 0.86 0.32 0.73 0.42 0.635 

0.25 0.83 0.35 0.70 0.45 0.62 

0.27 0.80 0.37 0.68 0.47 0.61 


可 以 利用 下 面 一 段 小 程序 来 计算 [0.2,0.5] 之 间 的 k 值 对 应 的 c 数值 。 


function Cc=fitfc(k):; 
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kn=[0.2,0.23,0.25,0.27,0.3,0.32,0.35,0.37,0.4,0.42,0.45,0.47,0.5]; % 离散 的 数 


cn=[0.92,0.86,0.83,0.8,0.75,0.73,0.7,0.68,0.65,0.635,0.62,0.61,0.58]; ss 离散 的 


Dd=abs (kmn-k) ; gs 求 出 输入 k 和 经 验 数 据点 的 差 值 
[Dm, ITkl]=min(Dd) ; sg 找 出 最 小 值 
Dada(Ikl)=3; s# 把 当前 最 小 值 变 为 一 个 较 大 的 数 


[Dm, Tk2] =min (Dd) ， #% 找 出 当前 最 小 值 ， 这 样 就 得 到 了 两 个 比较 小 的 数值 ， 它 们 包含 了 输入 点 
c=cn(Ik1)*[k-kn{Ikl) ]/[kn(Ik2)-kn(Ik1l)]+cn(Ik2)*[kn(Ik2)-k]/[kn(Ik2)-kn(Ikl)]; 
$ 用 最 近 两 点 拟 合 


同时 把 前 面 绘制 鱼 眼 的 程序 改 为 函数 文件 的 形式 ， 其 中 N 和 k 作为 函数 的 输入 参数 ， 而 上 面 
的 函数 fitfc 作为 子 函数 ， 这 样 可 以 得 到 draw_fisheye.m 文件 ， 该 文件 保存 在 光盘 中 \Ch24 文件 夹 
下 。 通 过 下 面 的 语句 可 以 得 到 如 图 24.5 所 示 的 图 形 对 话 窗口 。 
axes('position',[0.1,0.1,0.6,0.6]); # 设置 坐标 轴 的 位 置 
draw_fisheye(30,0.20); s% 绘制 默认 值 时 的 鱼 眼 效果 图 


S1=uicontrol (gcf,'style','slider'，'unit'，'normalized'，'position',， [0.84,0.1,0.0 
4,0.8],，.:. 


'TooltipString'，'k=0'，'SliderStep' [0.0T,0.01]，'Callback'，['v=get(s1，' value' 
) ?clay 。。.。 


"draw_fisheye(30,0.2+0.4*v);set(S1，''TooltipString''，[''k=' num2str(0.2+0.4w*V 
)])']); sg 生成 滑动 条 控件 





图 24.5 ” 带 有 滑动 条 改变 参数 的 GUI 窗口 


24.2 ”计算 全 息 编 码 及 再 现 程序 


全 息 术 是 在 光学 衍射 理论 和 激光 器 的 基础 上 建立 起 来 的 一 种 光学 技术 , 它 可 以 用 于 信息 处 理 领 
域 中 的 信息 存储 和 损伤 检测 等 问题 。 计 算 全 息 是 建立 在 光学 衍射 理论 和 光学 全 息 基础 上 的 一 种 离散 
形式 的 理论 ,是 光谱 学 、 物 理光 学 、 计 算 物 理 以 及 计算 机 科学 等 多 门 学 科 的 综合 。 而 全 息 编码 技术 
是 计算 全 息 中 的 一 个 重要 环节 。 

计算 全 息 编 码 是 把 复 振幅 信号 转换 为 实数 、 非 负 的 函数 值 ， 以 便于 在 输出 介质 上 显示 。 记 录 了 
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全 息 图 的 信息 介质 ， 可 以 通过 光学 再 现 系统 来 再 现 全 息 图 像 。 目 前 存在 的 编码 技术 可 以 分 为 三 类 。 
第 一 类 是 对 振幅 和 相位 进行 编码 ， 其 特点 是 振幅 和 相位 完全 是 非 负 的 实数 而 无 须 考虑 负 数 的 问题 。 
在 这 种 编码 过 程 中 , 一般 是 使 用 矩形 孔 的 面积 、 形 状 以 及 位 置 进行 调制 。 这 种 编码 技术 要 求 绘制 编 
码 图 案 时 的 定位 精度 高 。 第 二 种 编码 方法 是 增加 离 轴 的 参考 光波 ， 从 而 增加 偏 置 项 ， 直 接 对 振幅 进 
行 编码 。 这 种 编码 方法 需要 与 参考 光波 进行 琶 加 运算 ， 因 此 其 计算 量 相对 大 一 些 。 而 且 再 现 的 时 候 
需要 引入 相同 的 参考 光波 进行 照明 。 第 三 种 编码 方法 是 对 振幅 进行 正 交 分 解 , 其 中 比较 典型 的 是 四 
级 迁 回 式 相 位 编码 技术 。 可 见 直接 对 复 振幅 的 虚 部 和 实 部 进行 编码 时 计算 量 较 小 。 
下 面 来 介绍 迁 回 相位 编码 的 具体 方法 ， 这 个 编码 方法 最 早 是 由 德国 科学 家 Lohmann 提出 的 ， 

其 原理 如 图 24.6 所 示 。 图 中 的 正方 形 虚 线 被 认为 是 一 个 编码 单元 ， 其 中 实 线 围 成 的 矩形 框 表 示 这 
个 编码 单元 内 的 “ 透 光 部 分 ”( 对 应 的 元 素 值 等 于 1 )。 而 在 这 个 编码 单元 内 和 矩形 框 之 外 的 部 分 认为 
是 不 透 光 的 ， 即 对 应 的 元 素 等 于 0。 和 形 的 高 等 于 2j ， 这 个 数值 对 应 于 离散 单元 在 传 里 时 变换 谱 
中 的 振幅 大 小 ， 托 形 的 宽度 取 固 定 的 数值 。 而 这 个 矩阵 的 中 心 轴 距 Y 轴 的 距离 上. 对 应 于 变换 谱 的 
相位 值 ， 其 位 于 Y 轴 的 左右 两 侧 分 别 对 应 负 和 正 的 位 相 。 这 种 编码 方式 被 称 为 罗曼 下 型 编码 。 





图 24.6 迁 回 相位 编码 计算 的 原理 
这 里 使 用 一 个 11 x 11 的 和 矩阵 对 应 于 图 24.6 所 示 的 编码 单元 。 相 应 的 计算 全 息 编码 和 再 现 的 
MATLAB 程序 如 下 : 


R=zeros1(64) ; g 生成 全 0 和 矩阵 

&R(15:20,20:40)=1; $ 生成 字母 E 的 部 分 线条 
&A(15:50,20:25)=1; s$ 生成 字母 己 的 部 分 线条 
&A(45:50,20:40)=1; g% 生成 字母 E 的 部 分 线条 
RAR(30:34,20:35)=1; $% 生成 字母 已 的 部 分 线条 
figure;imshow(1-abs(aA),f]); % 显示 图 像 并 进行 反 色 处 理 
Fa=fft2(fftshift(A)); g% 进行 傅 里 时 变换 

Fs=fftshift (Fa);  % 进行 频 移 操作 


Ram=abs(Fs) g 取 
Ph=angle(Fs) 外 取 相 位 
s=11， # 设置 编码 单元 的 大 小 


cgh=zeros(64*s);  $ 生成 全 0 计算 全 息 编码 和 矩阵 
th=max (max(abs(Fs))); % 计算 出 频谱 中 最 大 的 振幅 值 
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qqG=thVy1.2; g% 对 最 大 值 进 行 截断 
am(Rm>qq)=qq7 g% 把 阐 值 以 上 部 分 的 数值 设置 为 阀 值 
q=1:s; gs 生成 单元 格 中 的 离散 序列 
w={s+1)7/2; g 计算 出 中 心 坐 标 
for m=1:64; # 遍历 各 行 

for n=1:64; # 遍历 各 列 


h=round (am (m,n) /qq*(w-1)-0.5); 多 把 振幅 进行 归 一 化 处 理 并 进行 量化 
md=zeros(s); $% 初始 化 单元 格 内 的 数值 


if h>0; # 对 正 数 的 振幅 进行 编码 
td=ones (hx2+1,3) ; # 生成 矩形 透明 孔 
Pm=round(Ph (tm,n) /pi*3); #% 对 相位 进行 编码 
kz=Pm+wy gs 计算 透明 孔 的 列 位 置 
md(w-h:w+h,kz-1:kz+1)=td; #% 按 列 位 置 进行 赋值 
end 
cgh( (m-1)*s+qv (n-1)*s+G) =ma; 把 计算 生成 的 单元 孔 放置 到 对 应 的 位 置 处 
enda 
end 
figurey imshow (max (max(cgh) )-cgh, []); # 迁 回 位 相 编码 结果 
Re=ifft2{cgh) ; # 利用 逆 傅 里 叶 变换 进行 再 现 
Re=fftshift (Re) # 进行 频谱 移动 
figureiimshow(max{(max(abs(Re) ))-abs{(Re),[]); s# 再 现 图 像 


首先 对 德 阵 4 的 各 个 部 分 进行 复制 而 得 到 一 个 字母 "E" 图 案 , 然后 对 矩阵 4 进行 傅 里 叶 变 换 。 
对 变换 谱 进行 全 息 编码 ， 编 码 单元 是 一 个 11x 11 的 小 和 矩阵， 并 显示 编码 后 的 矩阵。 最 后 利用 道 傅 
里 时 变换 进行 全 息 再 现 的 模拟 。 执 行 上 述 程序 ,得 到 的 输出 图 形 中 使 用 的 输入 图 像 如 图 24.7 所 示 。 
相应 的 全 息 编 码 图 像 如 图 24.8 所 示 。 再 现 图 像 如 图 24.9 所 示 。 


| 





图 24.7 ”输入 图 像 图 24.8 全 息 迁 回 相位 编码 图 像 
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图 24.9 再现 图 像 


7、 日 242、 图 24.9 使 用 了 反 色 显 示 ， 即 黑色 对 应 的 数值 较 大 ， 而 白色 对 应 
的 像素 值 较 小 。 这 样 做 是 为 了 避免 出 现 大 面积 的 黑色 区 域 。 


从 图 24.9 可 以 看 出 再 现 图 像 不 够 清晰 ， 为 了 得 到 更 清晰 的 图 像 ， 应 该 使 用 元 素 更 多 的 子 和 矩阵 
来 表示 编码 单元 。 相 应 地 对 计算 机 的 内 存 要 求 更 高 。 此 外 在 编码 形式 上 还 可 以 选择 矩形 高 度 固 定 ， 
利用 和 珑 形 的 宽度 表示 振幅 ， 利 用 中 心 轴 在 X 轴 上 的 投影 表示 相位 值 。 

前 面 介绍 了 罗曼 下 型 编码 , 这 里 再 补充 罗 最 [型 和 罗曼 开 型 编码 。 罗曼 工 型 编码 方案 是 矩形 孔 
的 高 度 不 变 ， 使 用 和 矩形 孔 的 宽度 刀 对 应 于 变换 谱 的 振幅 值 ， 而 使 用 矩 形 孔 的 竖 直 对 称 轴 对 Y 轴 的 
位 移 $ 对 应 于 复 振幅 的 相位 值 ， 相 应 的 关系 图 如 图 24.10 所 示 。 








图 24.10 罗 昌 | 型 编码 原理 图 
在 罗曼 开 编 码 方式 中 , 使 用 和 矩形 的 宽度 调制 振幅 和 相位 , 每 个 编码 单元 含有 两 个 宽度 和 高 度 相 
同 的 矩形 孔 ， 它 们 的 间距 对 应 着 振幅 数值 。 它 们 的 中 心 轴 到 编码 单元 中 心 位 移 $ 对 应 于 相位 值 。 
该 编码 方式 的 几何 关系 如 图 24.11 所 示 。 
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图 24.11 罗曼 1 型 编码 原理 图 


上 面 的 罗曼 I 型 编码 方式 和 罗曼 开 型 编码 方式 可 以 模仿 前 面 的 罗曼 于 型 编码 方式 建立 实现 程 
序 。 其 中 罗曼 [型 编码 要 求 的 绘图 时 间 短 ， 同 时 可 以 在 Y 轴 方 向 抑制 多 级 衍射 ， 然 而 这 种 编码 方 
式 的 精度 较 低 。 罗 曼 开 型 编码 同样 具有 较 低 的 精度 ， 同 时 绘图 时 间 长 ， 目 前 应 用 较 少 。 罗 曼 亚 型 编 
码 吸 取 了 罗曼 工 型 编码 和 罗曼 开 型 编码 的 优点 ， 故 其 应 用 广泛 。 

下 面 给 出 博 奇 ( Burch ) 编码 的 定义 ， 这 种 编码 方式 通过 增加 直流 偏 置 量 来 构成 全 息 函数 ， 即 : 


1 

媚 (xv) =3t+4(wv)j[cos(2mue-g(x 相 ( 24-6 ) 

其 中 刀 (wv) 表 示 全 息 面 的 谱 分 布 函数 。A4 (zy) 表示 全 息 波 前 的 振幅 ， 其 中 4(xw,y) 已 经 做 
了 归 一 化 处 理 ， 最 大 值 为 1。 这 样 通过 公式 ( 24-6 ) 的 转化 ， 函 数 吾 (wk,y) 可 以 保证 各 处 函数 值 非 
负 。Q 是 载 频 系数 。 儿 (wy) 是 全 息 波 前 的 相位 函数 。 式 ( 24-6 ) 中 对 振幅 函数 进行 了 归 一 化 处 理 ， 
此 外 还 可 以 取 A(iv) 的 最 大 值 来 保证 函数 A( uv) 非 负 ， 即 ; 

瑟 (uy) = 了 fmax[4(ws]+4(wv)[cos(2mua-alxy (24-7 ) 

其 中 max 表示 计算 二 元 函数 的 最 大 值 。 在 式 ( 24-7 ) 中 就 不 必 进 行 归 一 化 操作 了 。 在 编码 的 
时 候 ， 利 用 正方 形 开口 表示 光 强 ， 正 方形 的 边 长 对 应 于 VE (ivy) 。 


24.3 光 的 等 厚 干 涉 


光 的 等 厚 干涉 现象 如 图 24.12 所 示 。 一 束 平行 光 竖 直 向 下 照射 到 一 个 倾斜 的 空气 劈 尖 , 在 平面 
上 将 形成 等 间距 明暗 相间 的 干涉 条 纹 。 设 相 邻 暗 条 纹 之 间 的 距离 为 ! ， 那 么 有 如 下 关系 成 立 : 


lsinw = 入 /2 ( 24-8 ) 


其 中 &% 为 空气 劈 尖 的 项 角 大 小 。4 为 入 射 光 波 的 波长 。 这 样 如 果 已 知 光波 波长 ， 同 时 测量 出 
条 纹 之 间 的 距离 就 可 以 得 出 两 个 平面 之 间 的 夹 角 。 
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用 呈 


召 二 
图 24.12 ”空气 劈 尖 等 厚 干涉 原理 图 
下 面 给 出 空气 劈 尖 等 厚 干 涉 的 动画 演示 程序 。 


set (gcf, 'DoubleBuffer','on'); % 设置 泻 染 效果 
axes('position',[0.12,0.08,0.6,0.8]);hold on; axis manual; % 设置 坐标 轴 属 性 
title(' 关 于 光 的 等 厚 干涉 ( 劈 尖 ) 的 动画 "，' fontsize',16); *# 添加 图 题 
rectangle('position',[0.15,0.2,0.7,0.01],'Facecolor',[0.1,0.3,0.4]);% 画 一 个 矩 
形 ， 作 为 底面 
plot([0.2,0.2],[0.2,0.4]); $% 画 一 条 竖 线 
plot([0.8,0.2],[0.2,0.4]); $# 绘制 斜面 
style='none'; $% 控 除 模式 
for k=1:10; 
h{(k) =plot([0.21+(k-1)*0.06]*[1,1],[0.6,0.6]，r'wv... 
,1inewidth' ,1,'EraseMode' ,style); $% 男 出 多 条 人 入射 光线 
end 
G=0.6; g 设置 入 射 光线 随时 间 变 化 的 下 端点 位 置 
while G>=0.2; $# 循环 计算 
G=G-0.01; % 计算 当前 时 刻 的 下 端点 位 置 
set (h, 'ydqata', [0.6,G] ); % 更 新 绘图 数据 
pause(0.1) % 暂停 一 下 显示 动画 效果 
ena 
for k=1:107 
hr(k)=plot([0.21+(k-1)*0.06]*[1,1],[0.2,0.2]，r'v 
+1inewidath',2); $% 设置 底面 反射 光线 的 起 点 
enaG 


while G<0.4;  $% 循环 绘制 反射 光线 
G=G+0.01; g% 计算 当前 反射 光线 的 位 置 
set (hr, 'ydata', [0.2,G]); *% 更 新 反射 光线 的 位 置 
pause(0.1); # 暂停 一 下 显示 动画 效果 
end 
z=[0.8,0.2]+ix[0.2,0.4]; % 生成 沿 着 斜面 的 向 量 
N=400; $% 计算 采样 点 数 
an=angle(diff(z))-pi/2; % 计算 角度 值 
Rn=exp (ixRn) s 模 值 为 1 的 复数 
zz=linspace(z(1),z(2),N); % 离散 取样 点 值 
si=abs(sin(linspace(0,pix20,N) )).^2720; g% 生成 干涉 曲线 
zz=zz+Sixan; g% 进行 旋转 和 平移 操作 
plot (zz,，'b'); S% 绘制 干涉 曲线 


首先 利用 函数 plot 生成 一 个 劈 尖 图 案 。 然 后 模拟 光 入 射 过 程 的 动画 ， 光 线 每 步 增加 一 定 的 长 
度 ， 到 达 劈 尖 底 部 时 光线 将 发 生 反射 ， 在 劈 尖 倾斜 的 面 上 发 生 干 涉 现象 ， 得 到 一 系列 的 干涉 条 纹 。 
这 个 程序 可 以 演示 光线 入 射 和 反射 的 过 程 ， 执 行程 序 可 以 得 到 如 图 24.13 所 示 的 图 形 。 
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关于 光 的 等 厚 干涉 ( 劈 穴 ) 的 动画 
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图 24.13 ”和 劈 尖 等 厚 干涉 模拟 结束 后 的 图 案 





24.4 杨 氏 双 缝 干涉 


杨 氏 双 缝 干涉 实验 是 光学 中 的 一 个 重要 实验 , 它 在 量子 理论 中 也 是 一 个 重要 的 模型 。 英 国 物理 
学 家 托马斯 。 杨 最 先 在 1801 年 得 到 了 两 列 相干 的 光波 ， 同 时 以 明确 的 形式 建立 了 光波 登 加 原理 ， 
用 光 的 波动 性 成 功 地 解释 了 光学 干涉 现象 。 此 外 ， 他 用 较 高 强度 的 单 色 光 垂 直 照 射 到 开 有 小 孔 S 
的 不 透明 遮光 板 ( 其 在 光学 中 也 称 为 光 阑 ) 上 ， 如 图 24.14 所 示 。 在 巴 后 面 放置 第 二 块 光 益 ， 上 
面 有 两 个 小 孔 Si 和 Sa。 在 Ps 平面 上 可 以 得 到 一 系列 明暗 相间 的 干涉 条 纹 。 杨 氏 利 用 了 惠 更 斯 对 光 
的 传播 所 提出 的 次 波 原理 解释 了 这 个 著名 的 光学 实验 。 





图 24.14 ” 杨 氏 双 缝 干 涉 原理 图 
编写 程序 模拟 杨 氏 双 缝 干涉 的 过 程 ， 并 给 出 杨 氏 双 缝 干涉 的 演示 程序 。 可 以 按照 图 24.15 所 示 
的 流程 编写 模拟 程序 。 
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图 24.15 ” 杨 氏 双 颖 干涉 模拟 的 流程 图 


604 jp > > 和 


疣 可 本 4 第 年 光学 现象 模 似 


figure('position',[217 266 694 244]); # 设置 图 形 窗口 的 位 置 属性 
set (gcf, 'DoubleBuffer','on'); % 设置 泻 染 效 果 
axes('position',[0.12,0.08,0.6,0.8]);holda on; # 设置 坐标 轴 位 置 
rectangle('position',[-1,1.1,0.1,3],，'Facecolor', [0.1,0.3,0.4]); g 绘制 矩形 作为 
光 盖 的 一 部 分 
rectangle('position'，[-1,-4,0.1;3]，'Facecolor',[0.1,0.3,0.4]); g% 绘制 矩形 作为 
光 盖 的 一 部 分 
rectanglel('position',[-1,-0.8,0.1,1.6],'Facecolor',[0.1,0.3,0.4]); % 绘制 矩形 作 
为 光 阐 的 一 部 分 
axis([-4,12,-5,5]); # 设置 坐标 轴 范 围 
ha=plot([-3.8,-3.8],[0.9,0.9]，r''linewidth',3); 8% 绘制 其 中 一 条 入 射 光线 
hb=plot([-3.8,-3.8],[-0.9,-0.9]，r'v'linewidth',3); % 绘制 其 中 第 二 条 入 射 光线 
title('Double slit interference  \copyright xxx'); % 加 注 图 题 
L=-3.8; % 入 射 光线 的 设置 端点 位 置 
rectangle('position', [11,-4,0.1,8],'Facecolor'… [0,0,0]); $% 绘制 后 面 的 屏 
plot([-1,4.1],[-3.5,-3.5],'k'); % 增加 长 度 标注 的 水 平 线段 部 分 
plot([5.9,11],[-3.5,-3.5],'k'); s#% 增加 长 度 标 注 的 水 平 线段 部 分 
plot([-0.7,-1,-0.7],[-3.3,-3.5,-3.7],'k'); % 画 箭头 中 的 短线 
plot([10.7,11,10.7],[-3.3,-3.5,-3.7],'k'); #% 画 箭头 中 的 短线 
text (4.8,-3.5, '3m'); $ 添加 标注 长 度 的 文字 
plot([-1.5,-1.5],[0.9,0.35],'k'); s# 增加 长 度 标 注 的 坚 直 线段 部 分 
plot([-1.5,-1.5],[-0.9,-0.35],'k')， sg 增加 长 度 标 注 的 竖 直 线段 部 分 
plot([-1.65,-1.5,-1.3],[0.6,0.9,0.6],'k'))， sg% 画 箭头 中 的 短线 
plot([-1.6,-1.5,-1.3],-[0.6,0.9,0.6],'k'); #% 画 箭头 中 的 短线 
text (-2.1,0,'2mm'); % 加 注 文字 - 
while L<=-0.95) sg 绘制 光 在 狭 缝 前 的 传播 情况 
L=L+0.05; $% 更 新 位 置 
set (ha, 'xdata',[-3.8,L]); % 更 新 上 面 一 条 光线 的 位 置 数据 
set (hb, 'xdaata',[-3.8,L]); s% 更 新 下 面 一 条 光线 的 位 置 数据 
pause(0.05); 当 暂停 一 下 ， 显 示 动 画 效果 
ena 
xas=-0.95;yas=0.9; % 生成 上 面 小 孔 发 出 的 光线 
xbs=-0.95;ybs=-0.9; % 生成 下 面 小 孔 发 出 的 光线 
po=[-3.5:3.5]; % 离散 化 数据 
ka=(po-yas)xi+(fl1+0.95);ka=ka./abs(ka); 8%. 生 成 复数 数值 
kb= (po-ybs)w*i+(11+0.95) ;kb=jkb./abs(kb); % 生成 复数 数值 
for n=1:8; % 循环 画 衍 射 光线 
ah(tn)=plot(xas,yas,'z'); gs 画 上 面 小 孔 发 出 的 衍射 光线 
bh (tn)=plot (xbs,ybs,'r'); % 画 下 面 小 孔 发 出 的 衍射 光线 
enaQ 
r=0; 负 长 度 参 数 
za=xas+yasxi; g% 生成 上 面 小 孔 的 坐标 值 
zb=xbs+ybsxi; g% 生成 下 面 小 孔 的 坐标 值 
Le=sart (11.95^2+3.5^2); $ 计算 两 个 小 孔 中 点 距离 衍射 最 远 点 的 长 度 
while r<=Le; % 控制 循环 终止 条 件 
for n=1:8; $ 循环 画 线 
Ta=za+rx*katn) ; g% 计算 上 面 小 孔 衍 射 光 线 坐 标点 对 应 的 复数 
Ya=imag{Ta) ; $ 计算 衍射 光线 右 侧 端点 的 纵 坐 标 
if abs(imag(Ta) )>=abs(po(n) ) ; # 检测 光线 是 否 传播 到 屏 所 在 平面 
Ya=po(n); # 获取 屏 上 的 坐标 值 
endQ 
set (ah(tn),'xaata',[xasv,min{1ll,real(Ta))],'ydata', [yas,Ya]l); % 更 新 衍射 光线 


Tb=zb+r*kb tn) ; $ 计算 下 面 小 孔 衍射 光线 坐标 点 对 应 的 复数 
Yb=imag(Tb); *# 计算 衍射 光线 右 侧 端 点 的 纵 坐 标 
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if abs(imag(Tb) )>=abs (po(n)); s% 检测 光线 是 否 传播 到 屏 所 在 平面 
Yb=potn); $# 获取 屏 上 的 坐标 值 
end 
set (bh (n)，'xdqata', FExbs,min(1l,real(Tb))]j,'ydata', [ybs,Yb]); g% 更 新 衍射 光线 


enda 

xz=r+0.05) $ 更 新 光线 传播 距离 的 数值 

pause(0.05) ; 
endG 
s=meshgrid(linspace(4,-4,300))'; $#% 生成 坐标 矩阵 
De=abs((s-1)*i+3000)-abs((s+l)*i+3000); g% 计算 波 程 差 
lambda=0.6328e-3;  s# 对 波长 赋值 
de_A=De/lambdaxpix2; $% 计算 波 程 差 
It=1-cos(dae_A); # 计算 干涉 图 案 
axes('position',[0.72,0.16,0.26,0.64]); g 生成 一 个 新 的 坐标 轴 
cc=cat(3,It/2,zeros(size(It)),zeros(tsize(It))); s# 生成 彩色 图 案 对 应 的 数据 矩阵 
imshow(cc, []); g% 显示 干涉 图 案 
xlabel ('\copyright MATLAB 2008')) % 对 图 形 添 加 标注 


首先 模拟 光 在 入 射 到 小 孔 前 的 传播 情况 模拟 。 到 达 小 孔 光 将 发 生 衍射 ， 向 不 同方 向 传播 。 这 时 
一 根 光 线 将 分 为 多 根 光 线 ， 同 时 它们 向 屏 所 在 平面 传播 。 到 达 屏 面 后 将 发 射 二 涉 产生 明暗 条 纹 ， 同 
时 给 出 干涉 图 案 的 显示 。 运行 上 述 程序 可 以 得 到 杨 氏 双 缝 干涉 实验 的 模拟 , 程序 运行 完毕 后 可 以 得 
到 如 图 24.16 所 示 的 图 形 。 两 束 光 首 先 平 行 于 水 平 轴 向 右 传播 ， 遇 到 小 孔 后 发 生 衍射 ， 向 不 同方 向 
传播 。 当 它们 传播 到 后 面 竖 直 放置 的 接收 屏 时 两 束 发 散 的 光束 进行 干涉 ， 这 时 可 以 得 到 如 图 24.16 
中 右 侧 图 形 所 示 的 干涉 图 案 。 这 个 程序 形象 地 模拟 了 杨 氏 双 缝 干涉 现象 的 动态 过 程 。 


让 这 里 使 用 函数 rectangle 来 绘制 光 阔 ， 读 者 还 可 以 使 用 函数 plot 或 者 line 绘制 一 
局。 条 箭 的 实 线 来 表示 光 闻 ， 从 而 简化 程序 。 
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图 24.16 动态 演示 杨 氏 双 缝 干涉 现象 得 到 图 案 


24.5 “牛顿 环 


如 果 把 一 块 曲率 半径 愉 很 大 的 平 凸透镜 的 凸 面 放 在 一 块 光学 平板 玻璃 上 面 ( 如 图 24.17 所 示 小 
这 样 就 在 透镜 的 凸 面 和 平板 玻璃 间 形 成 一 个 空气 薄 层 , 其 厚度 从 中 心 接触 点 到 边缘 逐渐 增加 。 而 离 
接触 点 ( 或 者 说 平 凸透镜 最 低 点 ) 等 距离 的 地 方 , 厚度 相同 , 等 厚 膜 的 轨迹 是 以 接触 点 为 中 心 的 圆 。 
当 波 长 为 的 单 色 光 垂 直入 射 透 镜 时 ,在 空气 膜 上 下 表面 反射 的 两 束 光 为 相干 光束 ， 从 而 形成 的 二 
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是 本 梧 4 第 2 生 间 光学 现象 模 似 
涉 条 纹 是 以 透镜 与 玻璃 接触 点 为 圆心 的 明暗 相间 的 同心 圆 环 ， 这 些 圆 环 被 称 为 牛顿 环 。 
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NA 


图 24.17 ”牛顿 环 的 原理 图 
下 面 来 模拟 牛顿 环 图 案 ， 这 里 给 出 一 个 用 户 交互 操作 界面 的 实现 程序 ， 其 中 包括 


令 “牛顿 环 原理 图 的 绘制 。 
人 牛顿 环 图 案 的 模拟 。 
争 控制 参数 的 调节 。 


相应 程序 内 容 如 下 ， 


figure('Position',[90 164 873 483]); g% 设置 图 形 窗口 位 置 
L=632.8;R=5;H=0,005; % 设置 软 认 参数 值 : 波长 、 半 径 R 和 厚度 H 
al=axes('position',[0.83,0.3,0.15,0.4]); $% 设置 坐标 轴 位 置 ， 在 其 上 绘制 简易 的 原理 图 
hola on;axis([0,1,0,1j); #% 设置 坐标 轴 范 围 
plot([0.25,0.25], [0.5,0.8],'k'); #% 画 坚 直 线 ， 入 射 光 线 
plot([0.5,0.5],[0.5,0.8],'k'); sg# 画 坚 直 线 ， 入 射 光线 
plot([0.75,0.75], [0.5,0.8],'k'); sg% 画 竖 直线 ， 入 射 光 线 
fill([0.22,0.25,0.27], [0.5,0.44,0.5],'k'); # 画 出 箭头 
fill([0.47,0.5,0.52],[0.5,0.44,0.5]，'k'); g% 画 出 箭头 
fill([0.72,0.75,0.77],[0.5,0.44,0.5],'k'); 8% 画 出 箭头 
z=1.8*exp(ivx(linspace(-0.21,0.21,30)-pi/2))+2.1x*i+0.5; % 生成 平 凸透镜 的 轮 席 
fill(real(z),imag(z),'w'); % 利用 fill 函数 画 平 凸透镜 的 轮廓 
rectangle('Position',[0.1,0.18,0.8,0.12]); g% 画 玻璃 板 底面 
Set (gca,，'Xtick',[],，'ytick'，[]，'box' 'on'); % 删 去 坐标 轴 刻 度 
a2=axes('Position',[0.4,0.16,0.4,0.7])) 凶 人 在 其 上 画 牛 顿 环 
[x,y]=meshgrid(linspace(-0.005,0.005,200)); $% 生成 坐标 矩 
r2=(x.^2+Y.^2); gs% 坐标 和 矩阵 各 点 到 中 心 的 距离 
Di=[2*H+2+(R-sqdrt(R^2-r2))*le9]/L， #% 计算 光 程 差 

In=abs(cos(Di*pi*2)); 得 到 牛顿 环 上 的 光 强 数值 

cr=abs (L-560) /200;7 #% 红色 的 分 量 值 
CgG=1-CcFr; 多 绿色 的 分 量 值 
cb=abs(L-600)/240; $% 蓝 色 的 分 量 值 

Ik(:,:v1)=In*cri % 转化 为 RGB 三 基色 表示 颜色 和 玫 阵 数值 ( 红色 ) 

Ik(:,:,2)=Inxcg) % 转化 为 RGB 三 基色 表示 颜色 矩阵 数值 ( 绿色 ) 

Ik(:,:,3)=Inxcby % 转化 为 RGB 三 基色 表示 颜色 矩阵 数值 { 蓝 色 ) 

Pc=imshow(Ik, [] ) ; #% 绘制 默认 参数 下 的 数值 

title('the pattern of Newton''s rings', 'fontsize',18); #% 添加 图 题 
Lt=uicontrol (gcft,'style'，'text'，..， 

unit '，'normalized'，'position' [0.06,0.86,0.21,0.06]，... 
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Backgroundcolor',0.7*[1,1,1]，'Foregroundcolor'，[0.8,0.1,0.9],，... 

String' ，'Wavelength: 632 .8nm',，'fontsize',16，'Efontname'，'times new rcoman'); 多 实 
时 显示 波长 的 文本 框 
S1=uicontrol(gcf,'style','Slider',，... 

unit'，'normalized'，'position'， [0.06,0.76,0.21,0.04],... 

'Backgroundcolor',0.7*[1,1,1],，'ForegroundaCcolor', [0.1,0.1,0.9],..-. 

"SliderStep',[0.01,0.01],'value',， (632.8-360)/400,，. .. 

"callback',['L=get (S1，''value'')*400+360)'，.，,。 

"set(Lt,，''string' ['wavelength: ' nurm2str(L/10)， nm'']);.。 

:Di=[2*H+2w(R-SQGrE (R^2-r2))*1e9]/Dy 

'In=abs(cos (Diwpiw2));cr=abs(L-560)/200;cg=1-cry'.。 

'cb=abs(L-600)/240;Ik(:,:，,1)=InwCcr;Ik(:，:，2)=In*cg)'，..。 

'ITk(:,，:,3)=In*cb;yset{(Pc,''CData'',Ik);']); % 利用 滑动 条 改变 波长 数值 
Uicontrol (gcf,，'style'，'text '， 

unit'，'normalized'，'position', [0.04,0.81,0.08,0.04],，... 

:Backgroundcolor',0.8*[1,1,1],，'Foregroundcolor',[0.1,0.1,0.9],... 

'string','360'， :fontsize',16,'fontname','times new roman'); $% 显示 最 小 波长 数值 
uicontrol (gcf,，'Ssty1le'，'text'，..。 

"unit '，'normalized'，'position' [0.22,0.81,0.08,0.04],，... 

'Backgroundcolor',0.8*[1,1,1],，'Foregroundcolor', [0.1,0.1,0.9],，... 

'string'，'760'，fontsize' ,16,'fontname','times new roman'); $% 显示 最 大 波长 数值 
Rt=uicontrol (gcf,，'Style'，' 上 ext'，..。 

unit '，'normalized',，'posiction'，[0.06,0.66,0.23,0.06],... 

'Backgroundacolor',0.7*[1,1,1]，'Foregroundcolor', [0.8,0.1,0.9],.. 

+string'y radii:'，'fontsize',16, fontname','times new roman'); % 实时 显示 半径 数 
值 的 文本 框 
S2=uicontrol (gcf,，'style',，'slider'，,.,， 

unit，'normalized'，'position', [0.06,0.56,0.21,0.04]，... 

"Backgroundcolor',0.7*[1,1,1],，'Foregroundcolor', [0.1,0.1,0.9]，... 

"SliderStep'… [0.01,0.01],..-. 

:callback'，['R=get(s2,，''Value'')*7+5;'，，,。 

'Set (REt,''String' [radii: 5m' num2sStr (R)，m' ]) vi。 

'Di=[2*H+2*(R-SGILt (R^2-I2) )*1e9]/DL 和. .-。 

'In=abs (cos (Di*ypix*2))7cr=abs(L-560) /200;cSG=1-cri 

"cb=abs (L-600)/240;TIk(:,:,1)=InxcriIKk(:，:，2)=Inxcgy '，... 

'Tk(:,:,3)=Inx*cb;set(Pc,''CData'',Ik);']); sg 通过 滑动 条 改变 半径 数值 
uicontrol (gcf,，'Style'，'text'，..。 

'unit'，'normalized',，'position',，[0.04,0. 617 0.08,0.04],..， 

'Backgroundcolor',0.8* [1,1,1],'ForegroundColor' [0.1,0.1,0.9],... 

string' 5:fontsize',16, ,fontname'，'times new roman'); #% 显示 最 小 半径 
LUicontrol (gcft，， Style'，'text'，... 

unit'，'normalized',，'position',[0.22,0.61,0.08,0.04],，... 

'Backgroundcolor',0.8* [1,1,1],，'Foregroundcolor',[0.1,0.1,0.9],.…. 

string'，'12，'fonteize',16, fontname'，'times new roman'); % 显示 最 大 半径 
Ht=uicontrol(gcft,，'Ssctyle'，'text'，..-. 

runit'， normalized'，'position'， [0.06,0.46,0.23,0.06],..-. 

'Backgroundcolor',0.7x*[1,1,1],'Foregroundacolor', [0.8,0.1,0. 9]，,.. 

'string''thickness: 5nm'，'fontsize',16, fontname'，'times new Toman')7 多 实时 显 
示 厚 度 的 文本 框 
S3=Uicontrol (gcf,，'sStyle'，'sSlider'，..， 

unit' normalized'，'position'，[0.06,0.36,0.21,0.04]，... 

'Backgroundcolor',0.7x*[1,1,1I],，'ForegroundCcolor', [0.1,0.1,0.9],..， 

'SliaerStep', [0.01,0:01]，'value',0.05,..-. 

callback',， ['H=get (83，' value'')*0.017'，.， 

set (HE，' string' [thicknessy 1num2str(H) nm' ])7 vv 

:Di=[2*H+2w(R-SGqrt (R^2-r2) )*1e9]/D  ，..， 
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'In=abs (cos (Di*pi*2)) ;cr=abs(L-560)/200;Ccg=1-cry..， 

'cb=abs (L-600)/240;Ik(:,:,1)=In*cr;Ik(:,:,2)=Inrcgy'，,,。 

'Tk(:,，:,3)=In*cb;iset(Pc,''CData'',Ik);']); #% 通过 滑动 条 改变 厚度 数值 
Uicontrol(gcf,'style'，'text'，.,. 

'unit'，'normalized'，'position',[0.04,0.41,0.08,0.04]，... 

'Backgroundcolor',0.8*[1,1,1],，'Foregroundcolor', [0.1,0.1,0.9],.,. 

'string'，'0'5，'fontsize', 16, 'fontname','times new roman'); #% 显示 最 小 厚度 
uicontrol (gcf,，'Style'，'cext'，... 

unit'，'normalized'，'position'， [0.22,0.41,0.08,0.04]，... 

Backgroundcolor',0.8*[1,1,1],'Foregroundcolor',[0.1,0.1,0.9]，.,-. 

'string','0.01''fontsize',16,'fontname','times new roman'); % 显示 最 大 厚度 


首先 利用 函数 axes 在 图 形 窗 口 右 侧 画 出 一 个 小 坐标 轴 , 在 其 上 利用 函数 plot 和 侧 得 到 牛顿 环 
原理 图 的 绘制 。 然后 在 图 形 窗 口中 间 添 加 一 个 坐标 轴 用 于 模拟 牛顿 环 图 案 。 最 后 在 图 形 窗口 左 侧 布 
置 调节 牛顿 环 参数 的 GUI 控件 ， 并 调节 波长 、 透 镜 表面 的 曲率 半径 以 及 空气 隙 的 厚度 。 

执行 上 述 程序 可 以 得 到 如 图 24.18 所 示 的 界面 形式 , 通过 3 个 滑动 条 可 以 改变 波长 、 半 径 以 及 
厚度 3 个 参数 的 取 值 。 当 前 的 参数 取 值 显 示 在 滑动 条 的 上 侧 。 这 里 使 用 3 个 近似 的 波长 与 颜色 的 
对 应 关系 ， 波 长 变化 时 相应 牛顿 环 的 颜色 也 会 随 之 改变 。 





图 24.18 ”演示 牛顿 环 变化 的 界面 


24.6 小 结 
光学 现象 的 模拟 在 当前 研究 和 教学 中 具有 重要 的 作用 ， 本 章 给 出 了 几 种 光学 现象 的 模拟 方法 。 
首先 介绍 了 鱼 眼 效果 模拟 的 方法 , 给 出 网 格 上 的 鱼 眼 效果 绘制 方法 。 其 次 介绍 了 全 息 编码 的 实现 方 
法 , 并 给 出 相应 的 实现 程序 。 利 用 动画 的 形式 模拟 了 名 尖 等 厚 干 涉 以 及 杨 氏 双 缝 干涉 。 最 后 以 用 户 
界面 形式 给 出 了 牛顿 环 模拟 的 人 机 交互 控制 实例 。 
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9 凸轮 机 构 绕 中 轴线 旋转 给 出 一 个 凸轮 绕 其 轴线 旋转 的 模拟 。 

多 阻尼 运动 给 出 两 种 阻尼 运动 的 MATLAB 模拟 。 

连 杆 机 构 的 运动 模拟 介绍 了 双 摆 、 四 连 杆 、 套 环 、 三 弹 先 振子 模型 的 程序 模拟 。 
@ 凸轮 的 转动 给 出 模拟 凸轮 带动 椭圆 面 旋转 的 例子 。 


物体 之 间或 同一 物体 各 部 分 之 间 相 对 位 置 随时 间 的 变化 叫做 机 械 运动 。 模 拟 机 械 运动 需要 了 解 
系统 各 个 部 分 的 相互 受 力 情况 ， 进 而 根据 牛顿 定律 来 计算 系统 各 个 部 分 在 不 同时 刻 的 变化 规律 。 
MATLAB 具有 数值 计算 和 数据 可 视 化 的 功能 ， 这 样 就 可 以 方便 地 模拟 机 械 运动 。 本 章 来 介绍 利用 
MATLAB 模拟 几 种 简单 的 机 械 运动 形式 。 通 过 了 解 这 些 实例 , 读者 可 以 模拟 其 他 相关 系统 的 机 械 运 
动 问题 。 


25.1 凸轮 机 构 绕 中 轴线 旋转 


在 如 图 25.1 所 示 的 系统 中 , 凸轮 围绕 中 心 轴 逆 时 针 旋转 。 在 坚 直 方向 上 的 滑 块 可 以 上 下 移动 ， 
但 是 其 受到 重力 的 作用 将 始终 与 凸轮 边缘 相连 接 。 





图 25.1 凸轮 结构 示意 图 
模拟 凸轮 结构 运动 的 过 程 可 以 分 为 两 部 分 内 容 ， 即 : 


凸轮 的 旋转 运动 。 
@ 滑 块 的 上 下 运动 。 


通过 对 这 两 部 分 位 置 的 更 新 可 以 得 到 运动 过 程 的 动画 显示 ， 相 应 的 实现 程序 如 下 : 


Y1=[90 88 82.2 73.7 62 50 37.6 26.7 17.5,... 
11.8 10 10 11 12.4 14 16.8 20 25 31.8,... 


610 = > > 径 


本 本 本 本 第 人 3 章 机 械 运 动 模拟 





47.2 50 52.7 5658.3 74.9 79.5 83.1 85.6 87.3 88.8 89.7 90]; s# 凸轮 外 面 轮 廊 数 据 纵 坐 
xl=[110 98 86.7 77.8 72 70 72 77.4 86.5 98 110 120,... 
130 140 150 160 169.8 180 189.8 200 200 200 189.9，... 
180 169.9 160 150 140 130 120 110]; s% 凸轮 外 面 轮廓 数据 横 坐 标 
x2=[110 120 120 100 100 110]; $# 铅笔 状 滑 块 横 坐 标 数 据 
Yy2=[90 110 170 170 110 90]; # 铅笔 状 滑 块 纵 坐标 数据 
x3=[110 105 101 100 101 105 110 115 118 120 118.6 115 110]; % 凸轮 内 部 的 轮廓 横 坐 标 


数据 
Y3=[60 58.6 55 50 45 41.3 40 41.3 45 50 55 58.6 60]; s# 凸轮 内 部 的 轮廓 纵 坐 标 数据 
x4=[-30,250];  s* 水 平 轴线 的 横 轴 数据 
x5=[110 110];  # 竖 直 轴 线 的 横 轴 数据 
Yy4=[50 50]， # 水 平 轴线 的 纵 轴 数 据 . 
Y5=[-40,240]; 8# 竖 直 轴线 的 纵 轴 数 据 
HL=plot(xl,yl,'z');  % 绘制 凸轮 外 面 轮廓 
hold ony; 
H2=fil1(x2,y2，r') 7 % 绘制 铅笔 状 滑 块 
H3=plot (x3,y3, 'b');  s% 绘制 凸轮 内 部 轮廓 
plot (x4,y4，'k--' yx5,Y5,'k--'); g% 绘制 水 平和 竖 直 方向 的 轴线 
axis([-30,250,-40,240]) ;axis square; g 设置 坐标 轴 范 围 和 属性 
set (gcf, 'doublebuffer','on'); % 设置 图 形 窗口 的 泻 染 效果 
xlabel('Please Press "Space" key and stop this program!'，. . . 
'fontsize',14, color''z'); s% 添加 提示 字符 串 
k=1; 8% 控制 循环 是 否 执行 的 参数 
t=0; % 记录 时 间 的 参数 
xy0=[110*ones1(31,1),50xones(31,1)]; s# 生成 位 置 数 据 
while k; g 循环 过 程 模拟 凸轮 旋转 的 过 程 模拟 “ 
s=get (gcf,'currentkey'); $% 获得 当前 键入 的 按键 名 称 
if strcmp(s,'space'); % 检查 是 否 为 空格 键 
clcik=0; % 清 屏 并 设置 参数 k 等 于 0， 从 而 可 以 结束 程序 
end 
pause(0.3); % 暂停 一 下 显示 动画 效果 
上 =t+0.1; # 更 新 时 间 
RARA=pix2wt; s# 计算 旋转 角度 
Tr=([xl;yl]'-xy0)*[cos(AA) ,sin(RA) ;-sin(AA) ,cos(RRA) ] ; % 利 用 坐标 旋转 矩阵 计算 下 一 时 
刻 的 坐标 值 
Tr=Tr+xy0; g 进行 平移 
X1l=Tr(:,1)'; #% 获取 当前 时 刻 的 坐标 : 横 坐 标 
Y1=Trt:,2)'; gs 获取 当前 时 刻 的 坐标 : 纵 坐 标 
set (H1,'xdata',Xl,'ydata'yYl); % 更 新 外 轮 曲线 数据 
Tx1l1=X1;Ty1=Y1; % 对 中 间 变 量 Txl 和 Ty1l 赋值 
-Txl{(Y1<50)=[] ;myl(Y1<50)=[]; % 删 去 Yl 小 于 50 的 数值 
[Px,K] =sort (abs{Tx1-110)); ，% 对 Txl 进行 平移 和 排序 
Py=TYy1 (K) ， % 对 Py 的 顺序 进行 重 排 
if abs(Px(1))<1; 
Yp=Py(1); s% 获取 凸轮 顶点 坐标 
else 
Py=Tyl1{K) ; % 对 凸轮 坐标 排序 
P=polyfit(Px(1:2),Py(1:2),1);， % 进行 多 项 式 拟 合 
Yp=polyval(P,0)); # 计算 拟 合 的 函数 值 
enaQ 
Yh2=y2-90+Yp; ，”% 计算 铅笔 状 滑 块 的 位 置 
set{(H2, 'Yydaata',Yh2); % 设置 滑 块 的 位 置 


ena 


大 二 可 可 611 


MATLAB 科学 计算 与 可 视 化 仿真 宝典 > > j> 关 


首先 输入 凸轮 轮廓 结构 的 数据 , 并 绘 出 凸轮 和 滑 块 的 图 形 , 其 中 把 滑 块 内 部 填充 为 红色 。 接 下 
来 计算 在 不 同时 刻 凸 轮 的 位 置 ， 并 根据 凸轮 和 滑 块 的 接触 点 得 到 滑 块 的 位 置 , 从 而 可 以 实时 地 更 新 
它们 的 位 置 。 执 行 上 述 程序 可 以 得 到 如 图 25.2 所 示 的 图 形 。 这 个 程序 将 一 直 执行 下 去 ， 如 果 按 下 
空格 键 ， 动 画 将 被 停止 。 


名 蓉 目 男 | AR A /| 月 哺 了 








图 25.2 ”凸轮 旋转 的 动画 截图 
此 外 还 可 以 考虑 一 些 特殊 函数 构成 的 凸轮 轮廓 ， 比 如 





+ yacos| )-: ( 25-1 ) 
X 十 


利用 函数 ezplot 可 以 画 出 等 式 ( 25-1 ) 对 应 的 曲线 ， 即 : 
ezplot ( 'X^2+Y^2*acos (X/ (X^2+1) ) -2 和 ，[-2,2]); 
输出 图 形 的 形状 如 图 25.3 所 示 。 


2+yY2 acoslxj(x2+1)2=D 











区 4 上 上 上 
2 -15 -1 -05 0 05 1 15 2 


图 25.3 ”模拟 凸轮 轮 廊 的 解析 图 





612 = > > 区 


本 晤 本 本 第 2 章 机 械 运动 模 拟 
可 以 把 等 式 ( 25-1 ) 改写 为 下 面 的 形式 : 
= 土 2 一刀 过 ( 25-2 ) 
》 ( 妆 ) acos[ 


这 样 利用 下 面 的 语句 即 可 获取 离散 的 凸轮 轮廓 数据 。 


tl=linspace(-sqrt (2) ,sqrt(2),200); $% 生成 递增 数据 序列 

t2=linspace(sqrt (2),-sqrt(2),200); g% 生成 递减 数据 序列 

x=[t1, 上 2]; 外 生成 横 坐 标 数据 

Y=[sqrkt ((2-tl.^2)./acos(tl./(1+tl.^2))),，-sSGqrt((2-t2.^2)./acos(t2./(1+t2.^2)))]， 


#% 计算 纵 坐 标 数据 
上 面 程序 中 的 x 和 y 就 是 凸轮 轮廓 的 数据 。 此 外 还 可 以 从 函数 ezplot 绘制 的 曲线 对 象 读 取 其 
中 的 数据 ， 具 体 做 法 如 下 : 


figureyezplot ('x^2+Y^2*acos {(X/{x^2+1))-2'，[-2,2])7;8 利用 函数 ezplot 绘图 
Ch=get{(gca, 'Children'); % 获取 曲线 对 象 对 应 的 句柄 

xdG=get (Ch, 'XData');  $ 获取 横 轴 数据 

yd=get (Ch,'YData');  $% 获取 纵 轴 数 据 


这 里 xd 和 yd 分 别 是 横 轴 和 纵 轴 的 数据 ， 这 样 就 得 到 了 凸轮 的 轮廓 数据 。 可 以 选择 足够 多 的 
数据 ， 从 而 不 必 进 行 数 据 拟 合 操作 。 


25.2 ”阻尼 运动 


物体 在 运动 过 程 中 受 各 种 阻力 ( 如 摩擦 力 、 空 气 阻力 等 ) 的 影响 ， 出 现 能 量 逐 渐 衰 减 而 导致 运 
动 减弱 的 现象 ， 这 种 运动 被 称 为 阻尼 运动 。 本 节 给 出 利用 MATLAB 模拟 阻尼 运动 的 两 个 例子 。 
例 25-1: 给 出 如 图 25.4 所 示 的 一 个 弹 牙 振子 ， 求 解 运动 状态 。 


3 damp osillation 








图 25.4 弹簧 振子 示意 图 
模拟 弹簧 阻尼 振动 过 程 包括 以 下 内 容 ， 


镶 更 新 小 球 和 弹簧 的 位 置 。 
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争 更 新 水 平 线 的 位 置 和 长 度 。 
争 实时 地 画 出 弹簧 高 度 与 时 间 的 关系 曲线 。 


下 面 来 模拟 弹簧 振子 在 阻尼 力 的 作用 下 进行 阻尼 运动 的 过 程 , 同 时 画 出 相应 圆 球 质心 随时 间 变 
化 的 曲线 。 相 应 的 MATLAB 程序 如 下 ， 


rectangle{('position', [12,8,2,0.3],'Facecolor', [0.1,0.3,0.4]); s# 生成 固定 块 
axis([0,15,-1,10]);hold on; s# 设置 坐标 轴 范 围 
plot([13,13], [7,8]，r'v'linewidth',2); $ 画 与 弹 答 连 接 的 线 
Yy=2:.2:7; g% 得 到 弹 筑 对 应 的 纵 坐 标 数据 
M=length(y); $% 获取 数据 的 长 度 
x=12+mod(1:M,2)*2; $% 生成 弹簧 的 横 坐 标 数 据 
x(1)=13;x(end-3:end)=13; $% 计算 出 弹 竹 上 下 端点 的 横 坐 标 值 
D=plot (x,y) g 画 出 弹 答 
Cc=0:.1:2*pi; #% 生成 圆 球 的 角度 数据 
r=0.3; # 圆 球 的 半径 
tl=rwsin(C); $% 计算 出 园 球 对 中 心 的 纵 坐 标 数据 
F1=fil1(13+r*cos(C),2+tl,'rz'); ss 画 出 圆 球 
set (gca, 'ytick',[0:2:9]); s# 设置 Y 轴 的 刻度 
set (gca, 'yticklabels',num2str([-1:3]')); g% 重新 设置 Y 轴 的 刻度 值 
plot([0,15],[2,2],'black'); # 画 出 平衡 位 置 
HL=plot{[0,13], [2,2],'g'); $ 球 心 的 跟踪 线 
Q=plot (0,2.5, "color','r'); ss 画 出 运动 曲线 
ta= []; % 记录 时 间 的 变量 
yda=[]; % 记录 站 轴 位 置 的 变量 
T=0;， % 设置 初始 的 时 间 值 
text (2,8，'damp osillation',，'fontsize',24); sg 添加 标注 文字 
set (gcf, 'doublebuffer','on'); g% 设置 泻 染 效果 
while T<12; % 利用 循环 处 理 阻 尼 运 动 过 程 的 模拟 
pause(0.2); $ 暂停 一 下 以 显示 动画 效果 
DYy=1-0.5*exp(-T/4)*cos(pixT); % 计算 T 时 刻 弹 簧 对 平衡 位 置 的 位 移 
Y=-(y-2)*Dy+7; $% 计算 弹簧 的 纵 坐 标 数 值 
Yf=Y(end) +t1; g% 计算 圆 球 的 纵 坐 标 数 值 
td= [td,T];yd= [yd,Y(end) ] ; % 更 新 运动 曲线 的 数据 
set(D, 'ydata',Y); $% 更 新 弹簧 的 位 置 数据 
set{(F1,'ydata',Yf,'facecolor',rand(1,3)); % 更 新 圆 球 的 位 置 数据 
set(H1,'xdata', [T,13], ,ydaata' [Y(end)j,Y(end)]); g% 更 新 跟踪 线 的 数据 
set(Q, 'xdata',td,'ydata',yd); % 更 新 圆 球 的 数据 
T=T+0.1; % 更 新 时 间 
ena 
Kd=find{tdiff(sign(diff(tyd)))==-2)+1; g% 计算 极 大 值 的 位 置 
X=td(Kd) ; % 得 到 极 大 值 处 的 横 坐 标 数值 
Y=yd(Kd) ; % 得 到 极 大 值 处 的 纵 坐 标 数值 
X=[0,X,tdtend)]; # 得 到 上 例 包 络 线 的 横 坐 标 数据 
Y=[ya(l)j,Y,ya(tend)]; g% 得 到 上 侧 包 络 线 的 纵 坐 标 数据 
plot(X,Y,':'); % 画 出 上 侧 包 络 线 
Kx=find{diff(sign(daiff(yd)))==2)+1; s% 计算 极 小 值 的 位 置 
X=td(Kx); % 得 到 极 小 值 处 的 横 坐 标 数值 
Y=yd(Kx); % 得 到 极 小 值 处 的 纵 坐 标 数值 
X=[0,X,td(end)];， $ 得 到 下 侧 包 络 线 的 横 坐标 数据 
Y=[-(yd(1)-4)，,Y,-(ya(end)-4)]; g% 得 到 下 侧 包 络 线 的 纵 坐 标 数据 
plot(X,Y,':'); g 画 出 下 侧 包 络 线 


在 循环 计算 之 前 把 弹簧 、 固 定 杆 、 小 球 、 水 平 线 以 及 轨迹 的 初始 图 形 对 象 绘制 出 来 ， 其 中 随时 
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间 变 化 的 图 形 对 象 需要 设置 相应 的 句柄 , 以 便 在 不 同时 刻 利用 函数 set 更 新 它们 的 位 置 和 形状 等 信 
息 。 随 后 可 以 利用 循环 结构 计算 不 同时 刻 系统 各 部 分 的 位 置 , 并 且 计算 出 小 球 高 度 随时 间 变 化 的 曲 
线 。 上 述 程序 模拟 了 弹 筑 振 子 进 行 阻尼 运动 的 过 程 ， 其 过 程 中 的 一 个 截图 如 同 25.5 所 示 。 其 中 轨 
迹 线 和 圆 球 质 心 相连 的 水 平 线 随 着 时 间 的 增加 而 缩短 ， 这 样 生 成 的 轨迹 线 就 如 同 这 条 水 平 线 “ 画 ” 
出 来 的 效果 一 样 。 当 程序 执行 结束 后 可 以 得 到 如 图 25.6 所 示 的 图 形 ， 其 中 给 出 了 阻尼 运动 轨迹 的 
包 络 线 ， 可 见 振幅 随 着 时 间 的 增加 而 缩小 。 





damp osillation 





;| damp osillation 3 











图 25.5 ”弹簧 振子 进行 阻尼 运动 的 模拟 过 程 截图 图 25.6 ”弹簧 振子 模拟 的 曲线 及 包 络 线 
例 25-2: 小 球 受 阻尼 力作 用 下 圆周 运动 ， 同 时 小 球 的 大 小 随 着 时 间 以 e 指数 的 规律 减 小 。 
模拟 这 个 运动 过 程 需要 含 以 下 三 方面 的 内 容 : 


@@ 计算 小 球 在 不 同时 刻 的 位 置 。 
人 ”记录 小 球 运动 形成 的 轨迹 。 
急 实时 更 新 小 球 的 大 小 。 


通过 上 述 三 方面 的 模拟 可 以 得 到 这 个 过 程 的 动画 显示 ， 相 应 的 MATLAB 程序 如 下 : 


n=1; s% 阻尼 系数 

w=6; s# 圆 频 亭 

ww=sart (w^2-n^2); % 等 效 的 圆 频率 

Bl1=80; 8% 系数 

B2=-20; % 系数 

axis{[-105,105,-105,105]) ;hold on; $% 设置 坐标 轴 范 围 

set(gcf, 'doublebuffer','on'); #% 设置 图 形 窗口 的 泻 染 效果 

G=plot(100,0,r'); $% 轨迹 曲线 

x=100; #% 初始 位 置 的 横 坐标 

y=0; sg 初始 位 置 的 维 坐标 

z=2; % 小 球 半径 

tl=rv*sin(0:.1:2*pi); 8% 计算 小 球 的 边界 数据 

t2=rxcos(0:.1:2x*pi); g# 计算 小 球 的 边界 数据 

X=x+rx*t1; % 得 到 小 球 的 横 坐 标 数据 

Y=y+rxt2; 针 得 到 小 球 的 纵 坐 标 数据 

Q=fill(X,Y,ranGt1,3))7 8 画 出 小 球 

t=0; % 时 间 的 初始 数值 

plot([-100,100], [0,0]) 7 机 画 出 格 线 

plot{[0,0],[-100,100])，% 画 出 格 线 

xk=1; $ 控制 循环 的 参数 

xlabel1('Please Press "8pacenr key and stop 幻 his Drogram! '，..， 
:fontsize' 14, color5z)7 4: 滩 加 提示 字符 
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title(['《damp turbination》 '，,'B1=',num2str(B1)，... 
"7 ， B2=',num2str(B2)],'fontsize',14); % 加 注 图 题 
while k; % 循环 处 理 
s=get (gcf, 'currentkey'); g# 获取 当前 键入 的 按键 名 称 
if strcmp(s,'space'); # 判断 按键 是 否 为 空格 键 
clcik=0; #% 把 参数 k 设置 为 0， 从 而 可 以 结束 循环 
end 
pause(0.3); % 暂停 一 下 显示 动画 效果 
Z=eXxp(-mxt)*(B1L*exp (ixwwxt)+B2*exp(-ixwwxt)); g 计算 当前 时 刻 的 位 置 
xp=real{(z); $% 分 离 出 实 部 数值 
Yp=imag(z); g% 分 离 出 虚 部 数值 
r=0.5+1.5*exp(-nxt); % 计算 当前 小 球 的 半径 
X=xp+tl*r; g% 计算 小 球 的 横 坐 标 数 据 
=YpP+t2*r; g 计算 小 球 的 纵 坐 标 数据 
set (Q, 'xdata',X, 'ydata',Y); # 更 新 小 球 的 数据 
x= [x,xp]; g% 存储 轨迹 的 横 坐 标 数据 
y=[Yy,yp]; # 存储 轨迹 的 纵 坐 标 数据 
set (G, 'xdata',x,'ydata',y); 8% 更 新 轨迹 曲线 的 数据 
t=t+0.02; $% 更 新 时 间 数 值 


end 

初始 时 刻 把 小 球 放置 在 水 平 轴 离 圆心 一 定位 置 处 ,假设 小 球 开始 时 向 上 运动 。 此 处 小 球 的 绘制 
是 通过 全 函数 填充 圆 形 区 域 实 现 的 。 随 后 计算 小 球 在 不 同时 刻 的 位 置 ， 相 应 地 更 新 小 球 位 置 及 其 
轨迹 。 此 外 在 小 球 运动 过 程 中 设置 小 球 的 颜色 随机 变化 。 程 序 的 终止 是 通过 按 空格 键 来 控制 的 。 运 
行程 序 得 到 25.7 所 示 的 图 形 。 可 见 小 球 最 终 停留 在 原点 附近 。 


《damp turbinationy》 B1=80; B2=-20 





而 -页 而 而 一 0 让 而 而 商 
Please press "space" key and stop this programl 
图 25.7 ”受阻 尼 力作 用 的 小 球 的 运动 轨迹 





25.3 ， 连 杆 机 构 的 运动 模拟 


很 多 机 械 结构 中 包含 连 杆 结构 , 它们 经 常 进行 圆周 运动 或 圆 弧 运动 , 同时 可 以 带动 其 他 结构 相 
应 地 运动 。 在 模拟 连 杆 结构 运动 时 可 以 利用 几何 知识 来 确定 特征 点 的 位 置 ， 从 而 确定 连 杆 的 位 置 。 
本 节 介绍 连 杆 结构 的 机 械 运动 模拟 。 


25.3.1， 双 摆 运动 的 模拟 
本 节 给 出 双 摆 运动 的 模拟 。 双 摆 运 动 可 以 由 下 面 的 微分 方程 组 来 描述 。 
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烛 三 区 
双 = 玛 
冯 =4(0) 
好 =A4(2) 


( 25-3 ) 


其 中 4 表示 一 个 列 向 量 ， 由 下 式 计算 。 
| (mm +m) mpZcos(xi 一 总 下 ma12xt sin(zz 一 为 ) 一 (on 十 mp]gsina 
2 (25-4】 
mimacos 人 xi 一 总 ) mi 1112 厂 好 sin(x 一刀 ) 一 magsin x> 
其 中 四 和 加 分 别 表示 上 摆 和 下 摆 的 质量 ， 冯 和 忆 分 别 表示 上 摆 和 下 把 的 长 度 ，8 表示 重力 


加 速度 ， 为 和 罗 2 分 别 表示 上 摆 和 下 摆 角 位 移 ， 为 与 交 分 别 表 示 上 摆 和 下 摆 的 角速度 。 对 于 上 面 的 
微分 方程 组 可 以 使 用 ode45 函数 来 求解 相应 的 MATLAB 程序 。 


ml=1; % 上 皖 质 量 
m2=1; #% 下 摆 质 量 
L1=1; % 上 摆 长 度 


L2=1; $ 下 摆 长 度 
g=9.8;s% 重力 加 速度 
Da=inline(['[x(3)7Xx(4)7，..。 
'inv([(mL+m2)*L1,m2xL2xcos(x(1)-x(2))7 和... 
'mLxL1L*cos (X(1)-Xx(2)) ,mix*xL2])w*'..。 
'“[m2*L2*X(4)^2*sin(x(2)-X(1))-(ml+m2)*gxsin(Xx(1I)) 7 .。 
"m2wL1w*x(3)^2*sin(Xx(1)-x(2))-m2xgwsin(X(2))]]']，t'，x'.- 
1f18a9: mL 2 LILI ZL2 94)7 条 定义 微分 方程 组 
set (gcf, 'DoubleBuffer','on'); # 设置 图 形 窗 口 的 泻 染 效果 
[t,x]=ode45(Da, [0,20], [0.8,0.8,0,0],[] ,ml,m2,L1,L2,9); 
axis{([-(L1+L2)，(L1+L2),-(L1+L2)*1.8,1]); % 设置 坐标 轴 范 围 
axis square;hold on; $ 设置 坐标 轴 属 性 
gh1=plot([0,Llx*exp(i*(x(1)-pi/2))]，'r-'); % 绘制 上 面 的 单 摆 
set(ghl, '1inewidth',2,'markersize',6,'marker','o'); % 设置 线 宽 和 标识 符号 . 
gh2=plot([LL*exp(i*(x(1)-pi/2)),Ll*exp(ir(x(1)-pi/2))+L2*exp(i*(x(2)-Ppi/2))]， 
b- '); % 绘制 下 面 的 单 摆 
set (gh2,'1linewiath',2,'markersize',6, 'marker','o'); % 设置 线 宽 和 标识 符号 
for k=2:size(x,1); % 制作 关于 双 摆 的 动画 
Cl=[0,Llxexp(i*(x(k,1)-pi/2))]; #% 计算 上 摆 的 两 端点 坐标 
C2=[L1x*exp(i*(x(k,1)-pPi/2)) ,LI*exp(i*(x(k,1)-pi/2))+L2*exp(i*(Xx(k,2)-PiV2))]， 
g% 计算 下 摆 的 两 端点 坐标 
set(gh1, 'xdqata',real(Cl),'ydata',imag(Cl)); % 更 新 上 摆 的 位 置 坐标 
set(gh2,'xdata',real(Cc2),'ydata'imag(C2)); 当 更 新 下 摆 的 位 置 坐 标 
title(['t= 'v,num2str(t(k))],'fontsize',12); % 显示 时 间 
pause(0.1); 
enda 
figure; 
subplot (231) ;plot(t,x(:v1));title('t-\theta_l');xlabel('t');Ylabel('\theta_l')， 
# 上 摆 的 角 位 移 随时 间 变 化 
subplot (232) ;plot(t,x(:,2));)title('-\theta_2') ;xlabel(' 必 ');Ylabel('\theta_2')， 
# 下 摆 的 角 位 移 随时 间 变 化 
subplot (233) ;plot(t,x(:,3));title('t-\omega_l1');xlabel('t');Yylabel('\omega_1'); 
#s 上 摆 角速度 随时 间 变 化 
subplot (234) ;plot{tt,x(:v,4))?title('t-N\omega_2') ;xlabel(' 必 ');Ylabel('NVomega_2'); 
% 下 摆 角 速度 随时 间 变 化 
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subploct(235);Plot(x(:,1),x(:,3))}7?title('\theta_1-Xomega_1');xlabel('N\theta_l1') 
1YlLabel('Nvomega_1); 
subplot (236)7plot(x(:,2),x{(:,4));ticlef'Ntheta_2-\omega_24)7xlabel('N\theta_2:) 
;Ylabel('\omega_27')7 

首先 对 双 摆 结构 参数 进行 赋值 ， 然 后 利用 函数 ode45 求解 公式 ( 24-5 ) 给 出 的 微分 方程 ， 得 


到 双 摆 端点 在 不 同时 刻 的 位 置 。 然 后 根据 端点 的 数据 按时 间 顺 序 依次 绘制 不 同时 刻 双 择 连 线 而 得 到 
双 摆 运动 过 程 的 动画 。 上 述 程序 可 以 模拟 双 摆 运动 的 过 程 ， 图 25.8 给 出 了 动画 过 程 的 一 个 截图 。 


t= 20 


2 -5 -4406 0 06 1 15 2 
图 25.8 ” 双 摆 运动 动画 的 截图 
如 图 25.9 所 示 ， 是 双 摆 运动 角 位 移 ( 上 摆 为 册 、 下 摆 为 多 ) 角速度 ( 上 摆 为 由、 下 摆 为 迪 ) 
以 及 双 摆 的 相 图 曲线 ( 外 -他 曲 线 和 旬 - 碗 曲线 )， 读 者 从 中 可 以 了 解 双 摆 运动 的 状态 。 





t+6 下 
1 2 
05 1 
do 0 洒 0 
-05 -4 
-0 5 10 15 30 6 和 们 全 20 
t 1 
te ez 
4 4 
2 2 
纺 0 他 0 
2 -2 
4 4 





图 25.9 双 摆 运动 参量 随时 间 变 化 的 曲线 以 及 相 图 


25.3.2. 四 连 杆 结构 的 运动 情况 


本 节 模 拟 一 个 四 连 杆 结构 的 运动 情况 ,如 图 25.10 所 示 。 其 中 O 点 和 C 点 是 固定 的 ,线段 OA 
可 以 围绕 着 O 点 进行 匀速 圆周 运动 ， 这 样 就 可 以 同时 带动 B 点 进行 运动 。 
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25.10 四 连 杆 结构 示意 图 
模拟 这 个 运动 过 程 的 关键 是 实时 地 确定 A 点 和 BB 点 的 位 置 ， 其 中 A 点 随时 间 变 化 的 位 置 可 以 
确定 。 这 样 就 可 以 计算 出 A 点 与 C 点 之 间 的 距离 。 在 三 角形 ABC 中 ，AB 边 和 BC 边 的 长 度 是 不 
随时 间 变 化 的 ， 因 此 可 以 利用 余弦 定理 计算 出 在 任意 时 刻 AB 边 与 AC 边 的 夹 角 ， 从 而 确定 B 点 的 
坐标 。 下 面 考虑 这 个 过 程 的 模拟 ， 相 应 的 MATLAB 程序 如 下 ; 


tl=sin(0:.1:2*pi); g% 生成 固定 点 的 横 轴 数据 
t2=cos(0:.1:2*pi); $% 生成 固定 点 的 纵 轴 数 据 
r=0.1; $% 固定 点 的 半径 
fill(rx*tl,rxt2,'r')iset(tgcft, doublebuffer'，'on'); % 绘制 左 侧 固定 点 
hold on; fil1(2+rxwtl,rx*c2,， rz) sg% 绘制 右 侧 固定 点 
axis([-1,6,-1,4]) ;axis equal; 8 设置 坐标 轴 范 围 及 属性 
t=0; sg 记录 时 间 的 参数 
ARA=t; % 旋转 的 角度 
z=0.5*exp(iva); # 园 周 运动 的 端点 坐标 
H1-=plot([0,0.5*cos(R)],[0,0.5*sin(RA)],'1inewidqth',4); % 画 出 圆周 运动 的 连 杆 OA 
RC=abs(2-z); % 计算 当前 线段 ac 的 长 度 
RB=0.7; g% 设置 AB 的 长 度 ， 其 为 固定 值 
BC=1.8; % 设置 Bc 的 长 度 ， 其 为 固定 值 
Ja=acos( (ARC^2+RB^2-BC^2)/(2*RAC*RB) ); # 计算 AB 和 BC 夹 角 大 小 
B=z+RBx*exp((angle(2-z)+JR)*i); #% 获得 B 点 当前 的 坐标 
k=1; s# 控制 循环 是 否 执行 的 参数 
H2=plot (real([B,z]),imag([B,z])'g'…'linewidth' 4) g% 绘制 AB 连 杆 
H3=plot(real([B,2]) ,imag([B,2]),，'1inewidth',4, color'， [0.4,0.2,0.5])7 多 绘制 BC 
连 杆 
Ga=plot(z); gs 绘制 A 点 当前 的 轨迹 曲线 
Gb=plot (B) ; $% 绘制 B 点 当前 的 轨迹 曲线 
set([Ga,Gb]l,'color''r'); $ 设置 轨迹 曲线 的 颜色 
zga=z; $% 定义 记录 & 点 轨迹 点 的 变量 
zgb=B; $% 定义 记录 B 点 轨迹 点 的 变量 
xlabel('Please press "Space" key and SEOoP this 
program!'，'fontsize',14,'color'…'z'); 加 注 标注 
T=title(['time= ,num2strtt)]); $% 实时 显示 时 间 
text (0,2.5,' 四 连 杆 机 构 ') ; % 加 注 文字 
while kj; gs 模拟 四 连 杆 的 运动 过 程 
s=get (gcf,'currentkey'); $ 检测 键入 按键 的 名 称 
if strcmp(s,'space'); #% 判断 键入 按键 是 否 为 空格 键 
clc;k=0; $ 设置 参数 使 循环 结束 
end 
pause(0.01); g% 暂停 一 下 ， 显 示 动 画 效果 
t=t+0.02; % 更 新 时 间 
z=0.5*exp(ixt); $% 计算 A 点 实时 位 置 
AcC=abs(2-z); % 计算 当前 线段 ac 的 长 度 
Ja=acos ( (ARC^2+RB^2-BC^2)/(2*ACx*RB) ) ; % 计算 当前 线段 AB 和 ac 的 夹 角 
B=z+RBxexp((angle(2-z)+JR)*i); 8% 计算 当前 B 点 的 坐标 
set (HL1,'xdata', [0,0.5*cos(t)],ydata',[0,0.5*sin{t)]); Y% 更 新 线段 OA 的 位 置 
set(H2,'xdata',real([B,z])，'ydata',imag([B,z])); $% 更 新 线段 AB 的 位 置 
set(H3,'xGata',real([B,2]),'ydata',imag([B,2])); s# 更 新 线段 Bc 的 位 置 
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IE 上 t<8; 
zga=[zga,z]; % 更 新 A 点 轨迹 的 数据 集合 
zgb=[zgb,B]; $# 更 新 B 点 轨迹 的 数据 集合 
set (Ga, 'xdata',real(zga),'ydaata',ijimag(zga)); % 更 新 a 点 轨迹 
set (Gb, 'xdata',real(zgb),，'ydata',imag(zgb)); % 更 新 B 点 轨迹 
end 
set (T,，'string',['time= ,num2str(t)])7 gs 更 新 时 间 
end 
首先 初始 化 系统 的 参数 , 给 出 0, A, B 和 C 四 点 的 位 置 。 利 用 函数 plot 绘制 出 三 段 连 杆 图 形 。 
接 下 来 可 以 模拟 A 点 进行 圆周 运动 ， 利 用 余弦 定理 计算 出 不 同时 刻 B 点 的 位 置 ， 并 相应 地 更 新 三 
条 连 杆 的 位 置 。 此 外 ，B 点 的 轨迹 被 实时 地 记录 和 显示 。 上 述 程 序 执行 后 得 到 如 图 25.11 所 示 的 图 
形 ， 可 以 按 下 空格 键 来 停止 这 个 程序 的 执行 。 在 图 25.11 中 还 显示 了 两 个 移动 点 的 轨迹 。 


tme= 驴 65 


25 四 连 杆 机 构 


] 0 1 2 3 4 5 6 
Please press "space" key and stop this programl 


25.11 四 连 杆 运动 过 程 的 模拟 
25.3.3， 带 有 套 环 的 机 械 结构 的 运动 过 程 


下 面 研究 1 个 带 有 套 环 的 机 械 结构 的 运动 过 程 。 整 个 系统 的 几何 关系 如 图 25.12 所 示 , 其 中 点 
中 ， 包 和 也 是 被 固定 的 ,点 已 和 久之 间 有 一 细 杆 相连 且 处 于 水 平方 向 上 。 线 段 BC 表示 的 连 杆 可 
以 绕 点 症 转 动 。 杆 BD 两 端 是 自由 的 , 但 是 B 点 只 能 在 线段 玉 必 上 运动 。 线 段 了 C 与 水 平方 向 上 的 
夹 角 等 于 C ， 在 整个 运动 过 程 中 ， 线 段 有 C 与 线段 BD 保持 相互 垂直 的 关系 。 


Bi P? 也 BP 





图 25.12” 套 环 结构 的 机 械 运动 
下 面 模拟 连 杆 BC 在 一 定 的 角度 范围 内 运动 时 连 杆 RC 和 BD 的 运动 情况 ， 设 初始 时 角度 
w=TK/3 ， 相 应 的 MATLAB 程序 如 下 ， 
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r=0.1; $ 圆圈 的 半径 
set(gcf, 'doublebuffer','on'); $% 设置 图 形 演 染 效果 
fill(rwsin(0:.1:2*pi),r*cos(0:.1:2*pi),'b'); $% 画 出 固定 点 P1 
hold on axis equal; % 设置 坐标 轴 属 性 
axis([-1,6,-6,1]); ， % 设置 坐标 轴 范 围 
fill(rr*sin(0:.1:2*pi)+2,zrxcos(0:.1:2xpi),'b'); sg 画 出 固定 点 P2 
fill(rxsin(0:.1:2x*pi)+5,rx*cos(0:.1:2*pi),'b"); % 画 出 固定 点 P3 
plot([2,5], [0,0],'k''linewidth',3); g% 画 出 水 平 横 杆 P2-P3 
=-pi/6; % 设 置 初始 时 倾斜 角 
z=2.85*exp (ix*RaA); % 计算 出 初始 时 c 点 的 坐标 
zQ=0.15*exp(i*[0:.1:pi*2]); $% 圆 环 的 对 中 心 的 坐标 数据 
HL=plot([0,real{(z)],[0,imag(z)]，r'v'linewiath',2); % 画 出 线段 P1-C 
HQ=p1lot (3*exp (ix&)+zo, 'g'); g 画 出 C 处 的 圆 环 
L=3/cos (A) ; #% 计算 出 当前 线段 P1-B 的 长 度 
La=L+0.1x*exp{(i*(-pi/72+&RA)); g% 计算 当前 B 点 的 坐标 
Lb=L+5*exp (ix*(-pi/2+R) ); $% 计算 当前 D 点 的 坐标 
HLD=plot ([La,Lb]l,'b'，'linewidth',6); % 画 出 当前 线段 BD 
HQQ=plot (L+zQ*2/3,'k'); % 画 出 B 点 处 的 贺 国 
xlabel('Please DPIess "Space" key and stop this program!',..- 
"fontsize',14, :color' rz'); s% 添加 标注 文字 
HT=text (3,-5,'\it 套 环 运动 ' ,'fontsize',18,'fontname'，' 宋 体 ') ; * 添加 标注 文字 
k=1; s% 控制 循环 执行 的 参数 
T=0; g% 时 间 数 值 
at=0.1; 8% 时 间 增 量 
Tr=Lb; % 轨迹 数据 
Htr=plot (real (Tr) ,imag(Tr)，'m.'，'markersize',2); g% 画 出 轨迹 
while k; # 模拟 运动 过 程 
pause(0.2); % 暂停 一 下 ， 显 示 动 画 效 果 
s=get (gcf, 'currentkey'); % 获取 键入 按键 的 名 称 
if strcmp(s,'space')) $% 检查 按 下 的 按键 是 否 为 空格 键 
clcik=0; #% 清 屏 ， 同 时 停止 程序 
end 
T=T+dt*rand; g% 更 新 时 间 ， 这 里 使 用 一 个 随机 的 增 量 
aa=aA+sin(T) /3; $ 计算 出 当前 的 角度 
L=3/cos (aa); $% 计算 出 当前 B 点 的 位 置 
La=L+0.1*exp(i*(-pi/2+aAa)); % 给 出 线段 BD 端点 B 的 坐标 
Lb=L+5*exp (ix*(-pi/2+RAa)); # 计算 出 线段 BD 端点 D 的 坐标 
set (HLD, 'xdqata',real([La,Lb])，,'ydaca' ,imagl [La,Lb])); % 更 新 线段 BD 的 位 置 
set (HQQ, 'xdaata',real(L+zQ*2/3)，'ydata',imag(L+zO*2/3)); % 更 新 B 点 处 圆 环 的 位 置 
z=2.85xexp(ix*aa); $% 计算 Cc 点 当前 位 置 
set(HL,'xdata',real([0,z]), ,ydata',imag([0,z])); % 更 新 线段 P1-c 的 位 置 
Set (HQ, 'xdata',real(3*exp (ix*RAa)+zZQ)，'ydata'，... 
imag{3x*exp (ixaa)+zQ)) 7 % 更 新 C 点 处 的 圆 环 位 置 
set (HT, 'color',rand{(1,3) ); % 更 新 标注 文字 的 颜色 
if T<200; 8% 在 时 间 小 于 200 时 记录 轨迹 位 置 
Tr=[Tr,Lb]; % 把 当前 D 点 坐标 数值 记录 下 来 
enaQ 
set (Htr, !XData',real(Tr)，'YData'yimag(Tr)); # 更 新 轨迹 的 坐标 数据 
end 


首先 给 出 该 系统 中 小 圆 环 、3 条 连 杆 绘制 及 其 长 度 的 赋值 ， 其 中 运动 的 杆 对 应 的 图 形 对 象 需要 
有 句柄 输出 ， 便 于 以 后 更 新 位 置 。 然 后 利用 循环 结果 计算 不 同时 刻 C 点 和 D 点 的 位 置 ， 从 而 可 以 
确定 运动 杆 的 位 置 。 同 时 小 环 的 位 置 也 需要 更 新 。 在 计算 过 程 中 ， 把 D 点 不 同时 刻 的 位 置 记录 下 
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来 绘制 成 轨迹 。 上 述 程序 模拟 过 程 的 一 个 截图 如 图 25.13 所 示 。 同样 可 以 键入 空格 键 来 停止 这 个 程 
序 的 执行 。 


= 0 1 2 3 4 5 6 
Please press "space" key and stop this programl 


图 25.13” 带 有 套 环 结构 的 机 械 运动 模拟 


25.3.4 小 球 在 水 平面 上 受 3 根 弹 簧 作用 下 的 运动 情况 
下 面 来 模拟 1 个 小 球 在 水 平面 上 受 3 根 弹簧 作用 下 的 运动 情况 , 如 图 25.14 所 示 。 假设 小 球 所 
在 平面 足够 光滑 ， 因 此 可 以 认为 小 球 不 受 摩擦 力 的 作用 。 初 始 时 把 小 球 从 平衡 位 置 处 拉 开 ， 并 放 开 
小 球 ， 它 将 在 3 根 弹簧 的 作用 下 进行 往复 运动 。 





图 25.14 小 球 在 3 根 弹 簧 作用 下 的 模型 
相应 的 模拟 程序 描述 如 下 。 


.0; $% 摩擦 系数 

2; $% 振子 质量 

9.8; % 重力 加 速度 

axis([0,10,0,8]); % 设置 坐标 轴 范 转 

hold onibox on; $ 设置 坐标 轴 属 性 
Fl=fill([1,1.2,1.2,1],[2,23,6,6],[0.8,0.2,0.8]); $% 画 出 左 侧 固定 杆 的 图 案 
F2=fil1l([8.8,9,9,8.8],[0.4,0.4,7.6,7.6],[0.8,0.2,0.8]); s$ 画 出 右 侧 固定 杆 的 图 案 


pl1=1.2+4i; % 给 出 弹簧 1 在 左 侧 固 定 条 上 的 端点 


U= 
M= 
S= 
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p2=8.8+7i % 给 出 弹簧 2 在 右 侧 固定 条 上 的 端点 

p3=8.8+i; $% 给 出 弹簧 3 在 右 侧 固定 条 上 的 端点 

kl1=10; % 第 1 个 弹簧 的 系数 

k2=10; #% 第 2 个 弹簧 的 系数 

k3=10; *% 第 3 个 弹 答 的 系数 

pz=5+4i; % 小 球 的 初始 位 置 

Nk=[mod(1:16,2)-0.5]*0.5; % 计算 弹簧 1 的 位 置 

Nk=[0,0,0,Nk,0,0,01]1; 

pdG=pz+exp(i*[0:0.02:pi*2])x*0.26; % 计算 小 球 边缘 的 坐标 

Fa=fill(real(pd),imag(pd),[0.7,0.8,0.9]);， % 画 出 小 球 

N1=exp{(i*[angle(p1l-pz)+pi/2]); % 计算 与 弹簧 1 轴线 垂直 的 方向 

Pkl1=linspace(pz,p1,22); g% 生成 pz 和 pl 之 间 等 间距 的 序列 

Pk1=Pkl1+Nkx*N1; g% 计算 弹簧 1 对 应 的 数据 点 

hpl=plot (Pkl1); $ 画 出 第 工 个 弹 筑 

N2=exp(ix[angle(Pp2-pz)+pi/2]); $% 计算 与 弹 答 2 轴线 垂直 的 方向 

Pk2=1inspace(pz,p2,22); $# 生成 pz 和 p2 之 间 等 间距 的 序列 

Pk2=Pk2+Nk*N2; % 计算 弹簧 2 对 应 的 数据 点 

hp2=plot (Pk2); % 画 出 第 2 个 弹簧 

N3=exp(i* [angle(p3-pz)+piV2]); % 计算 与 弹簧 3 轴线 垂直 的 方向 

Pk3=1inspace(pz,p3,22); s# 生成 pz 和 Pp3 之 间 等 间距 的 序列 

Pk3=Pk3+Nk*N3; % 计算 弹簧 2 对 应 的 数据 点 

hp3=plot (Pk3); $% 画 出 第 3 个 弹 筑 

L1=abs (p1-pz); g% 计算 出 弹 答 的 原来 长 度 

L2=abs {(p2-pz); 8% 计算 出 弹簧 的 原来 长 度 

L3=abs(p3-pz); $% 计算 出 弹 筑 的 原来 长 度 

v=0; $% 初始 时 的 速度 

set (gcf, 'DoubleBuffer','on'); % 设置 图 形 的 泻 染 效果 

at=0.01; #% 时 间 增 量 

Tz=title('t=0')， % 显示 当前 时 间 

t=0; % 初始 时 间 数 值 

#s Rp=[rand-0.5+ix*(rand-0.5)]*4; % 初始 相对 位 置 ( 随机 ) 

Rp=2+2i， gs 初始 相对 位 置 (自行 设 定 ) 

pz=pz+RP; % 记 算 当前 位 置 

pzz=pz; 8% pzz 是 记录 小 球 轨迹 的 变量 

BF=1; 

hG=plot (pz,'z.''markersize',2); g% 绘制 轨迹 

while abs(v)>le-5 | abs(F)>le-4; % 循环 计算 小 球 运动 过 程 
F1=exp(ix[angle(p1-pz)])*(abs(pl-pz)-L1); % 计算 弹 筑 1 产生 的 弹力 
F2=exp(i*[angle(p2-pz)])*(abs(p2-pz)-L2); % 计算 弹 笑 2 产生 的 弹力 
F3=exp(i*[angle(p3-pz)])*(abs(p3-pz)-L3); sg 计算 弹 答 3 产生 的 弹力 
F=F1+F2+F3; 当 计算 3 个 弹簧 的 合力 
a=F/Mi 当 计算 小 球 当前 的 加 速度 
v=v+axdt; % 计算 小 球 当前 的 速度 
pz=pz+vx*dat; & 计算 小 球 当前 的 位 移 
N1L1=exp(i*[angle(p1-pz)+pi/2]); :% 计算 与 弹簧 1 轴线 垂直 的 方向 
Pkl=linspace(pz,pl1,22); g% 生成 pz 和 pl 之 间 等 间距 的 序列 
Pk1l=Pkl1+NKkx*N1; $% 计算 第 1 个 弹簧 的 坐标 数值 
set (hp1l1, 'XData',rzeal{(Pkl),'YData',imag(Pkl)); % 更 新 第 1 个 弹 答 的 位 置 
N2=exp (i* [angle(p2-pz)+pi/2]); 8% 计算 与 弹簧 2 轴线 垂直 的 方向 
Pk2=1linspace(pz,p2,22)}; # 生成 pz 和 p2 之 间 等 间距 的 序列 
Pk2=Pk2+Nk*N2; % 计算 第 2 个 弹簧 的 坐标 数值 
set (hp2,'XData',real(Pk2),'YData',imag(Pk2)); % 更 新 第 2 个 弹 答 的 位 置 
N3=exp(i*[angle(p3-pz)+pi/2]); % 计算 与 弹 答 3 轴线 垂直 的 方向 
Pk3=linspace(pz,p3,22); g% 生成 pz 和 Pp3 之 间 等 间距 的 序列 
Pk3=Pk3+Nkx*N3; % 计算 第 3 个 弹簧 的 坐标 数值 
sekt (hp3,'XData' ,real(Pk3),'YData' imag(Pk3)); % 更 新 第 3 个 弹 答 的 位 置 
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pd=pz+exp(ir[0:0.02:pix2])*0.26; g% 计算 小 球 当前 位 置 
set (Fq, 'XData',real(pd),'YData',imag(pd)); $% 更 新 小 球 的 位 置 
t=t+dat; % 更 新 时 间 数 值 
if t<800; &% 在 上 t 小 于 800 时 记录 轨迹 点 

pzz=[pzz,pz]; #% 记录 当前 小 球 位 置 数据 到 变量 pzz 中 

set (thG,'Xdata',real (pzz),，'YData',imag(pzz)); $% 更 新 轨迹 图 
enda 
set (Tz, 'String'y ['t=',num2str(t)]); % 更 新 当前 时 间 
pause(0.02); $% 暂停 一 下 显示 动画 效果 


endQ 

首先 初始 化 系统 的 参数 ， 如 位 置 和 长 度 等 信息 。 在 该 系统 中 运动 的 组 件 有 3 根 弹簧 和 1 个 小 
球 。 而 在 计算 中 只 需要 确定 小 球 的 质心 就 可 以 确定 运动 组 件 的 位 置 。 小 球 的 运动 情况 可 以 通过 受 力 
分 析 来 计算 ， 此 处 小 球 仅 受到 弹簧 弹力 作用 ,计算 出 合力 就 可 以 得 到 小 球 的 加 速度 ， 继 而 得 到 任意 
时 刻 小 球 的 速度 ， 通 过 速度 可 以 计算 出 小 球 的 位 置 。 另 外 ,程序 中 把 小 球 轨迹 记录 下 来 并 显示 。 相 
应 的 运动 过 程 如 图 25.15 所 示 。 在 图 25.15 中 间 部 分 的 网 格 状 复杂 图 形 是 小 球 质心 的 运动 轨迹 ， 可 
见 这 是 一 个 复杂 的 轨迹 图 。 





0 1 2 3 胡 5 5 7 昌 9 10 
图 25.15 3 根 弹簧 作用 下 的 小 球 轨迹 图 
此 外 ， 光 盘 中 \Ch25 文件 夹 下 的 spring11 给 出 了 一 个 弹簧 振子 的 动画 模拟 。 一 根 弹 簧 被 水 平 
放置 在 地 面 上 。 弹 筑 的 一 端 固定 在 墙 上 ， 另 一 端 系 着 一 个 小 球 为 自由 端 。 这 里 忽略 小 球 的 摩擦 力 以 
及 相关 阻力 ， 如 此 小 球 做 简 谐 运动 。 


25.4 凸 轮 的 转动 
本 节 来 研究 凸轮 匀速 转动 的 一 个 例子 。 凸 轮 系统 的 几何 结构 如 图 25.16 所 示 , 其 中 凸轮 被 固定 


在 0, 位 置 ， 它 可 以 围绕 O 点 旋转 ， 而 椭圆 面 被 固定 在 0 点。AB 为 一 个 连 杆 ， 其 长 度 等 于 DO 点 
和 O。 点 之 间 的 距离 。 凸 轮 进行 匀速 转动 的 时 候 将 会 带动 椭圆 面 进行 转动 。 
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图 25.16 凸轮 系统 的 构图 
根据 几何 知识 可 知 , A 点 和 B 点 将 进行 圆周 运动 。 给 出 凸轮 的 旋转 角度 可 以 根据 余弦 定理 推算 
出 椭圆 面 的 角度 。 这 里 凸轮 的 外 轮廓 根据 前 面 等 式 ( 25-2 ) 来 计算 。 
下 面 给 出 这 个 过 程 模拟 的 MATLAB 程序 。 


t1=1inspace(-sqrt (2)+eps,sqrt(2)-eps,200); $% 生成 递增 数据 序列 
t2=1inspace(sart(2)-eps,-sqrt(2)+eps,200); % 生成 递减 数据 序列 
xl=[t1,t2];， 8% 生成 凸轮 轮廓 的 横 坐 标 数据 
Yl=[sqrt((2-tl.^2)./acos(tl./(1+tl.^2))) -sqrt((2-t2.^2)./acos(t2./(1+t2.^2))) 
]/1.5; #% 凸轮 轮廓 的 纵 坐 标 
ph=plot (xl,yl,'rz')7g 画 出 凸轮 的 外 轮廓 
hold onyaxis([-2,8,-4,4])7;axis egqual; s% 设置 坐标 轴 范 围 
a=linspace(0,pi*2,200); $% 圆周 角 序列 
plot (0.15*exp (ix*a),'k'); sg' 画 出 左 侧 固 定点 附近 的 圆 轩 
x2=5+2x*cos{(a); s# 椭圆 边界 的 数据 ， 横 坐标 
Y2=0.6*sin(a); sg 椭圆 边界 的 数据 ， 纵 坐标 
eh=plot (x2,y2，,m'); s$% 画 出 燃 园 的 轮廓 
plot (5+0.15*exp(i*a),'x'); g% 画 出 右 侧 固定 点 附近 的 网 图 
R=1; ss 连 杆 右 端点 到 右 侧 固定 点 的 距离 
pa=-1; sg 连 杆 左 端点 的 坐标 
pb=5-R; ， % 连 杆 右 端点 的 坐标 
L=abs (pa-pb) ; #% 计算 连 杆 长 度 
Lh=plot([pa,pb]l, [0,0],'k'，'liinewidth',2); $% 画 出 连 杆 
plot({[-2,8], [0,0],'k-.'); sg 画 出 水 平 轴线 
k=1; $% 控制 循环 的 参数 
Ra=pi; % 初始 时 凸轮 的 旋转 角度 
da=0.1; g% 角度 增 量 
plot(exp(ixa),'k:'); s% 点 的 轨迹 
plot (5+exp (ixa),'k:'); g% B 点 的 轨迹 
ti=title('angle = \pi'); # 添加 图 题 
while Kk; 
有 =RA+dR; 
T1=[cos(a-pi),-sin(a-pi)ysin(R-pi),cos( 有 -pi)]y 条 坐标 旋转 矩 阵 
pa=exp (ivna); #% 更 新 连 杆 左 端点 数值 
xlt=Tl1(1,1)*xl+Tl(1,2)*y1; % 计算 当前 凸轮 轮廓 的 数据 横 坐 标 
yY1t=T1(2,1)*xl+Tl(2,2)*y1; 当 计算 当前 凸轮 轮 席 的 数据 纵 坐 标 
D=abs (pa-5); g% 计算 连 杆 左 端点 到 右 侧 固定 点 的 距离 
da=acos ( [R^2+D^2-L^2J/[2*R*D] ); 8% 计算 连 线 02-&A 与 02-B 的 夹 角 
RA2=anglet(pa-5)1 $% 计算 A 点 和 02 点 连 线 与 水 平方 向 的 夹 角 
R2=R2+sign(a2)*da; % 计算 B 点 与 02 点 连 线 的 夹 角 
pb=R*exp (ix*a2)+5; gg% 计算 出 B 点 的 坐标 
T2=[cos (MA2-pi),-sin(a2-pi)ysin(RA2-pi),cos(RA2-pi)]; % 坐标 旋转 矩阵 
x2t=T2(1,1)*[x2-5]+T2(1,2) *y2; gs 计算 当前 凸轮 轮廓 的 数据 横 坐 标 
Y2t=T2(2,1)*[x2-5]+T2(2,2)*y2; 8 计算 当前 凸轮 轮廓 的 数据 纵 坐 标 
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set (ph, 'XData',xlt,'Ypata',ylt); #% 更 新 凸轮 轮廓 的 位 置 
set (eh, 'XData', [x2t+5],'YData',Yy2t); $% 更 新 椭圆 辑 廊 的 位 置 
set (Lh, 'XData',real([pa,pb]),'YData',imag([pa,pb])); #% 更 新 连 杆 的 位 置 
set (ti,'String' 习 y ['angle = ',num2str(mod(A,pix*2))]); g% 显示 当前 角度 
pause(0.2); $% 暂停 一 下 ， 显 示 动 画 效果 

enda 


首先 初始 化 凸轮 系统 的 组 件 的 形状 参数 ， 并 利用 plot 函数 画 出 凸轮 轮廓 图 和 椭圆 面 。 然 后 利 
用 循环 结构 计算 不 同时 刻 该 系统 的 位 置 ， 首 先 根据 时 间 确 定 凸 轮 位 置 ， 继 而 可 以 得 到 A 点 的 坐标 ， 
然后 利用 余弦 定理 可 以 计算 出 B 点 的 坐标 ， 再 根据 B 点 的 坐标 确定 椭圆 面 的 位 置 并 更 新 图 形 。 通 
过 理论 计算 可 以 知道 A 点 和 B 点 的 轨迹 是 圆 ， 这 样 在 计算 之 前 把 两 个 圆 用 虚线 画 出 来 。 上 述 程序 
给 出 了 这 个 转动 过 程 的 模拟 ， 其 中 一 个 截面 如 图 25.17 所 示 , 图 中 的 两 个 虚线 圆圈 表示 连 杆 两 个 端 
点 运动 的 轨迹 。 


angle = 3.8752 
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图 25.17 ”凸轮 转动 模拟 过 程 的 一 个 截图 


25.5 ”小结 

机 械 运 动 的 模拟 主要 通过 几何 学 知识 建立 系统 各 个 组 件 之 间 在 不 同时 刻 的 位 置 关 系 。 此 外 , 必 
要 的 力学 知识 可 用 来 建立 机 械 运动 的 方程 。 本 章 结合 MATLAB 的 数值 计算 和 数据 的 可 视 化 功能 模 
拟 了 几 种 形式 的 机 械 运 动 。 通 过 这 些 例子 读者 可 以 模仿 其 他 形式 的 机 械 运 动 。 本 章 首先 给 出 了 一 个 
凸轮 围绕 其 轴线 旋转 的 例子 ， 随 后 给 出 了 阻尼 运动 模拟 ， 以 及 双 摆 、 四 连 杆 、 套 环 、 三 弹簧 振子 等 
运动 形式 的 模拟 实例 ， 最 后 给 出 了 凸轮 带动 椭圆 面 旋转 的 例子 。 


令 全 合 
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人 金融 工具 箱 介 绍 “介绍 金融 工具 箱 中 部 分 函数 的 用 途 。 

人 时 间 序 列 预 测 模型 ”介绍 几 种 生成 时 间 序 列 的 预测 模型 。 

4 经 济 学 模型 ”介绍 4 种 经 济 学 模型 的 数学 定义 及 相关 的 计算 。 

人 规划 问题 求解 介绍 生产 和 经 营 管理 中 遇 到 的 线性 规划 问题 的 求解 。 


MATLAB 提供 了 金融 工具 箱 用 于 分 析 人 金融 数据 以 及 开发 金融 算法 。 金 融 工 具 箱 构建 于 MATLAB 
以 及 统计 和 优化 工具 箱 功能 之 上 , 该 工具 箱 提 供 广泛 的 金融 特定 函数 支持 。 金 融 工具 箱 使 读者 能 够 
优化 投资 组 合 、 确 定 风险 、 分 析 利 率 水 平 、 对 股权 衍生 物 定价 、 处 理 和 转化 商业 日 期 ， 同 时 包括 丰 
富 的 工具 进行 日 期 处 理 、 货 币 的 格式 化 金融 数据 的 图 形 显示 等 。 本 章 结合 这 个 工具 箱 介绍 MATLAB 
在 经 济 学 中 的 应 用 。 


26.1 金融 工具 箱 介 绍 


本 节 来 介绍 MATLAB 金融 工具 箱 中 的 一 些 基 本 函数 。MATLAB 金融 工具 箱 的 相关 文件 存放 在 
安装 路 径 的 子 目 录 \MATLABR2008avtoolboxfinance 下 。 

MATLAB 提供 的 投资 组 合 分 析 方 面 的 函数 如 表 26.1 所 示 。 计 算 利 率 期 限 结构 方面 的 函 煞 如 表 
26.2 所 示 。 计 算 期 权 评 估 以 及 敏感 度 方面 的 函数 如 表 26.3 所 示 。 计 算 金 融 效 率 相关 的 函数 如 表 26.4 
所 示 。 

表 26.1 投资 组 合 分 析 方 面 的 函数 


函数 名 功能 说 明 函数 名 功能 说 明 
portsim 多 资产 回报 序列 的 蒙特 卡 洛 模 ”portopt 任意 约束 条 件 的 边界 条 件 


拟 
portalloc 效率 前 缘 投 资 组 合 的 资本 分 配 portvrisk 计算 投资 组 合 风险 值 


表 26.2 利率 期 限 结构 方面 的 函数 


函数 名 功能 说 明 函数 名 功能 说 明 

disc2zero 把 贴现 曲线 转化 为 零 曲 线 zbtprice 用 bootstrap 方法 根据 债券 价格 计 
算 零 曲线 

fwd2zero 把 正 向 曲线 转化 为 零 曲线 zbtyield 用 bootstrap 方法 根据 债券 收益 计 
算 零 曲线 

prbyzero 从 零 曲线 对 债券 定价 zero2disc 把 零 曲 线 转化 为 贴现 曲线 


pyld2zero 把 平均 收益 曲线 转化 为 零 曲 线 。” zero2fwd 把 零 曲线 转化 为 正 向 曲线 


termft 用 祥 条 工具 箱 对 期 限 结构 拟 合 ”zero2pyld 把 零 曲线 转化 为 平均 收益 曲线 
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表 26.3 ”计算 期 权 评估 以 及 敏感 度 方面 的 函数 


函数 名 功能 说 明 函数 名 功能 说 明 
blkprice 用 Black scholes 方法 进行 期 权 ”glsgamma 用 Black scholes 进行 敏感 度 分 析 
定价 
blsprice 用 Black sholes 公式 计算 买 入 
买 权 和 卖 出 卖 权 值 
表 26.4 ”计算 金融 效率 相关 的 函数 
函数 名 功能 说 明 函数 名 功能 说 明 
annurate 计算 养老 金 周期 利率 mirr 根据 现金 流 计 算 修订 内 部 回报 率 
annuterm 获取 某 价值 所 需 的 周期 数 nomrr 计算 实际 回报 率 
effrr 计算 回报 的 有 效率 pvfix 计算 固定 周期 支付 的 现 值 
irr 计算 内 部 回报 率 


这 些 函 数 的 使 用 可 以 通过 函数 help 参阅 相关 的 帮助 文档 。 


26.2 时间 序 列 预测 模型 


时 间 序 列 ( Time series ) 是 指 随 着 时 间 变 化 带 有 随机 性 且 前 后 数据 又 有 关联 的 一 些 数据 流 。 在 
经 济 活动 中 产生 的 数据 流 在 很 多 情况 下 都 可 以 看 做 时 间 序 列 。 因 而 时 间 序 列 在 经 济 学 的 预测 模型 中 
上 古 有 重要 的 地 位 。 以 下 将 介绍 布朗 非 线 性 指数 法 、Gomperta 曲线 预测 模型 、Logistic 曲线 预测 模 
型 等 。 


26.2.1 布朗 ( Brown ) 非 线性 指数 法 产生 时 间 序 列 


本 小 节 来 介绍 布朗 ( Brown ) 非 线性 指数 法 产生 时 间 序 列 。 如 果 时 间 序列 呈现 非 线性 趋势 时 ， 
可 以 采用 布朗 非 线性 指数 法 进行 时 间 序列 的 预测 模拟 。 该 方法 的 基本 原理 是 在 一 次 平滑 和 二 次 指数 
平滑 的 基础 上 再 进行 一 次 指数 平滑 而 得 到 ， 即 3 次 指数 平滑 。 设 时 间 序列 为 ，z2，.…，xw， 相 
应 的 递 推 公 式 如 下 : 


St)=ar+-alsitt-l1 
Saz(t)=asi()+(-alszt-D ( 26-1 ) 
SO)=asz()+(-alsst-1) 


一 般 情 况 下 ， 取 初始 值 为 8S(0)= S>(0)= S3(0)= 为 。 而 布朗 预测 时 间 序列 的 公式 为 
yt+T)= 太 (+ 所 (这 + 局 (7 ( 26-2 ) 
其 中 了 表示 自 上 时 刻 起 向 前 预测 的 时 间 长 度 ， 而 系数 后 (t) ， 怠 信和 己 们 通过 下 式 计 算 ， 
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人 后 
ft 0=5 CT sajsi(t)-(10-8ajs:(t)+(4-3ajss 人 ] ( 26-3 ) 





心 人)= 到 [SO- 25S2z(z)+SsO] 


刺 二 2 
假设 时 间 序列 已,…,xiz]= [50,52,47,51,49,48,51,40,48,51,51 ,59], 这 里 取 参 数 a = 0.3 来 计算 
y(12+7) 的 数值 。 相 关 的 MATLAB 程序 如 下 ; 


S1=50; % 设置 初始 值 
3S2=50; % 设置 初始 值 
S3=50; g% 设置 初始 值 
x=[50,52,47,51,49,48,51,40,48,51,51,59]; g 计算 时 间 序 列 
a=0.3; % 设置 参数 a 的 数值 
for k=2:13; 
S1 (k) =axx(k-1)+(1-a)*S1(k-1); g% 迭代 计算 
S2 (k) =axS1l (k)+(1-a)*S2(k-1)) 8% 迭代 计算 
S3 (k) =axS2 (k)+(1-a)*S3 (k-1); % 迭代 计算 
end 
kl=3*S1(12)-3*S2(12)+S3(12)， $% 计算 系数 kl 
k2=a/[2*(1-a)^2]*[(6-5*a)*S1(12)-(10-8xa)x*S2{12)+{(4-3xa)x*S3(12)]; % 计算 系数 k2 
k3=a/[2*(1-a)^2]*[S1(12)-2*S2(12)+S3(12)]， % 计算 系数 k3 
T=1:10; 8% 时 间 离 散 值 
Y = kl+k2x*T+k3x*T.^2; % 进行 预测 
plot (T,y，'*'，'MarkerSize',10); % 绘制 数据 
set (gca, 'Position',[0.2,0.2,0.75,0.6]); $% 设置 坐标 轴 位 置 
xlabel('NitT',，'Fontsize',14,'Fontname' Times new roman'); $% X 轴 标注 
Ylabel('fNityl}(12+{fNitTl)'，'Fontsize' ,14,'Fontname', Times new roman'); g% Y 轴 标 


注 
计算 所 得 时 间 序 列 数值 和 已 知 时 间 序 列 数值 如 表 26.5 所 示 。 
表 26.5 “时间 序 列 数值 表 
序 上 
列 |:> 3 4 5 6 7 8 9 10 11 12 


太 52 47 51 49 48 51 40 48 51 51 59 
Si(t) 500000 50.6000 495200 499640 ”496748 49.1724 ”49.7207 ”48045 ”471631 ”483142 。” 491199 





Sa 人 tf) 500000 ”501800 ”499820 ”49.9766 ”49.8861 ”49.6719 ”49.6866 ”488219 ”483243 43213 。 485609 


Si 50.0000 ”50.0540 ”50.0324 ”50.0157 ”49.9768 ”49.8853 ”49.8257 ”495246 ”491645 ”489115 ”488063 





输出 yl2+7) 的 图 形 如 图 26.1 所 示 。 
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图 26.1 ”预测 模型 的 图 示 结 果 


26.2.2 ”Gomperta 曲线 预测 模型 


Gomperta 曲线 是 以 统计 学 家 芍 伯 辫 的 名 字 而 命名 的 。 该 曲线 描绘 图 形 的 特点 是 ， 开始 增长 速 
度 很 慢 ， 随 后 逐渐 加 快 ， 同 时 达到 一 定 阶段 变 慢 直 到 增长 速度 慢 慢 趋 于 0。 其 曲线 的 走向 很 像 一 个 
顺 时 针 倾 斜 的 字母 S。 如 果 已 知 的 数据 分 布 形式 满足 这 个 倾斜 的 S 形 , 则 可 以 考虑 使 用 这 个 曲线 模 
型 进行 预测 研究 。 该 曲线 的 数学 方程 为 ， 


?=jae ( 26-4 ) 
其 中 KE ，4& 和 如 为 待定 的 系数 。 对 方程 ( 26-4 ) 的 两 端 取 对 数 有 : 
Iny=lnKkK+bxlna ( 26-5 ) 


在 进行 模型 参数 估计 时 ， 选 用 样本 数据 三 等 分 并 倒数 求 和 的 方法 。 采 集 一 组 样本 数据 
(xx) 人 =12…,N) ， 其 中 样本 数据 的 个 数 为 3 的 倍数 ， 设 = N/13 ， 同 时 计算 以 下 3 个 参数 ; 


1 >my， 7 = yi 六 = SU { 26-6 ) 


大 =r+1 大 =2r+1 


这 里 把 样本 数据 按 顺序 分 为 三 段 ， 每 段 对 应 地 算出 一 个 参数 友人 =12,3)。 把 公式 ( 26-5 ) 带 
入 到 公式 ( 26-6 ) 并 整理 后 可 得 : 








=rinkt+b 二 ma， 六 =rink+irn 和 ma， 已 =rinkt+oz tina ( 26-7 ) 

通过 联 立 公式 ( 26-7 ) 中 的 3 个 等 式 ， 可 以 求解 出 待定 参数 上 ，4& 和 吕 ， 其 结果 为 : 

5 由-，ima= 人 (全 - 厂 ) 一 2 ink= 工 z _ 比 -0 。 ( 26-8) 
态 二 厂 zt" 下 r 11 


式 ( 26-8 ) 表明 求解 时 需要 按 户 一 a 一 上 顺序 进行 。 下 面 利 用 Gomperta 曲线 对 表 26.6 中 的 数 
据 进 行 预测 。 


630 = jw > 扰 
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表 26.6 某 工厂 的 生产 量 统计 表 


时 间 ( 年 ) 2000 2001 2002 2003 2004 2005 2006 2007 2008 
产量 41 51 71 166 248 329 360 381 399 


上 述 样本 数据 个 数 正好 是 3 的 倍数 。 下 面 编写 Gomperta 曲线 预测 的 程序 ， 根 据 式 ( 26-6 ) 和 
( 26-8 ) 可 以 写 出 相应 的 MATLAB 程序 。 
function Yn=gomperta(y,xn) 
g% Gomperta 曲线 预测 的 程序 
xr=fix(length(y)/3); % 历史 数据 y 长 度 不 是 3 的 倍数 时 ， 取 不 大 于 其 总 数据 的 最 大 的 3 的 整数 倍数 
L1=sum(log(y(1:r))))， $# 计算 过 程 参数 L1 
L2=sum(log(y(r+1:2xr) ) ); $% 计算 过 程 参数 L2 
L3=sum(log(y(2*r+1:3*r))); $% 计算 过 程 参数 L3 
b=[(L3-L2)/(L2-L1)]^(1/z); % 计算 待定 系数 b 
a=exp((L2-L1)*(b-1)/[b*(b^z-1)^2]); % 计算 待定 系数 a 
k=exp([L1-bx* (b^r-1)1og(a)/(b-1)]/zr); 8% 计算 待定 系数 k 
Yn=k*a.^(b.^xn); $% 计算 预测 时 间 的 数值 
这 是 一 个 函数 文件 的 形式 ， 需 要 把 上 述 内 容 保存 为 gomperta.m 文件 , 之 后 就 可 以 调用 这 个 函 


数 了 ， 其 调用 格式 为 : 
Yn=gomperta(y, xn) : 


参数 说 明 : yn 是 预测 的 函数 值 。y 是 输入 的 历史 数据 。xn 是 待 预测 的 位 置 数 据 。 
利用 下 面 一 段 程序 可 以 用 表 26.6 中 的 数据 进行 Gomperta 曲线 预测 。 


y=[41,51,71,166,248,329,360,381,3991718 输入 历史 数据 
xn=10:12; 8% 待 预测 的 位 置 
yn=gomperta(y, xn) 8% 进行 Gomperta 曲线 预测 


上 述 程序 输出 的 结果 为 : 


纪 了 再 
427.1380 439.8634 448.6844 


这 3 个 数值 依次 对 应 着 2009 年 、2010 年 、2011 年 的 产量 。 


罚 这 里 样本 数据 区 默认 为 1 ，2，…，9， 它 们 对 应 着 1999 年 、2000 年 、…、2008 
[ELE。 年 ， 因 此 数值 10，11 和 12 对 应 的 是 2009 年 、2010 年 和 2011 年 。 


26.2.3 logistic 曲线 预测 模型 


logistic 曲线 预测 模型 是 由 数学 家 Veihulot 在 研究 人 口 增长 规律 时 首先 提出 来 的 。 该 预测 模型 
所 定义 的 曲线 图 形 与 前 面 的 Gompertz 曲线 相似 。 曲 线 的 形状 也 是 一 个 顺 时 针 倾斜 的 S 形 。 在 很 多 
情况 下 ， 这 两 种 模型 是 可 以 互 换 使 用 的 。logistic 曲线 的 数学 方程 为 : 
( 26-9 ) 





了 到 二 
1+772e 
其 中 为 时 间 序 列 的 采样 点 ， 通常 为 自然 数组 成 的 数列 。 妈 和 Q& 是 待定 参数 。 待 定 参数 大 表示 


函数 》 的 数值 增长 趋势 。 当 上 一 co 有 : 
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limy= 大 ( 26-10 ) 


即 大 是 函数 y 的 饱和 值 。 
下 面 介 绍 3 个 待定 参数 的 计算 方法 。 如 果 丰 已 知 或 者 可 以 根据 实际 情况 计算 出 来 ， 可 以 使 用 
下 面 的 方法 计算 参数 灵 和 Q 。 式 ( 26-9 ) 可 以 改写 为 : 


大 


一 一 1 = ze- ( 26-11 】 
水 
对 上 式 两 边 取 对 数 有 ， 得 到 
天 
中 人-mm-a ( 26-12 ) 
纪 


如 果 记 上 /一 1= 了 ， 那 么 公式 ( 26-12 ) 是 一 个 线性 方程 ， 通 过 线性 回归 分 析 可 以 计算 待定 


参数 让 和 aqa。 
下 面 给 出 利用 公式 ( 26-12 ) 编写 logistic 曲线 预测 模型 的 MATLAB 程序 。 


function Yn=1logisticl(y,k,tn); 
#s logistic 曲线 预测 模型 ， 计 算 参数 m 和 a 
y=y(:); # 把 历史 数据 转化 为 列 向 量 
Y=k./y-1; # 计算 合成 变量 Y 的 数值 
n=numel (y) ; % 计算 历史 数据 的 个 数 
x=[[1:n]',ones(tn,1)]; g 生成 回归 分 析 的 输入 参数 x 
[B, Bint,R,Rint,Stats] = regress(Y,x); $ 进行 一 元 线性 回归 分 析 
if Stats(end)<0.01; $% 判断 回归 分 析 结果 是 否 是 有 效 的 
m=exp{(B(2)) ; $% 计算 参数 m 
a=-B(1); $% 计算 参数 a 5 
”yn=k./(1+mx*exp(-a*cn) ); % 计算 预期 值 
else 


yn=[]; s 回归 分 析 无 效 时 ， 输 出 空 的 yn 


error('Error: The Logistic model is unsuccessful for the question.');s% 提示 logistic 


曲线 预测 模型 失效 


end 
上 述 程序 是 一 个 函数 文件 的 形式 ， 读 者 把 上 面 这 段 程序 保存 为 logistic1.m 文件 就 可 以 对 其 调 
用 了 。 该 函数 的 调用 格式 为 ， 
Yn=logisticl(y,k,tn) 7 
参数 说 明 : yn 是 计算 所 得 的 预测 值 。y 表示 历史 数据 。k 是 趋势 值 。tn 是 待 预测 的 时 间 位 置 。 
下 面 以 表 26.6 中 的 数据 为 例 , 调用 函数 logistic1 对 数据 进行 logistic 曲线 预测 。 这 里 选择 参数 
大 的 数值 为 410。 通 过 下 面 的 语句 可 以 进行 预测 : 
Yy=[41,51,71,166,248,329,360,381,399]7g 输入 历史 数据 
k=410; $% 对 参数 k 赋值 


tn=10:12; g% 待 预测 的 位 置 
Yn=logisticl(y,k,tn) $% 进行 1ogistic 曲线 预测 模型 


输出 结果 为 : 
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Yn = 390.6169 403.4756 407.8508 


在 logistic 曲线 预测 模型 中 ， 预 测 的 函数 值 yn 要 小 于 参数 k 的 数值 。 
当 参 数 k 在 进行 预测 前 是 未 知 时 ， 可 以 采用 样本 数据 三 等 分 法 。 记 样本 数据 数目 为 姻 = 3r ， 
其 中 是正 整 数 。 根 据 logistic 曲线 预测 模型 的 数学 表达 式 有 ， 


1 妈 e-e 
一 二 二 { 26-13 ) 
然后 对 三 段 数 据 分 别 求 和 ， 设 : 
1 
3， 2 ES (26-14) 
rr+1 J 包 j2r+l 多 


利用 等 比 数列 求 和 公式 ， 联 立 公 式 ( 26-13 ) 和 ( 26-14 )， 有 : 





广 了 1 一 e 六 7 灵 e 一 六 11ie”e"” 一 1 
9 三 一 十 一 了 本 3 相 一 ( 26-15 ) 
1 大 Ke ke 3 天 el 
令 甩 =9 一 ， 疡 =, 一 9 ， 进 一 步 可 以 算出 
二 血 2 二 2 
| ( 26-16 ) 
必 一 户 = 
丰 。 e“ 一 1 Ke” e“-1 
这 样 参 数 a ， 大 和 六 的 表达 式 如 下 : 
本 二 2 归 
-ln3 9 下 二 (也 忆 )r D 大 e“ 一 1 ( 26.17) 











Fr 8 -8 人 (D-D)9 -天 万- 万 cl 
根据 上 面 的 推导 ， 建 立 logistic 曲线 预测 模型 的 MATLAB 程序 ， 如 下 : 


function Yn=logistic2(Y,tn) 

gs logistic 曲线 预测 模型 ， 计 算 参 数 k，m 和 a 

n=numel (yY); s# 计算 历史 数据 的 个 数 

r=fix(n/3); % 历史 数据 y 长 度 不 是 3 Fa 取 不 大 于 其 总 数据 的 最 大 的 3 的 整数 倍数 
S1=sum(1./y(1:r)); % 计算 过 程 

S2=sum(1,./Y{r+l1:2xr))) 计算 过 程 参数 52 
S3=sum(1./Yy(2*r+1:3xr)); % 计算 过 程 参 数 S3 

D1=SI1-S2; $% 计算 过 程 参数 D1 

D2=S2-S3; % 计算 过 程 参数 D2 

a=log([S1-S2]/[S2-S3] ) /rz; &% 计算 待定 参数 a 

k={(D1-D2) *r/[{(D1-D2)*S1-D1^2]; % 计算 待定 参数 k 
m=D1^2x*k/(D2-D1)* [exp(a)-1]/[exp(-rxa)-1]; % 计算 待定 参数 m 
yn=k./(1+mxexp(-axtn)); #% 计算 预期 值 


上 述 程 序 是 一 个 函数 文件 的 形式 ， 读 者 把 上 面 这 段 程序 保存 为 logistic2.m 文件 就 可 以 对 其 调 
用 了 。 该 函数 的 调用 格式 为 ， 


Yn = logiscic2(yY，tn) 
参数 说 明 : yn 是 计算 所 得 的 预测 值 。y 表示 历史 数据 。tn 是 待 预测 的 时 间 位 置 。 
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下 面 以 表 26.6 中 的 数据 为 例 , 调用 函数 logistic2 对 数据 进行 logistic 曲线 预测 。 通 过 下 面 的 语 
名 可 以 进行 预测 : 
y=[41,51,71,166,248,329,360,381,399]1# 输入 历史 数据 


tn=10:12; g% 待 预测 的 位 置 
yn=logistic2(y,tn) #% 进行 1ogistic 曲线 预测 模型 


输出 结果 为 : 


Yn = 407.1473 411.0321 412.9498 


26.3 ”经 济 学 模型 


经 济 学 模型 可 以 很 好 地 刻画 系统 的 参量 变化 过 程 ， 通过 模型 可 以 了 解 系统 的 稳定 性 情况 ， 预测 
未 来 发 展 趋势 等 。 本 节 来 介绍 几 种 经 典 的 模型 。 


26.3.1 凯恩斯 模型 


凯恩斯 模型 是 一 种 用 来 描述 国民 收入 和 政府 支出 的 经 济 学 模型 。 如 果 用 了 (t) 和 CG (1) 分 别 表 
示 国 民 收入 和 政府 支出 ， 那 么 凯恩斯 模型 可 以 表示 为 ， 


7(I)={(1+a)7Y(t-UD-a7zY(t-2)+G(b) ( 26-18) 
其 中 & 是 加 速 因子 ，X 被 称 为 动态 因子 。 这 是 一 个 离散 时 间 序 列 模型 ， 下 面 考虑 绘制 这 个 模型 
的 图 形 。 这 里 取 函 数 G(1) 为 下 面 的 形式 ; 


g(I)=2[+14]+1 ( 26-19 ) 


其 中 [V4] 表 示 取 不 大 于 t/4 的 最 大 整数 。 
这 里 计算 3 种 不 同 的 初 值 情况 ，a = 0.92 ，XY = 0.74 。 相 应 的 程序 如 下 : 


a=0.92; % 设置 加 速 因子 

g=0.74; % 设置 动态 因子 

yl(1)=4;Yy1(2)=2; $% 设置 第 一 种 初 值 情况 

Y2(1)=4;Y2(2)=4; $% 设置 第 二 种 初 值 情况 

Y3(1)=4;Y3(2)=6; % 设置 第 三 种 初 值 情况 

N=20; $% 时 间 范 围 

for k=33:N7 
yl1(k)=(1+a)*gwy1(k-1)-axgxyl(k-2)+2x*fix(k/4)+17 $ 帮 代 计算 
Yy2(k)=(1+a)l*gw*y2(k-1)-axgxwy2(k-2)+2xfFix(x/4)+17 % 迭代 计算 
Y3 (k)=(1+a) *gx*Yy3 (k-1) -axg*y3 (k-2)+2*fix(k/4)+17 g% 迭代 计算 

end 

plot(1:N,Yy1,'kx',1:N,Y2,'ko',1:N,Y3,ks')) sg% 绘图 

set (gca,'Position',[0.2,0.2,0.6,0.4]); $% 设置 坐标 轴 位 置 

legend('c1'，'C2'，'C3 0); $ 加 注 图 例 

xlabel('cime'); % X 轴 标注 

ylabel('Y(t)'); gs Y 轴 标注 


执行 上 述 程序 输出 图 形 如 图 26.2 所 示 。 可 见 在 不 同 的 初始 条 件 下 ， 凯 恩 斯 经 济 模型 在 一 定时 
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间 之 后 国民 收入 将 不 受 初始 时 的 国民 收入 影响 。 





time 
图 26.2 ”凯恩斯 经 济 模型 图 形 
在 式 ( 26-18 ) 中 ， 如 果 设 六 人 =Y(k-2)，xz(t)=YC-1， 可 以 得 到 差分 方程 组 : 


(t+lD=xt) ( 26-20 ) 


mt+J=-Xoa(t)+xXlI+ajz(O)+G(D) 
上 面 的 式 子 可 以 写 为 等 价 的 矩阵 方程 形式 ， 即 ; 


2 1 ]、[0 
+ )-|- 0 了 寺 扣 (26-21 ) 
其 中 = 蔬 ;z] 。 式 ( 26-21 ) 的 稳定 性 可 以 由 下 面 3 个 不 等 式 描述 ; 


加 <1 

M>-l+xl+a) { 26-22 ) 

和 ja>-XMI+a)-1 

如 果 a>0 且 0<7Y<1， 后 两 个 不 等 式 成 立 ， 因 此 再 要 求 扣 <1 即 可 。 式 ( 26-21 ) 的 特征 方程 
为 : 

人 二 = 媒 -X+ajii+=0 ( 26-23 ) 

Ma ?4-XMI+a 

上 式 中 关于 4 的 二 次 方程 的 判别 式 为 : 

A=(+o 庆 一 4 和 ( 26-24 ) 

取 A=0， 则 有 : 

7=0 

7 二 4a ( 26-25 ) 

(+o 


利用 下 面 的 程序 画 出 y= 1/a 和 7y= 4a/(l+ oj 所 对 应 的 图 形 。 


a=linspace(0,8,801); $% 离散 化 参数 a 
g=4*a./(1+a).^2) sg% 计算 参数 gamma 的 数值 
plot(a,g) ;hold on;  $ 绘图 


本 吉本 可 635 


MATLAB 科学 计算 与 可 视 化 仿真 宝典 > j> > 和 


plot(a(a>0.5),1./Va(a>0.5),'k')) sg 画 倒数 

set (gca, 'Posiction',[0.2,0.2,0.7,0.4]); #% 设置 坐标 轴 位 置 
xlabel('\ita','Fontsize',14,'Fontname'，'Times new roman'); $ X 轴 标 注 
Y1label('\itvgamma'，'Fontsize',14,，'Fontname'，'Times new roman',，'Rotation',0); 当 Y 
轴 标 注 

text (1,1.6，{f\it\gamrmna}l =1/fNital'， Fontsize' 14，'Fontname'，'Times new roman') 1; 
g 增加 标注 

text (3,0.85，'{fNicN\gammal =4{\italy(1+{fNital)^2'，'Fontsize' 14,，'Fontname'，'Times 
new zoman ' ) ; g% 增 加 标注 


执行 上 述 程序 所 得 图 形 如 图 26.3 所 示 。 





图 26.3 凯 思 斯 模型 稳定 性 曲线 


26.3.2 封闭 经 济 系统 的 动态 IS-LM 模型 


封闭 经 济 系统 的 动态 IS-LM 模型 用 于 描述 商品 市 场 和 货币 市 场 的 动态 变化 规律 ,这 个 经 济 系统 
模型 可 以 用 一 个 微分 方程 表示 : 


中国 fm 


其 中 表示 国民 收入 ，7 表 示 利率 。 六 ，7 ，d ， 大 ， 灵 ，4 和 7, 为 该 模型 系统 的 参数 。 
下 面 考虑 这 个 微分 方程 系统 的 求解 。 取 参数 值 为 ; bp=0.9，T=0.2，d =0.1,， 大 =0.3， 
户 = 0.4 ，a= 80 ，m, =7 ;初始 条 件 为 ， y(0)=2，r(0)= 0.02。 
首先 定义 这 个 微分 方程 。 
function dx=cislm 人 (ct,X) 
gs xf(1) 对 应 于 Y 
gs Xx(2) 对 应 于 


b=0.9) $% 对 参数 b 赋值 
2; $ 对 参数 tau 赋值 


上 au=0 . 

d=0.1; % 对 参数 d 赋值 
k=0.3; #% 对 参数 x 赋 值 
h=0.4; % 对 参数 h 赋值 
a=80; $# 对 参数 a 赋值 


ms=7; % 对 参数 ms 赋值 
dx=[b* (1-tau) -1,-dryk,-h]j*x+[ay-ms];) sg 定义 微分 方程 


通过 下 面 的 程序 调用 函数 ode45 来 求解 这 个 微分 方程 
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tspan=[0,40]; g% 定义 时 间 范 转 

x0=[1,0.2]; $% 定义 初始 条 件 

options=odeset{'absTol',1le-8); % 设置 微分 方程 求解 选项 参数 
[t,y]=ode45('cislm' ,tspan;x0,options);) $% 求解 微分 方程 
plot(t,Yy(:,1));holda on; g# 绘制 t-y 曲线 

plot(t,y(:,2)，'ri'); # 绘制 上 +-r 曲线 

xlabel('time',，'Fontsize',14)7 % X 轴 标注 

Ylabel('f\ityl({t\itt}) & {fNitrj(fNittl) Fontsize'y14)7 8 Y 轴 标注 
L=legena('t\itylj({fNitt})tvitr)(f\ictl) 0)， 有 增加 图 例 
set(L,'Fontsize',14); g% 设置 图 例 的 字体 大 小 


执行 上 述 程序 输出 图 形 如 图 26.4 所 示 。 可 见 一 定时 间 之 后 》 和 7 趋 于 平稳 状态 ， 读 者 可 以 变 
化 其 他 参数 对 这 个 模型 进行 研究 。 











26.4 封闭 经 济 系统 的 动态 1S-LM 模型 


26.3.3 ”开放 经 济 系统 的 动态 1S-LM-BP 模型 


开放 经 济 系统 的 动态 IS-LM-BP 模型 引入 国外 经 济 动态 情况 ， 这 样 的 系统 模型 变 为 开放 型 。 该 
系统 可 以 利用 下 面 的 矩阵 方程 表示 : 


》 7110 02 7103 || > 了 Cl 了》 
六 |=| ma， mp 0 ||rl+lcl=Mri+cC { 26-27 ) 
S 11B34 7132 71133 |jL3 G3 3 


其 中 》 表示 国民 收入 , 了 表示 利率 ，$ 表示 国外 经 济 状态 。 和 矩阵 RM 为 系数 构成 的 矩阵 。 向 量 C 
是 常数 项 。 这 是 一 个 一 阶 三 元 微分 方程 。 
下 面 考 虑 这 个 方程 的 求解 。 这 里 和 阵 M 的 取 值 为 ， 


-0.031 -0.1 0.3 
M=| 0.2 -0.4 0 ( 26-28 ) 
-0.0002 0.001 0.0003 


向 量 C 取 值 为 C= [2.5 -2 -0.00]| ， 初 始 条 件 为 ， >(0)= 40，r(0)=14，s(0)=2。 
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首先 定义 微分 方程 组 。 


function dx=oislmbp(t,x)7 

g 对 应 关系 : ax{(1) -- Y 

千 dx(2) -- 工 

锡 dx(3) -~- S 
M=[-0.031,-0.1,0.370.2,-0.4,0;-0.0002,0.001,0.0003]; % 计算 参数 矩阵 M 
c=[2.5;-2;-0.001]; #% 设置 常数 矩阵 

dx=Mx*x+C; #% 定义 微分 方程 组 


通过 下 面 的 程序 调用 函数 ode45 来 求解 这 个 微分 方程 。 


tspan=[0,30]; % 设置 求解 时 间 的 范围 

x0=[40,14,2]7 g& 设置 初始 条 件 

options=odeset('RbsTol',1le-8); % 设置 微分 方程 求解 选项 参数 
[t,x]=ode45('oislmbp',tspan,x0,options); #% 求解 微分 方程 组 

plot(t,x(:,1));hold on; #% 绘制 上 t-y 曲线 

plot(t,x(:,2)，r:')， g 绘制 -rz 曲线 

plot(t,x(:,3)，'k-.。); g% 绘制 t-z 曲线 

xlabel('time','Fontsize',14); % X 轴 标注 

Y1label('f\ity}(fN\itt})， {fN\itrl(f\itt}) & {\itsj({fNitt}) Fontsize' ,14); ssY 轴 


L=legenda('{fNitylj(fN\itt})'vefNitry(tvitt)j)vfNitsl(f\itt}) 0); gs 增加 图 例 


ylim([0,50]); % 设置 Y 轴 范围 
set(L, 'Fontsize',14); % 设置 图 例 的 字体 大 小 


执行 上 述 程序 输出 结果 如 图 26.5 所 示 ， 其 中 S{1) 稳 定 不 变 ， 而 y(t) 和 r(t) 随时 间 缓 慢 增加 
且 增 加 速度 越 来 越 慢 。 


名 加 册 名 六 思 


yb,r0&sG 








sa 守 
0 5 1 四 罗 25 习 0 
time 


图 26.5 ”开放 经 济 系统 的 动态 IS-LM-BP 模型 曲线 图 


26.4 规划 问题 求解 


在 一 些 经 济 与 管理 相关 问题 中 ， 经 常 遇 到 这 样 一 类 问题 : 在 一 些 约束 条 件 下 求解 最 优化 结果 ， 
使 成 本 最 低 或 者 利润 最 大 化 。 这 样 的 问题 可 以 使 用 前 面 介 绍 的 线性 规划 函数 来 方便 地 处 理 , 这 类 函 
数 的 用 法 已 经 在 前 面 的 章节 中 介绍 过 ， 本 节 直 接 举 例 说 明 具 体 问题 的 求解 方法 。 


638 = = > 区 


梧 晤 本 本 第 26 章 “经济 和 金融 问题 的 求解 





某 公 司 在 进行 生产 任务 分 配 时 ， 遇 到 这 样 一 个 问题 有 4 种 商品 需要 交 到 3 个 不 同 的 工厂 进 
行 生产 ,现在 已 经 知道 每 个 工厂 生产 成 本 、 生 产 任务 以 及 每 种 商品 的 需求 量 ， 它 们 的 具体 数值 如 表 
26.7 所 示 。 


表 26.7 ”一 次 规划 中 的 成 本 、 生 产 任务 和 需求 量 表格 


产品 
工厂 pl P2 P3 P4 任务 合计 
佬 6 3 9 8 9 
他 10 3 区 2 9 
他 2 6 2 9 8 
需求 量 8 4 5 9 





在 表 26.7 中 , 什 ， 亿 ，f9 和 p1，p2，p3，p4 对 应 的 3X4 和 矩阵 是 成 本 表格 ， 这 里 记 为 和 矩阵 C 。 
而 最 右 侧 一 列 含有 3 个 元 素 , 它 是 各 个 工厂 的 任务 分 配 指标 , 记 为 Co! ; 最 下 面 一 行 含有 4 个 元 素 ， 
它 是 指 市 场 上 对 于 各 个 产品 的 需求 量 , 记 为 尺 "” 。 在 这 样 的 条 件 下 计算 生产 任务 的 分 配 和 最 小 成 本 。 
这 个 规划 问题 可 以 写 为 下 面 的 优化 模型 ， 即 : 


M AN 
min 灭 =》》cnnxnn ( 26-29 ) 


me=] m=1 


其 中 约束 条 件 可 以 写 为 ， 
AN 
xs=C2,(m=12M) 


m=1 


叶 f 
2 xn =R (=12N) ”( 26-30 ) 
下 =1 


jn 二 0,(72=| 上 2 =12,N) 


在 函数 linprog 中 要 求 输入 的 约束 等 式 是 线性 方程 组 。 而 式 ( 26-30 ) 给 出 的 约束 条 件 相当 于 
Ah + N 个 线性 方程 组 。 本 问题 中 的 待 求 分 配方 案 X 是 一 个 和 矩阵 C 大 小 一 样 的 矩阵 ,同时 需要 给 
出 最 小 成 本 。 在 进行 线性 优化 时 ， 需 要 把 矩阵 C 转化 为 一 个 向 量 。 在 MATLAB 中 ， 可 以 用 “C()" 
把 短 阵 C 转化 为 列 向 量 ， 此 外 还 可 以 使 用 函数 reshape 来 重 置 矩 阵 的 行 数 和 列 数 。 

下 面 建立 求解 优化 问题 的 函数 文件 ， 相 应 的 MATLAB 程序 内 容 如 下 : 


function [x,E]=optimize(C,zow,col); 
s# 求解 优化 问题 的 函数 . 
B=[row(:)*col(t:)]”g% 生成 等 式 约束 左 侧 的 向 量 
[M,N]=size{C); s 计算 矩阵 c 的 行 数 和 列 数 
ARA=zeros (M+N,M*N); $% 生成 等 式 约 束 右 侧 的 矩阵 & 
for Kk=1:M; 
T=zeros(M,N) 7 g% 生成 一 个 空 矩 阵 
T(k,:)=17 # 对 应 行 的 元 素 设置 为 1 
RA(k,:)=[T(:)] 7 sg 把 矩阵 T 转 化 为 一 个 行 向 量 
enaQ 
for Kk=1:N7 
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T=zeros (M,N); ”g 生成 一 个 空 矩 阵 

T(: ,kk)=17 % 对 应 列 的 元 素 设置 为 1 

RM+k, :)=[T(:)]'; 把 矩阵 转 化 为 一 个 行 向 量 
end 
lb=zeros (M*N,1I); % 设置 下 边界 
options=optimset ('MaxIter',1le6); $% 设置 最 大 迭代 次 数 
[x,F]=linprogtc(:)，[]，[],aA,B,1lb,[],[],options); % 调用 函数 1inprog 进行 线性 优化 
x=reshape(x,M,N); $% 把 向 量 x 转化 为 答 阵 

上 述 程 序 内容 是 一 个 函数 文件 ， 把 这 部 分 程序 内 容 保存 为 optimize,m 文件 后 ， 即 可 调用 它 求 


解 带 有 等 式 约 束 的 优化 问题 。 这 个 函数 的 调用 格式 为 : 
[x,F]=optimize(C,rowcol); 


参数 说 明 : 其 中 x 表示 所 得 未 知 和 矩阵 的 数值 。F 表示 优化 方案 对 应 的 最 小 值 。 
. 利用 下 面 的 语句 可 以 实现 表 26.7 描述 的 优化 问题 的 结果 。 
c=[6,3,9,8;10,3,7,2;12.6,2,9] ; % 输入 成 本 矩阵 的 数据 
row= [9,9,8]; % 输入 列 元 素 求 和 计算 所 得 的 向 量 ， 对 应 于 各 个 工厂 的 生产 任务 
col=[8,4,5,9]; $% 输入 列 元 素 求 和 计算 所 得 的 向 量 ， 对 应 于 市 场 对 每 种 商品 的 需求 
[x,F]=optimize{fc,row,col); #% 调用 optimize 函数 计算 优化 方案 和 最 小 值 
x,F g 显示 计算 所 得 优化 结果 和 最 小 值 


上 述 程 序 运行 后 得 到 的 结果 如 下 
x= 5.0000 4-0000 0.0000 0.0000 
0.0000 “0.0000 0.0000 9.0000 
3.0000 0.0000 5.0000 0.0000 
F = 76.0000 


可 见 最 小 成 本 是 76， 珑 阵 x 给 出 了 各 个 工厂 生产 每 种 产品 的 数量 。 
如 果 式 ( 26-30 ) 变 为 下 面 的 形式 


Pm=1 
M 
2 xnsR (=l12…N) ( 26-31 ) 
由 =] 


二 0,( 关 =12M =12…,N) 


把 语句 “[x,F]=linprog(C(),[,D,A,B,b,0,D,options);” 改 为 下 面 的 形式 : 
[x,F]=1linprog(C{t:) ,ARAB,[] [1Lb, [options) 7 


即 可 求解 含有 不 等 式 约束 的 优化 问题 。 如 果 在 约束 条 件 中 同时 含有 等 式 约 束 和 不 等 式 约束 , 可 
以 利用 函数 optimize 中 的 结构 分 别 计算 出 等 式 约束 和 不 等 式 约束 中 的 系数 矩阵 和 向 量 ， 然 后 利用 
函数 linprog 来 计算 优化 问题 即 可 。 这 里 不 再 举例 说 有 明了。 
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26.51 小 结 


结合 MATLAB 强大 的 计算 功能 ， 在 统计 、 优 化 以 及 相关 的 工具 箱 基础 上 建立 了 金融 工具 箱 ， 
可 以 针对 不 同 经 济 学 问题 进行 计算 和 相关 的 模拟 。 本 章 首先 介绍 了 MATLAB 提供 的 金融 工具 箱 的 
基本 函数 功能 。 接 下 来 介绍 了 几 种 产生 时 间 序 列 数据 的 预测 模型 ,给 出 了 相关 模型 的 数据 处 理 程序 ， 
还 介绍 了 几 种 经 济 数学 模型 ， 并 给 出 相关 模型 的 程序 实现 。 最 后 介绍 了 MATLAB 在 求解 优化 问题 
的 使 用 方法 ， 利 用 线性 优化 相关 函数 来 求解 优化 方案 和 最 优 数值 。 
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人 遗传 算法 ”介绍 遗传 算法 原理 及 MATLAB 提供 的 相关 函数 。 

模拟 退火 算法 ”介绍 模拟 退火 算法 的 原理 ， 并 给 出 一 维和 二 维 最 值 问题 的 求解 例子 。 
分 步 傅 里 叶 算法 ”介绍 分 步 傅 里 叶 算 法 的 原理 ， 同 时 给 出 孤子 传播 实例 。 

人 蚊 群 算法 ”介绍 蚁 群 算法 原理 ， 同 时 给 出 利用 该 算法 求 最 短路 径 问 题 。 

@ 分 水 岭 算法 ”介绍 分 水 岭 算法 的 原理 以 及 MATLAB 提供 的 相关 函数 。 

4 粒子 群 算法 ”介绍 粒子 群 算法 的 原理 ， 同 时 给 出 利用 粒子 群 算法 求 最 大 值 的 例子 。 
@ BP 算法 介绍 BP 算 法 的 原理 以 及 MATLAB 提供 函数 的 用 法 。 

争 最 短路 径 Dijkstra 和 floyd 算法 ”介绍 了 这 两 个 算法 的 基本 原理 。 

4 3 个 圆 的 外 切 圆 算法 ”介绍 该 算法 的 基本 原理 ， 同 时 给 出 一 个 计算 示例 。 


随 着 科技 的 发 展 ， 学科 发 展 不 断 细 化 ,一 些 被 频繁 使 用 的 计算 方法 被 广大 研究 者 称 为 算法 。 随 
后 这 些 算法 又 被 应 用 到 不 同 的 领域 中 。 如 此 下 去 ， 随 着 人 们 对 算法 认识 的 不 断 深入 ， 它 将 逐渐 演变 
为 一 个 模型 或 者 工具 。 通过 对 算法 的 改进 可 以 加 强 算法 的 功能 或 者 扩大 其 应 用 范围 。 本 章 介绍 一 些 
常用 算法 的 基本 知识 及 对 应 的 MATLAB 程序 实现 ， 希 望 能 够 帮助 读者 快速 了 解 这 些 常用 算法 。 


27.1 遗传 算法 


遗传 算法 ( Genetic algorithm， 缩 写 为 GA ) 最 初 源 于 对 生物 系统 所 进行 的 计算 机 模拟 研究 ， 
为 此 后 人 称 之 为 遗传 算法 。 生 物 的 进化 过 程 依靠 染色 体 之 间 的 交叉 和 变异 现象 来 完成 。 通 过 对 自然 
界 中 的 生物 遗传 与 进化 机 制 的 模仿 , 对 于 不 同类 型 的 科学 问题 , 许多 研究 者 设计 了 不 同 的 编码 方法 
来 求 问题 的 解 。 于 是 人 们 研究 出 不 同 的 编码 方式 来 模仿 不 同 环境 下 生物 体 遗 传 性 质 , 其 中 编码 方法 
和 遗传 算法 组 成 了 不 同类 型 的 遗传 算法 。 遗 传 算法 是 一 种 借助 于 生物 的 自然 选择 与 自然 遗传 过 程 实 
现 随机 搜索 的 算法 。 遗 传 算法 具有 广泛 性 、 整 体 搜索 特性 、 无 须 借 助 辅助 信息 以 及 含 启发 式 的 随机 
搜索 等 特点 。 

个 体 或 者 生物 体 的 编码 可 以 利用 二 进 制 数据 来 表示 ， 如 : 
xl=[L 0 1 0 1 3] 

1 交 王 2 

通过 对 这 些 二 进 制 数据 进行 计算 实现 遗传 算法 的 演化 过 程 ， 比 如 再 生 和 变异 等 。 

一 个 遗传 算法 的 基本 结构 如 图 27.1 所 示 。 在 遗传 算法 中 重复 着 再 生 、 交 叉 以 及 变异 等 现象 。 
种 群 从 任意 初始 状态 开始 ， 通 过 随机 选择 、 交 叉 和 变异 环节 ， 得 到 一 群 更 适合 虚拟 环境 的 群体 。 从 
而 使 群体 向 搜索 空间 较 好 的 区 域 进化 。 如 此 代 代 繁衍 下 去 ， 最 后 收敛 到 最 适应 环境 的 一 组 群体 ， 从 
而 可 以 得 到 问题 的 最 优 解 。 
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27.1 遗传 算法 的 基本 结构 图 
MATLAB 提供 的 遗传 算法 工具 箱 函数 保存 在 R2008avtoolbox\gads 文件 夹 下 ， 其 中 关于 遗传 算 
法 的 函数 如 表 27.1 所 示 。 





表 27.1 利用 遗传 算法 求 最 小 值 的 函数 
函数 名 功能 说 明 
gaoptimset 设置 遗传 算法 选项 结构 的 属性 值 
gaoptimget 获取 遗传 算法 选项 结构 的 属性 值 
ga 利用 遗传 算法 求 单 目标 函数 的 最 小 值 
amultiobj 利用 遗传 算法 求 多 目标 函数 的 最 小 值 





下 面 介绍 表 27.1 中 函数 的 用 法 。 
1.， 函数 gaoptimset 
函数 gaoptimset 的 调用 格式 为 ， 
options = gaoptimset ('paraml' ,valuel,'param2' ,value2,，.... ) ; 


参数 说 明 : options 是 输出 的 选项 结构 ， 其 为 结构 体 数 据 。param1 和 param2 表示 属性 名 称 。 
value1 和 value2 分 别 表示 对 应 属性 的 取 值 。 表 27.2 中 给 出 了 函数 gaoptimset 的 属性 说 明 及 取 值 
说 明 。 


表 27.2 函数 gaoptimset 的 属性 参数 说 明 


属性 名 说 明 取 值 说 明 
PopulationType 输入 的 人 口 类 型 bitstring | custom | {doublevector} 
PoplnitRange 人 口 可 能 的 初始 取 值 范围 竹 阵 | {[o:1]} 
PopulationSize 表示 个 体 数目 的 数值 正 整数 
EliteCount 不 变化 的 下 一 代 最 优 个 体 数 目 正 整 数 | {2} 
CrossoverFraction 个 体 间 交 换 基 因 的 比例 正 数 | {0.8} 
ParetoFraction 前 面 非 受 控 人 口 比例 正 数 | {0.35} 
MigrationDirection 适宜 个 人 流动 的 方向 both | {fforward} 
Migrationlnterval 个 体 移 民 中 代 的 数目 正 整数 | {20} 
Generations 允许 代 的 最 大 数目 正 整 数 | {100} 
TimeLimit 人 允许 的 最 大 时 间 正 整 数 | {lnf} 
FitnessLimit 期 望 的 最 小 适应 度 函 数 实数 | {-Inf} 
StallGenLimit 小 于 TolFun 的 适应 度 函 数值 下 累计 。” 正 整 数 | {50} 
改变 的 代 的 数目 
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属性 名 
StalITimeLirmit 
TolFun 

TolCon 
InitialPopulation 
InitialScores 
InitialPenalty 
PenaltyFactor 
CreationFcn 


FitnessScalingFcn 


SelectionFcn 


CrossoverFcn 


MutationFcn 


DistanceMeasureFcn 


HybridFcn 


Display 
OutputFcns 


PlotFcns 


Plotlnterval 
Vectorized 


UseParallel 


说 明 

负数 适应 度 函数 值 中 改变 的 最 大 时 间 
适应 度 函 数值 的 终止 容 限 
约束 的 终止 容 限 

遗传 算法 中 的 初始 人 口 

用 于 确定 适应 度 的 初始 评价 

惩罚 参数 的 初 什 

罚 函 数 更 新 参数 
产生 初始 人 口 的 函数 


度量 适应 度 的 函数 


用 于 下 一 代 选 择 父辈 的 函数 


执行 交叉 的 函数 


用 于 变异 的 函数 


测量 个 体 间 平 均 距 离 的 函数 
备用 优化 函数 ， 用 于 和 遗 传 算法 终止 情况 


显示 等 级 

每 一 代 中 调用 的 函数 ， 它 比 PlotFcns 
更 普通 

画 出 模拟 中 各 个 量 的 函数 


画图 的 代 的 数目 
向 量化 目标 函数 ， 同 时 在 一 次 调用 中 
可 以 评价 多 点 

利用 PARFOR 评估 目标 函数 和 非 线性 
约束 函数 


{( 续 表 ) 


取 值 说 明 

正 整数 | {20} 

正 数 | {1e-6} 

正 数 | {1e-6} 

和 珑 阵 | {[} 

列 向 量 | {0} 

正 数 | {10} 

正 数 |{100} 
@gacreationlinearfeasible | 
@gacreationuniform 
@fitscalingshiftinear | 
@fitscalingprop | @fitscalingtop | 
{G@fitscalingrank} 
@selectionremainder | 
@selectionuniform | 
@selectionroulette | 
@selectiontournament | 
@selectionstochunif 
@crossoverheuristic | 

人 @crossoverintermediate | 

人 @crossoversinglepoint | 
@crossovertwopoint | 
@crossoverarithmetic | . 
{@crossoverscattered} 
@mutationuniform | 
@mutationadaptfeasible | 
@mutationgaussian 
{@distancecrowding} 
@fminsearch | @patternsearch | 
@fminunc | @fmincon | {0)} 
'off | 'iter | 'diagnose' | {ffinal} 


@gaoutputgen | {} 


@gaplotbestf | @gaplotbestindiv | 
@gaplotdistance | 

人 @gaplotexpectation | 
@gaplotgenealogy | 
@gaplotselection | @gaplotrange | 
@gaplotscorediversity | 
@gaplotscores | 

@gaplotstopping | {0} 

正 整 数 | {1} 


on | {foff} 


always' | fnever] 





其 中 花 括 号 表示 软 认 值 ，@ 表 示 函 数 句 柄 ， 引 号 表示 属性 值 为 字符 囊 。 


说 明 
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2 函数 gaoptimget 
函数 gaoptimget 的 调用 格式 为 : 


val = gaoptimget (options，'name') 
参数 说 明 : val 表示 获取 的 属性 值 。options 是 遗传 算法 选项 结构 。name 是 属性 名 。 


3.， 函数 ga 
函数 ga 的 调用 格式 为 : 


ga(fitnessfcn,nvars) 7 

ga(Eitnessfcn,nvars,aA,b) 
ga(fitnessfcn,nvars,aA,b,aheG,beg) 
ga(fitnessfcn,nvars,Rb,aeq,beda,DLb,ub): 
ga(fitnessfcn,nvars,RaA,b,aeGq,beq,Lb,ub,nonlcon) :; 

XX ga(fitnessfcn,nvars,ab,aed,beg,Lb,ub,nonlcon,options)y 
[x,fval] = gaffitnessfcn，...) 

[x,fval,exitflag]j = ga(fitnessfcn，,.,.); 
[x,fval,exitftlag,output] = ga(fitnessfcn，...); 
[x,fval,exitflag,output,Population]l = ga(fitnessfcn，...):; 
[x,fval,exitflag,output ,population,Scores] = ga(fitnessfcn，...): 


其 其 基 尖 关 


参数 说 明 : x 是 适应 度 函 数 取 最 小 值 时 的 参数 取 值 。fitnessfcn 表示 适应 度 函 数 的 句柄 。nvars 
是 适应 度 函数 的 维 数 。A 和 b 分 别 是 和 矩阵 和 向 量 ， 它 们 是 不 等 式 hx <b 的 系数 矩阵。Aeq 和 beq 
分 别 是 等 式 Aeq*X=beq 中 的 系数 矩阵 和 系数 向 量 。Lb 和 ub 分 别 是 变量 的 下 界 和 上 界 。fval 是 适 
应 度 函 数 的 最 小 值 。nonlcon 是 描述 非 线性 约束 的 函数 句柄 。exitflag 表示 遗传 算法 存在 条 件 ， 其 可 
能 取 值 及 含义 是 : 1 表示 适应 度 函 数值 的 平均 变化 在 StallGenLimit 属性 值 小 于 TolFun 属性 值 并 且 
约束 违反 小 于 TolCon 范围 外 ,; 3 表示 适应 度 函数 在 属性 限制 范围 内 不 变 ; 4 表示 步 长 小 于 机 器 精度 
同时 约束 违反 小 于 TolCon, 这 种 情况 只 适用 于 非 线性 约束 ; 5 表示 适应 度 极限 达 到 同时 约束 违反 小 
于 TolCon; 0 表示 超过 代 的 最 大 值 ;，-1 表示 输出 或 者 plot 函数 终止 优化 ; -2 表示 找 不 到 合适 的 点 ; 
-4 表示 界限 时 间 极 限 超出 ; -5 表示 超出 时 间 极 限 。output 表示 输出 的 结构 ， 其 包含 以 下 信息 
randstate 表示 随机 函数 rand 的 状态 值 ，randnstate 表示 随机 函数 randn 的 状态 值 ; generations 
表示 总 的 代数 ， 不 包括 混合 迭代 ; funccount 表示 函数 计算 总 次 数 ; maxconstraint 表示 最 大 约束 违 
反 ; message 给 出 遗传 算法 终止 信息 。population 是 结束 时 的 最 终 人 口 数目 。scores 表示 最 后 人 
口 数 目的 评价 。 

这 里 给 出 利用 函数 ga 计算 下 面 二 元 函数 最 小 值 的 例子 。 

Jo,z)=Bcos(26)]+z2]exp(2z) ( 27-1) 

其 中 约束 条 件 为 

JI+m<S6，0<0S6 

分 析 : 这 个 问题 是 单个 目标 函数 的 最 值 问题 ， 因 此 可 以 使 用 函数 ga 来 计算 。 这 里 参数 nvars 
等 于 2，A 等 于 [1,2]，b 等 于 6， 上 界 ub 等 于 6， 下 界 Lb 等 于 0。 在 这 些 已 知 参数 下 ， 考 虑 利用 
函数 ga 求 最 小 值 。 

相应 的 程序 如 下 ， 


fitness=inline(' [4v*cos(x(1)*2)+x(2)].*exp(2*x(2))');7 g% 定义 适应 度 函 数 
RM= [1,2]; $ 定义 不 等 式 约 束 的 系数 矩阵 
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b=6; $ 定义 不 等 式 约束 的 向 量 部 分 

Lb=[0,0]; $% 定义 下 界 

ub=[6,6]; * 定义 上 界 

options=gaoptimset('TolFun',1le-4); $% 定义 遗传 算法 选项 

人 = gal(e@(x)fitness(x),2,a,b,[]，[],Lb,ub,[],options) % 利用 函数 ga 
咱 \ 


上 述 程序 输出 结果 如 下 : 


和 X. 1.4900 2.2555 
ftval = -154.0240 
eXitflag = 1 


这 说 明 在 为 =1.4900 和 加 =2.2555 时 函数 ffxi,z) 取 最 小 值 -154.0240。 


4 项 数 gamultiobj 
函数 gamultiobj 的 用 法 和 函数 ga 相似 ， 不 同 的 是 它 可 以 计算 多 个 函数 的 最 小 值 。 可 以 阅读 这 
个 函数 的 帮助 信息 。 下 面 给 出 利用 函数 gamultiobj 求 多 个 目标 函数 最 小 值 的 例子 。 
两 个 目标 函数 如 下 定义 : 
万 = cos 习 +JSinx2 ( 27-2 ) 
jJ2=sin(xi + 如 )+cos(xs + 妈 3)+sin(xl +) ( 27-3 ) 
其 中 约束 条 件 为 -3<a,m,mm <3。 计 算 [ 太 ,万 ] 的 最 小 值 。 
分 析 : 第 一 个 函数 中 含有 两 个 变量 ， 而 第 二 个 函数 中 含有 三 个 变量 ， 所 以 参数 nvars 等 于 3。 
这 里 约束 条 件 中 的 不 等 式 约 束 和 等 式 约束 条 件 都 不 存在 ， 因 此 相应 地 在 程序 中 可 以 使 用 空 矩 阵 表 
示 。 而 变量 的 上 下 界 分 别 可 以 用 [3,3,3] 和 [-3,-3,-3] 表 示 。 在 此 基础 上 考虑 相应 的 程序 实现 。 
相应 的 MATLAB 程序 如 下 ; 
fl= inline('x(2)*cos(x(1))+x(1)*sin(x(2))'); s% 定义 第 一 个 函数 
f2= @(x) sin(x(1)+x(2))+cos(x(2)+x(3))+sin(x(1I)+x(3))7 % 定义 第 二 个 函数 
fun=@(x) [fl(x)，f2{(x)]; s% 把 两 个 函数 组 合 为 一 个 向 量 函 数 
Lb=[-3,-3,-3]1; $% 设置 下 界 
ub=[3,3,3]; g% 设置 上 界 
options=gaoptimset('TolFun',1le-4); % 定义 遗传 算法 选项 
[x,fval] = gamultiobj(ftun,3,[],[],[],[],Db,ub); % 计算 多 目标 函数 的 最 小 值 
x, Eval % 输出 计算 结果 


上 述 程序 部 分 输出 结果 如 下 : 

x = -2.9989 1.8951 1.3351 
-2.9988 ”1.7433 ”1.3529 
-2.9987 ”1.5256 1.5175 
-2.9987 ”1.5470 ”1.5037 


限于 篇 幅 , 这 里 只 给 出 这 两 个 函数 的 使 用 方法 的 介绍 。 更 多 关于 遗传 算法 方面 的 函数 可 以 参阅 
相关 书籍 来 深入 了 解 。 


27.2 ”模拟 退火 算法 


模拟 退火 ( Simulated annealing， 缩 写 为 SA ) 算法 是 基于 蒙特 卡 罗 算 法 结构 来 求解 的 一 种 启 
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发 式 随 机 搜索 算法 ， 算 法 思想 最 早 在 1953 年 由 Metropolis 等 人 提出 ， 而 把 该 算法 用 于 组 合 优化 问 
题 设 计 的 是 在 1983 年 由 Kirkpatrick 等 人 和 Cemy 分 别提 出 来 的 。 这 个 算法 把 组 合 优化 问题 和 统计 
学 中 的 热平衡 问题 类 比 ， 开辟 了 求解 组 合 优化 问题 的 一 个 新 途径 。 其 出 发 点 是 取 自 物理 学 中 退火 过 
程 的 概念 ， 即 对 固体 物质 进行 退火 处 理 时 ,通常 是 先 将 它 加 热 到 某 一 温度 ， 使 其 内 部 粒子 进行 较 大 
振幅 的 自由 运动 ， 然后 降温 操作 , 粒子 逐渐 形成 较 低能 态 的 晶体 。 如 果 在 凝结 点 附近 温度 下 降 得 足 
够 慢 ， 那 么 固体 物质 一 定 会 形成 最 低能 量 的 状态 。 

模拟 退火 算法 的 基本 思想 是 开始 时 给 出 一 个 试探 解 , 然后 从 它 的 邻 域 中 随机 产生 另 一 个 解 , 这 
个 新 解 要 受到 Metropolis 提出 的 规则 限制 , 这 样 目标 函数 在 设 定 的 范围 内 变化 , 这 个 变化 过 程 由 一 
个 控制 参数 t 决定 ，t 的 作用 类 似 于 物理 过 程 中 的 温度 T。 对 于 控制 参数 t 的 每 一 个 取 值 ， 模 拟 退 
火 算法 持续 进行 “产生 一 判断 一 接受 ( 或 舍 去 ”多 次 迭代 计算 ， 这 个 计算 过 程 对 应 着 固体 在 某 一 
恒定 温度 下 趋 于 热平衡 的 过 程 。 在 控制 参数 t 逐渐 减 小 并 趋 于 0 时 ， 系 统 越 来 越 趋 于 平衡 态 。 最 后 
所 考虑 的 系统 状态 就 对 应 于 优化 问题 的 全 局 最 优 解 , 这 个 过 程 也 可 以 称 为 冷却 过 程 。 由 于 固体 退火 
过 程 要求 缓 慢 降温 ， 这 样 才能 使 得 固体 在 每 一 温度 下 都 达到 热平衡 状态 ， 而 最 终 趋 于 平衡 状态 。 因 
此 控制 参数 { 要 通过 缓慢 的 衰减 ， 才 能 确保 模拟 退火 算法 最 终 优 化 问题 的 整体 最 优 解 。 

图 27.2 给 出 了 一 般 模 拟 退火 算法 的 流程 图 。 相 应 算法 步骤 可 以 总 结 如 下 : 


初始 化 参数 mo 





图 27.2 ”模拟 退火 算法 的 流程 图 
ER。 设 署 参数 取 值 范围 , 给 定 一 个 初始 的 参数 值 mo ,然后 计算 该 值 的 目标 函数 取 值 (mo ) 。 
在 mi 附近 产生 一 个 随机 的 扰动 后 得 到 一 个 新 的 参数 值 ， 同 时 把 相应 的 目标 函数 值 
(mm) 计算 出 来 。 
ER 计算 出 新 旧 参 数 对 应 的 目标 函数 的 差 值 Af = (加 ) 一 了 (mn) 。 
如 果 人 Ar 小 于 0, 则 mm = 普 。 若 人 f 大 于 0,， 则 mm 被 更 新 ( mm = 六 ) 的 几率 为 户 ， 其 


中 忆 =exp(-Af /17) ， 这 里 思 表示 温度 值 。 
在 同一 温度 思 下， 多 次 重复 执行 上 面 的 步骤 。 
ER 缓慢 地 降低 温度 7 ， 直 至 达到 收敛 条 件 为 止 。 


实际 上 模拟 退火 算法 包括 两 重 循环 , 即 参 数 的 随机 扰动 和 温度 降低 。 该 算法 初始 温度 要 求 设 计 
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在 高 温 位 置 , 这 使 得 目标 函数 值 增 大 的 情况 可 能 被 捕捉 到 ,因而 可 以 舍弃 局 部 的 极 小 值 。 通 过 缓慢 
降低 温度 ， 算 法 最 终 可 以 收 和 敛 到 全 局 范围 上 的 最 小 点 。 此 外 ， 对 于 多 元 函数 ， 参 数 内 可 以 是 一 个 
向 量 形式 。 

这 里 对 于 模拟 退火 算法 需要 做 以 下 几 点 说 明 ， 


@ 当 A<0 时 ,exp(-Af1T)>1, 此 时 如 果 使 用 0~1 之 间 的 随机 数 r 那么 r< exp(-Af/1T) 是 
成 立 的 ， 因 此 可 以 使 用 判断 条 件 7< 己 来 处 理 Af <0 的 情况 。 

人 急 对 于 温度 的 衰减 这 里 使 用 指数 衰减 方式 来 控制 ， 即 思 = To 他 ， 其 中 瑟 是 初始 温度 ， 环 表 
示 第 "个 离散 的 温度 数值 ， 人 7 是 温度 衰减 指数 因子 。 

争 对 于 扰动 的 最 大 步 长 , 这 里 同样 使 用 指数 衰减 的 方式 , 即 dr = dotoj， 其 中 dr 表示 第 普 
步 计算 中 使 用 的 步 长 ， dmo 表示 初始 时 的 步 长 ， 加 是 步 长 衰减 因子 。 


下 面 考 虑 利用 模拟 退火 算法 求 一 元 函数 fw) 在 区 间 广 3,3] 内 最 小 值 的 问题 。 (mm) 的 表达 式 如 
下 : 


丰 (m)= (wm 一 ml3 一 2)exp(- 7 Jsin(4m) ( 27-4 ) 


计算 中 初始 参数 mo =-0.5， 初始 扰动 步 长 dr = 0.2， 初 始 温度 7 =8000， 每 个 温度 值 下 的 随 
机 扰动 次 数 为 100 次 ， 加 = 0.99 ， 人 条 =0.9 。 相 应 的 模拟 退火 计算 程序 如 下 : 


set{gcf,'DoubleBuffer','on'); #% 设置 图 形 窗 口 的 泻 染 效果 
x=linspace(-3,3,201); $# 离散 采样 点 
plot (x, [x-x.^3-2] .xexp(-x.^2) .*sin(xr4)，'k')ihold on; #% 绘制 函数 对 应 的 曲线 
m0=-0.5; % 设置 初始 参数 值 
dm=0.2;$% 参数 初始 步 长 
fm0= [m0-m0^3-2]xexp{(-m0^2)x*sin(mo*4); g% 计算 相应 的 目标 函数 值 
ph=plot (m0, fm0,'r+'); % 绘制 当前 位 置 对 应 的 点 
T=8000; g% 设置 初始 温度 
N=100; g% 随机 扰动 的 次 数 
Lm=0.99; % 设置 参数 步 长 衰减 系数 
LT=0.9; % 设置 温度 步 长 衰减 系数 
Tt=title(['T=' ,num2str(T)])， sg% 显示 当前 温度 
rand('state',0); % 设置 随机 数 的 状态 值 
while T>0.001; $% 循环 模拟 计算 温度 降低 过 程 
for k=1:100; 8% 多 次 进行 随机 扰动 
m=m0+dm* (2*rand-1) ; $% 进行 参数 的 随机 扰动 
m=mod (tm+3,6)-3; g% 限制 参数 在 考虑 区 间 内 变换 
fm= [m-m^3-2]*exp(-m^2)*sin(m*4); $% 计算 相应 目标 函数 值 
Df=fm-fm0; % 计算 新 旧 函 数值 的 差 
if rand<exp(-Df/T) ; g# 以 几率 形式 接受 当前 的 参数 值 
m0=m; #% 更 新 m0 的 数值 
fm0=fm; gs% 更 新 fm0 的 数值 
end 
set (ph, 'XData',m0, 'YData',fm0); % 更 新 当前 数据 点 的 位 置 
pause(0.05); $ 暂停 一 下 显示 动画 效果 
end 
T=T*LT; sg 温度 衰减 
dm=dmxLm; % 参数 步 长 衰减 
set (TEL, 'String'，['T=' num2str(T)]); #% 更 新 当前 温度 


enaQ 
m， fm g% 显示 最 小 值 位 置 和 最 小 值 
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这 个 程序 以 动画 的 方式 显示 了 模拟 退火 过 程 ， 执 行 中 的 一 个 界面 如 图 27.3 所 示 。 
1 


最 终 十 字 标记 停留 在 曲线 的 最 低 处 。 
输出 结果 为 : 
mm= 0.3184 
fm = -1.4808 
25 ER 
2 
15 
1 
05 
0 
-05 
-1 
1 了 -1 0 1 2 3 


图 27.3 ”模拟 退火 算法 计算 一 元 函数 的 最 小 值 

下 面 考虑 利用 模拟 退火 算法 求解 二 元 函数 的 最 小 值 问题 ， 这 里 以 MATLAB 函数 peaks 对 应 的 
函数 为 例 求解 其 最 小 值 。 该 函数 的 解析 表达 式 为 : 

Fry)=3(0 一 芋 exp 人 也 -(+D)-1 5 -je - 闻 ) -expG+ 了 -y ( 27-5 ) 

其 中 力 yE 广 33] 。 

模拟 退火 算法 的 参数 为 mo = yo = 0.5 ， 初 始 步 长 为 dxo = dyo = 0.2 ， 初 始 温度 为 To = 8000 ， 每 
个 温度 下 的 随机 扰动 次 数 为 200， 步 长 衰减 系数 为 = 0.99 ， 温 度 衰减 系数 为 和 =0.85。 

相应 的 模拟 退火 算法 的 MATLAB 程序 为 : 


[X,Y,Z] = peaks(401); % 生成 离散 数据 

x=X(1,:); g% 提取 X 轴 刻度 

zx=min(Z, [] ,1) ; % 计算 最 小 值 在 X 轴 投 影 的 数据 

y=Y(:,1); % 提取 站 轴 刻度 

zy=min{(Z,[】,2) ; 8 计算 最 小 值 在 Y 轴 投 影 的 数据 

s(1)=subplot (121) ;plot (x,zx) ;axis([-3,3,-7,8.2]);hold on; % 绘图 z 在 水 平方 向 的 最 小 
值 曲线 


Lhtl1)=xlabel('N\itx');Lh(2)=title('min(fNitzy({tNitxjvfNityl)))_ftNityly')y 村 标注 X 

轴 和 图 题 

s(2)-=subplot (122) ;plot (y,zy) ;axis([-3,3,-7,8.2]);hold on; *# 绘图 z 在 竖 直 方向 的 最 小 
曲线 


Lh(3)=xlabel(t\ity');Lh(4)=title('min{tfNitz)(fNitxl,fNvity}))_fNitxl')) g% 标注 X 
轴 和 图 题 
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ss=repmat(' ',1,16); g%g 16 个 空格 字符 串 
Lh(5)=ylabel(['T=8000',ss],'Rotation',0); # 显示 当前 温度 
set (Lh,'Fontsize'v,14,，'Fontname'，'Times New roman')) % 设置 Lh 句柄 对 象 的 字体 属性 
set (gcf,'Position',[78 75 1226 420],'DoubleBuffer', ,on'); $ 设置 图 形 窗口 的 位 置 和 泻 
染 效 果 
mx0=0.5; % X 坐标 的 初始 值 
my0=0.5; g% Y 坐 标的 初始 值 
dm=0.2; # 参数 初始 步 长 
fm0=3* (1-mx0)^2*exp(- (mx0^2)-(mYy0+1)^2)-10* (mx0/5-mx0^3-my0^5) *exp{-mx0^2-my0^ 
2) -1/3*exp(- (mx0+1)^2-my0^2); g% 计算 相应 的 目标 函数 值 
Phl=plot(s(1) ,mxo,fm0,'z+'); % 绘制 当前 位 置 对 应 的 点 
ph23=plot(s(2) ,my0,ftm0,'r+'); gs% 绘制 当前 位 置 对 应 的 点 
T=8000; $ 设置 初始 温度 
N=200; s 随机 扰动 的 次 数 
Lm=0.99; % 设置 参数 步 长 衰减 系数 
LT=0.85; % 设置 温度 步 长 衰减 系数 
rand('state',0); 8% 设置 随机 数 的 状态 值 
while T>0.001， % 循环 模拟 计算 温度 降低 过 程 
for k=1:100; % 多 次 进行 随机 扰动 
mx=mx0+dm* (2*rand-1); % 进行 参数 的 随机 扰动 
mx=mod (mx+3,6)-3; 当 限制 参数 mx 在 考虑 区 间 内 变换 
my=my0+dm* (2*rand-1) ; % 进行 参数 的 随机 扰动 
my=mod(my+3,6)-3; % 限制 参数 my 在 考虑 区 间 内 变换 
fm=3* (1-mx)^2*exp(- (mxX^2)- (my+1)^2)-10* (mx/5-mx^3-mYy^5) wexp (-mx^2-my^2)-173*ex 
Pi{-(mx+1)^2-my^2) 
s 计算 相应 目标 函数 值 
Df=fm-fm0; # 计算 新 旧 函 数值 的 差 
if rand<exp(-Df/T) ; gs 以 几率 形式 接受 当前 的 参数 值 
mx0=mx; % 更 新 mx0 的 数值 
my0=my; $ 更 新 mx0 的 数值 
fm0=fm; $% 更 新 fm0 的 数值 
end 
set (ph1,'XData',mx0,'YData',fm0); % 更 新 当前 数据 点 的 位 置 
set (ph2, 'XData',my0,'YData',fm0); g% 更 新 当前 数据 点 的 位 置 
pause(0.05); % 暂停 一 下 显示 动画 效果 
end 
T=T*DT; % 温度 衰减 
dm=dm*Lm; % 参数 步 长 衰减 
set (Lh(5)，'String',['T=',num2str(T),ss]); s# 更 新 当前 温度 
endQ 


mx, my, fm # 输出 最 小 值 位 置 和 最 小 值 
执行 上 述 程序 输出 结果 为 : 
0.1663 


-1.5603 
-6.4338 


InX 
ImY 
fm 


让 中 才 


31E 首 平面 的 投影 对 应 的 最 小 值 曲线 ， 如 图 27.4 所 示 。 二 者 公共 的 最 小 值 对 应 的 X 轴 和 
Y 轴 的 刻度 就 是 最 小 值 位 置 。 当 前 点 用 十 字符 号 表示 ， 点 应 该 在 曲线 上 或 者 曲线 的 
上 部 。 同 时 在 两 个 坐标 轴 之 间 实 时 地 显示 了 当前 的 温度 数值 。 


省 为 了 比较 实时 点 的 位 置 和 整体 轮廓 曲 面 的 位 置 关系 ， 这 里 绘制 曲面 在 X0Z 和 YOZ 
1 
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图 27.4 动态 显示 模拟 退火 算法 的 收敛 过 程 
模拟 退火 是 一 种 含 随机 数 的 算法 ， 本身 存 在 着 不 确定 性 。 求 得 的 优化 值 需要 较 大 的 计算 量 , 其 
至 还 有 可 能 会 陷入 局 部 最 优 解 ,模拟 退火 算法 的 参数 是 根据 经 验 选择 的 ,合理 地 选取 初始 温度 、 降 
温 方案 等 参数 可 以 得 到 较 好 的 结果 。 


27.3 ”分 步 傅 里 叶 算 法 


分 步 傅 里 时 算法 是 在 求解 非 线性 薛 定 谓 方 程 过 程 中 发 展 起 来 的 一 种 算法 .下 面 先 来 介绍 非 线性 
薛 定 谓 方 程 ， 该 方程 可 以 描述 为 : 


2 
一 -= 一 了 +(4- 记 =o0 (27-6) 


其 中 尽 表示 光 场 的 复 振幅 ，+ 表示 时 间 ，C 入 为 方程 的 系数 。 可 以 把 等 式 { 27-6 ) 表示 为 下 
面 的 形式 : 


汪 =(O+Nju ( 27-7 ) 
其 中 ， 方 和 咏 表 示 作 用 在 U 上 的 算法 。 它 们 的 含义 为 : 
、， .1190 19207 
2 ( 27-8 ) 
20 :二 葡 2 汪 
Ru: _-_Ga+rP)IUPU ( 27-9 ) 
2 9z 


这 样 在 计算 光 从 z 到 z+ 记 的 传播 时 可 以 分 解 为 两 步 。 在 [z,z+A/2] 时 ， 公 式 ( 27-9 ) 起 作用 ， 
同时 忽略 1U 下 在 这 个 小 区 间 内 的 变化 ， 可 以 得 到 ; 


U(z+A/2,0)=Ufz,rjexplilB+ia)l PP 站 ( 27-10 ) 
对 等 式 ( 27-10 ) 两 端 计算 关于 时 间 上 的 傅 里 叶 变换 ， 有 : 
LU(z+H/2,o)= F 人 xpli(B+iajlPN(z ( 27-11 1 
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在 式 ( 27-11 ) 中 ， 包 是 傅 里 叶 变 换 的 频率 。 在 后 半 部 分 的 区 间 [z+A/2,z+ 首 上 , 公式 {( 27-8) 
起 作用 ， 同 时 对 忌 关于 时 间 + 求 传 里 叶 变换 ， 可 得 : 


FIU(z+ 记 避 =U(z+A/2,wjexp 人 -iaozh713] ( 27-12 ) 
把 式 ( 27-11 ) 代入 式 ( 27-12 ) 并 计算 逆 傅 里 叶 变 换 ， 有 : 
0w(z+ 太 站 = Fr 人 xp 人 -iao2h72jrlexpf(6+iaJIwPAr(zz 直 


其 中 已 和 严 -分 别 表示 正 、 首 傅 里 时 变换 。 因 为 在 MATLAB 中 可 以 使 用 函数 代 和 许 来 计算 正 、 
逆 傅 里 叶 变 换 ， 这 样 可 以 比较 快 地 求解 这 个 微分 方程 。 
在 计算 中 ， 取 相关 参数 为 w= 0.006 ，B8 =1， 采 样 点 数 等 于 200。 相 应 的 MATLAB 程序 如 下 : 


a=0.006; $% 双 光 子 吸 收 系数 
b=1; # 光学 非 线性 系数 
N=200;  * 设置 采样 点 数 
t=linspace(-20,20,N); # 取 时 间 的 离散 值 
z=1linspace(0,50,N) ; % 计算 距离 的 离散 值 
h =z(2)-z(1); $% 计算 距离 步 长 
qt=t(2)-t(1); 8% 计算 时 间 步 长 
w=linspace(-1/at/2,1/at/2,N) ; 8 计算 傅 里 叶 变 换 的 频率 值 
Pw=exp (-ixrw.^2xh/2x4*pi^2); $% exp(-iromega^2xh72) 
g% ql=zeros (N) ;Gl (1,1:end) =sech(t);s 孤子 的 注入 脉冲 
U=zeros (IN) ; g 初始 化 复 振 幅 矩 阵 U 
U(l1,1l:end)=sech(t+3)+sech(t-3) ;g% 设置 孤子 的 注入 脉冲 作为 初始 条 件 
for k=2:N; 
8S2=exp (1iw (b+ixa)xabs(U(k-1l,:)).^2*h) .*U(k-1, :); #% 计算 中 间 过 程 量 
S2=fftshift{fft{ftftshift(ss2))); sg 进行 傅 里 时 变换 
U(k,1:end)=ifftshift(ifft(ifftshift{(Pw,*S2))); g% 进行 逆 传 里 时 变换 
ena 
mesh(t,z,abs(U) ); $% 显示 计算 结果 
xlabel('\itt','fontsize',14); % X 轴 标注 
ylabeI('\itz','fontsize',14); % Y 轴 标注 
zlabel('1U01''fontsize',14,'Rotation',0); #% 2 轴 标 注 


执行 上 述 程序 输出 图 形 如 图 27.5 所 示 ， 其 中 在 z=0 处 是 注入 孤子 双 脉冲 的 形式 ， 随 着 传播 距 
离 的 增加 双 珀 子 出 现 一 个 较 高 的 脉冲 ， 然 后 二 者 之 间 的 距离 随 着 距离 的 增加 而 增加 。 





0 :2 


图 27.5 分 步 傅 里 叶 算 法 计算 的 结果 
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27.4 蚁 群 算法 


蚊 群 算法 { Ant colony algorithm ) 最 早 是 由 意大利 学 者 Dorigo，Manierio 和 Collorni 等 人 提出 
的 一 种 模拟 进化 算法 。 受 到 人 们 对 现实 蚁 群集 体 行为 研究 成 果 的 启发 , 由 于 蚁 群 搜索 食物 的 过 程 与 
旅行 商 问题 ( Taveling salesman problem ) 非常 相似 ， 所 以 可 以 利用 蚁 群 算法 求解 旅行 商 问题 、 
指派 问题 ( Assignment problem ) 和 调度 问题 ( Scheduling problem )。 蚊 群 算法 是 一 种 适应 性 好 、 
鲁 棒 性 强 ， 同 时 具有 正 反 馈 结 构 的 并 行 算 法 。 

对 于 自然 界 中 的 蚂蚁 是 如 何 找到 从 巢穴 到 食物 源 的 最 短路 径 问题 ,生物 学 家 经 过 大 量 细致 的 观 
察 研究 后 发 现 :最 初 单 只 蚂蚁 行为 是 随机 的 。 蚂 蚁 在 运动 过 程 中 会 在 经 过 的 路 径 留 下 一 种 信息 物质 。 
蚂蚁 个 体 之 间 的 信息 传递 就 是 通过 这 种 物质 进行 的 。 一 方面 每 只 蚂蚁 在 走 过 的 线路 上 留 下 一 定量 的 
信息 物质 , 并 且 信 息 物 质 随 时 间 衰 减 。 另 一 方面 其 他 蚂蚁 能 够 感知 这 种 信息 物质 并 以 路 径 上 残留 信 
息 量 指导 行为 ， 信 息 量 越 大 ， 路 径 被 选中 的 几率 也 越 大 。 这 样 蚁 群 就 可 以 快速 地 找到 最 佳 路 径 。 

可 以 在 网 上 下 载 利 用 蚁 群 算法 计算 最 短路 径 问 题 的 程序 { 见 附录 A )， 该 程序 由 GreenSim 
队 于 2006 年 初 完 成 ， 网 页 上 的 程序 是 一 个 函数 文件 形式 ， 保 存 后 可 以 调用 它 ， 同 时 把 其 中 的 省 会 
城市 坐标 数据 保存 为 gps.txt 文件 ， 然 后 通过 下 面 的 语句 调用 这 个 函数 文件 : 
m=317Alpha=1;Beta=57Rho=0.1;NC_max=200;Q=1007 gs 设置 初始 参数 
C=textread{'gps.txt'，''); % 读 入 数据 文件 


[R_best,L_best,L_ave, Shortest_Route, Shortest_Length] =aCaATSP(C,NC_max,m， 和 LIPha,B 
eta,Rho,O) ; 8% 调用 蚁 群 算法 程序 


输出 图 形 如 图 27.6 所 示 。 
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图 27.6 ” 蚊 群 算法 计算 的 结果 


27.5 分水岭 算 法 


分 水 岭 算法 是 一 种 基于 拓扑 学 中 形态 学 的 分 割 方法 ,其 基本 思想 就 是 把 图 像 看 做 是 测 地 学 上 的 
拓扑 地 狐 , 而 图 像 中 每 一 点 的 像素 值 表示 该 点 的 海拔 高 度 , 每 一 个 局 部 极 小 值 及 其 相关 区 域 被 称 为 
集 水 盆 ， 集 水 盆 的 边界 形成 分 水 岭 。 分 水 岭 的 概念 和 形成 可 以 使 用 模型 浸入 过 程 来 说 明 。 在 每 一 个 
局 部 极 小 值 附近 刺 穿 一 个 孔 ， 然 后 把 整个 模型 慢 慢 浸 入 水 中 。 随 着 浸入 部 分 的 增加 ,每 一 个 局 部 极 
小 值 的 影响 域 慢 慢 向 四 周 扩展 , 在 两 个 集 水 盆 汇 合 处 构筑 大 坝 从 而 形成 分 水 岭 。 分水岭 的 模拟 过 程 
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是 一 个 迭代 标注 过 程 ， 而 分 水 岭 比较 经 典 的 算法 是 Vincent 提出 的 。 在 Vincent 算法 中 ， 分 水 岭 计 
算 分 两 个 步骤 : 排序 过 程 和 潭 没 过 程 。 首 先 对 所 有 像素 值 进行 从 小 到 大 排序 ， 在 从 低 到 高 进行 淹没 
的 过 程 中 ， 对 所 有 局 部 极 小 值 在 h 高 度 的 影响 范围 内 采用 “先进 入 先 流出 ”的 原则 判断 和 标注 。 
MATLAB 提供 的 函数 watershed 可 以 实现 分 水 岭 变 换 ， 其 调用 格式 为 : 
wacershed (RAR) ; 
watershed(A，conn) ; 
参数 说 明 : L 是 变换 输出 的 图 形 。A 是 输入 图 像 对 应 的 矩阵 。conn 用 于 表示 连通 性 ， 其 可 能 
取 值 如 下 : 4 表示 二 维 四 近邻 ，8 表示 二 维 八 近 邻 ，6 表示 三 维 六 近邻 ，18 表示 三 维 十 八 近邻 ，26 
表示 三 维 二 十 六 近邻 。 

下 面 举 例 说 明 函 数 watershed 的 用 法 。 


和 
[有 


&aA=imread('rice.png'); $% 读 入 米粒 图 

RAR=RA(1:64,1:64); $% 取 其 1/16 部 分 作为 输入 图 像 

L1=watershed{(R,4); # 进行 分 水 岭 变 换 ，conn=4 

LDL2=watershed(&A,8); $% 进行 分 水 岭 变 换 ，conn=8 

subplot (131) ;imshow(a, []);Xh(1)=xlabel('(a)');， s% 绘制 原 图 

subplot (132) ; imshow(L1, [] ) ;Xh(2)=xlabel('(b)'); s% 绘制 分 水 岭 变换 的 结果 1 
subplot (133) ; imshow(L2, [] ) ;xXh(3)=xlabel('(c)'); gs 绘制 分 水 岭 变换 的 结果 2 
set (Xh,'Fontsize',16,'Fontname','Times New Roman'); 8% 设置 标注 的 字体 大 小 


执行 上 述 程序 输出 图 像 如 图 27.7 所 示 ， 其 中 四 近邻 分 水 岭 处 理 结果 ( 图 (b) ) 纹理 较 密 ， 而 八 
近邻 分 水 岭 处 理 结果 ( 图 (c) ) 纹理 较为 稀疏 。 





(b) 变换 结果 1 
图 27.7 ”分水岭 变换 的 结果 





27.6 ”粒子 群 优化 算法 


粒子 群 优 化 算法 ( Particle swarm optimization， 缩 写 为 PSO ) 是 一 种 群体 智能 算法 ， 它 是 由 美 
国 心理 学 家 Kennedy 和 电气 工程 师 Eberhart 在 1995 年 首先 提出 来 的 。 该 算法 的 基本 思想 是 对 乌 
群 、 鱼 群 在 咒 食 过 程 中 的 迁 徒 和 聚集 行为 的 模拟 ， 并 利用 生物 学 家 Heppner 的 生物 群体 模型 。 粒 
子 群 优化 算法 是 一 类 基于 群体 智能 的 随机 优化 技术 , 与 遗传 算法 相 比 , 二 者 都 是 基于 群体 的 友 代 搜 
索 ,， 但 是 粒子 群 优化 算法 没有 交叉 、 变 异 操作 , 粒子 群 优 化 算法 是 通过 个 体 之 间 的 协作 来 搜寻 最 优 
解 的 。 这 个 算法 利用 了 生物 群体 中 信息 共享 的 思想 ， 概 念 简单 、 易 于 实现 ， 同 时 又 有 深刻 的 智能 背 
景 ， 适 合 科学 研究 和 工程 应 用 。 粒 子 群 优 化 算法 的 基本 结构 如 图 27.8 所 示 。 
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图 27.8 粒子 群 优 化 算法 的 基本 原理 图 


在 粒子 群 优化 算法 中 , 首先 初始 化 一 群 随机 粒子 ， 然 后 通过 迭代 计算 找到 最 优 解 。 在 每 一 次 和 迭 
代 中 ， 粒 子 通过 跟踪 两 个 “ 极 值 ”来 更 新 自己 : 一 个 是 粒子 本 身 所 找到 的 最 优 解 ， 即 个 体 极 值 ; 另 
一 个 是 整个 种 群 目前 找到 的 最 优 解 ， 即 全 局 极 值 。 在 更 新 每 个 粒子 位 置 的 过 程 中 , 粒子 最 大 速率 被 
限制 为 Vmax， 粒 子 的 坐标 也 被 限制 在 所 考虑 的 范围 之 内 。 其 中 粒子 速度 和 位 置 的 更 新 公式 为 

V=wV+ciR(R-P)+cR(G 一 { 27-13 ) 

已 =P+Y { 27-14) 

其 中 Y 是 粒子 的 速度 。 内 是 一 个 加 权 系数 ， 其 值 一 般 取 为 0.1--0.9 之 间 的 数 。 已。v 是 粒子 自 
身 最 优 位 置 。 忆 是 粒子 当前 的 位 置 。 Goev 是 粒子 群 全 局 最 优 位 置 。 尺 是 一 个 0~1 之 间 的 随机 数 。 
在 粒子 群 优化 算法 中 ， 系 数 cl 和 <ca 被 称 为 学 习 因 子 ， 它 们 一 般 取 值 为 2。 

根据 上 面 介绍 的 粒子 群 优化 算法 , 利用 粒子 群 优化 算法 计算 下 面 函数 的 最 大 值 , 函数 的 定义 区 
间 为 [0.9] 。 


Jo)=expL(x-4PjosGa) ( 27-15 ) 
这 里 使 用 8 个 粒子 来 寻找 函数 的 最 大 值 ， 相 应 的 MATLAB 程序 为 


N=8; % 设 置 粒 子 总 数 

Vmax=0.2; $ 最 大 速度 

x=linspace(0,9,300); #% 对 变量 x 离散 取 值 
y=exp(- [x-4].^2) .*cos(xx*3); $% 计算 相应 的 函数 值 
plot (x,y) ;hold on; % 绘制 函数 对 应 的 曲线 

c='kr'; g% 设置 表示 颜色 的 字符 串 

Ls='sox+'; g% 设置 表示 标记 符号 的 控制 符 
Pn=linspace(1,8,N); g% 设置 初始 粒子 的 位 置 
Fn=exp(- [Pn-4] .^2) .*cos(Pn*3); % 计算 相应 目标 函数 值 
w=0.5; % 对 权重 系数 赋值 

cl1=2; % 对 学 习 因 子 赋 值 

c2=2; % 对 学 习 因 子 赋值 

V=Vmax* (2*rand(1,N)-1); sg 初始 化 速度 
Pbest=Pn; $% 初始 化 个 体 最 优 位 置 Pbest 

Fbest=Fn; g% 初始 化 最 优 目 标 函 数值 

[Mm, Ik] =max (Fn); gs 找 出 最 大 值 Mm 和 最 大 值 的 位 置 Tk 
Gbest=Pn{(Ik(1)); % 得 到 当前 全 局 最 优 位 置 Gbest 
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Gfbest=max(Fn); #% 目标 函数 的 最 大 值 
Gh=plot (Gbest* [1,1], [min(ylim) ,Gfbest],':'); #% 利用 虚线 表示 全 局 最 大 值 位 置 
for n=1:N; 
mh (n) =plot (Pn(n) ,Fn(n)j,[c([In<4.5]+1),Ls(moa(tn-1,4)+1)]); g% 画 出 各 个 点 
enda 
ti=title('time = 0'，'Fontsize' ,14，'Fontname' Times new roman'7); 
for kk=1l:150; 
R=rand(1,N); $% 产生 随机 数 
V=w*V+clLx*R.*(Pbest-Pn)+C2x*R.x(Gbest-pn); % 更 新 速度 
V(V>=Vmax) =Vmax1 #% 限制 正方 向 最 大 速率 
V(V<=-Vmax)=-Vmax; % 限制 负 方 向 最 大 速率 
Pn=Pn+V; $% 更 新 位 置 
En=exp(-[Pn-4] .^2) .*cos(Pn*3)7 % 计算 相应 目标 函数 值 
Pbest (Fn>Fbest)=Pn (Fn>Fbest); $% 更 新 最 优 目标 位 置 
Fbest (Fn>Fbest)=Fn(Fn>Fbest); 8% 更 新 目标 函数 值 
[Mm, Tk] =max (Pbest) ; g% 从 个 体 最 大 值 中 找到 它们 的 最 大 值 
Ik(2:end)=[]; $% 仅 取 IKk 第 一 个 数值 
Gfbest=max (Mm,Gfbest) ; % 更 新 全 局 最 大 值 
if numel{(Ik)>0.5 # 若 Ik 是 非 空 的 ， 
Gbest=Pn(Ik); % 更 新 全 局 最 大 值 


enda 
set (Gh,'XData',Gbest*[1,1],'YData'， [min(ylim),Gfbest]))， % 更 新 全 局 最 大 值 对 应 的 
虚线 
for k=1:N; 
set (mh (k) ，'XData',Pn{k)，'YData' ,En(k)); % 更 新 各 个 点 的 位 置 
enda 
set (ti 'String'，['time = 'vnum2str(kk)]); % 更 新 时 间 数 值 
pause{0.05); 8% 暂停 一 下 显示 动画 效果 
enda 
Gbest,Gfbest # 显示 最 大 值 位 置 Sbest 和 最 大 值 Sfbest 
执行 上 述 程序 输出 的 结果 为 : 
Gbest = 4.1546 


Gfbest = 0.9713 
这 里 相应 地 给 出 了 优化 过 程 的 动画 演示 ， 最 终 图 形 如 图 27.9 所 示 。 


ne = 130 








J 


图 27.9 粒子 群 优化 算法 的 动画 演示 界面 图 
粒子 群 优化 算法 在 空间 内 的 搜索 过 程 中 ， 有 时 会 出 现 粒 子 在 全 局 最 优 解 附近 “振荡 ”的 现象 。 
为 了 避免 振荡 现象 ， 可 以 进行 如 下 改进 : 在 每 步 迭 代 中 ， 速 度 V 更 新 公式 中 的 权重 系数 从 最 大 加 
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权 因子 w_max 线性 减 小 到 最 小 加 权 因 子 w_min, 即 w=w_max-iter* (w_max-w_minjyitermax， 其 
中 iter 表示 当前 迭代 的 步 数 ， 而 itermax 是 总 运 代数 。 


27.7_BP 算法 


人 工 神经 网 络 ( ANN ) 系统 具有 信息 的 分 布 存储 和 并 行 处 理 以 及 自学 习 能 力 等 优点 , 同时 它 不 
需要 对 研究 对 象 建 模 就 能 够 较 好 地 描述 非 线 性 系统 和 不 确定 性 系统 。 目 前 这 个 系统 已 经 在 信息 处 
理 、 控制 以 及 系统 建 模 等 领域 广泛 应 用 , 特别 是 基于 误差 反 向 传播 算法 的 “多 层 前 饥 网 络 " 算法 ( 简 
称 BP 算法 ) 能 够 以 任意 精度 逼近 连续 函数 ， 所 以 它 广泛 应 用 于 非 线性 建 模 、 逼 近 函 数 、 模 式 识别 
和 分 类 等 问题 中 。 为 了 解决 BP 算法 收敛 慢 、 训 练 时 间 长 和 目标 函数 存在 局 部 最 小 等 缺点 ， 人 们 提 
出 了 一 些 改进 算法 。 以 神经 网 络 为 基础 ，MATLAB 提供 了 许多 BP 算法 相关 的 函数 ， 为 人 们 利用 
BP 算法 进行 研究 提供 了 便利 。 几 种 常用 的 BP 算法 函数 如 表 27.3 所 示 。 


表 27.3 常用 BP 算法 函数 





函数 名 功能 说 明 

trainrp 弹性 BP 算法 ， 该 函数 只 用 导数 符号 表示 权 更 新 方向 ， 不 考虑 导数 大 小 ， 可 以 消除 偏 导 
数 大 小 对 权 值 的 不 利 影响 。 具 有 收敛 速度 快 、 占 内 存 小 的 特点 

traingdx 自 适应 学 习 速 率 法 ， 该 算法 检查 权重 修正 值 是 否 降低 误差 函数 。 如 果 降 低 ， 说 明 选 取 的 
学 习 速率 有 上 升 空间 ， 可 对 其 增加 ; 反之 ， 就 减 小 学 习 速率 。 这 样 学 习 速 率 可 根据 误差 
性 能 函数 调节 ， 解 决 BP 算法 中 学 习 速率 选择 不 当 的 缺点 

traincgf 共 瑟 梯度 法 ， 其 采用 FletcherReeves 算法 。 该 算法 收敛 速度 较 普通 梯度 下 降 法 快 很 多 。 
它 需要 线性 搜索 ， 存 储量 要 求 大 。 对 于 收敛 速度 ， 因 问题 而 异 。 该 算法 计算 代价 较 低 ， 
在 较 大 规模 问题 中 应 用 较 广 

trainbfg 拟 牛 顿 算法 ， 权 值 通过 x=x+a*dx 来 修改 ，x 是 搜索 方向 ，a 是 在 x 上 的 最 小 化 性 能 函 
数 。 最 初 搜索 方向 沿 梯度 负 方 向 ,以 后 在 迭代 中 按照 dx=-H-gx 来 修改 ,H 为 近似 Hessian 
和 珑 阵 。 该 算法 要 求 迭 代 次 数 较 少 ， 由 于 每 步 都 要 存储 Hessian 和 珑 阵 ， 故 单 步 计 算 和 存储 
量 很 大 ， 它 适合 小 型 网 络 

trainlm Levenberg-Marquardt 算法 ， 权 值 通过 dx=-(JxT*jx+l*mu)-jxT*E 进行 修正 ， 其 中 jx 是 误 
差 对 权 值 微分 的 雅 可 比 矩 阵 ，E 是 误差 向 量 ，mu 是 调整 重 。 该 方法 学 习 速 度 快 ， 但 占 
内 存 大 ， 对 于 中 等 规模 的 网 络 来 说 是 最 好 的 一 种 训练 算法 。 对 于 大 型 网 络 ， 可 以 通过 设 
置 参数 mem-reduc 把 雅 可 比 矩 阵 分 成 多 个 子 和 矩阵 ， 这 样 可 减少 内 存 消 耗 ， 但 学 习 时 间 





将 会 增 大 
表 27.3 中 函数 的 调用 格式 大 体 相 同 ， 它 们 可 以 统一 表示 为 : 
[net，ftr] = funname(NET，TR，trainV，VvaLlV，testV) ; 


参数 说 明 : net 表示 训练 过 的 神经 网 络 。tr 是 记录 不 同时 期 的 数值 。funname 表示 表 27.3 所 列 
的 函数 名 。NET 是 输入 的 神经 网 络 。TR 是 函数 train 生成 的 初始 训练 记录 。trainV 是 函数 train 生成 
的 训练 数据 。valV 是 函数 train 生成 的 确认 数据 。testv 是 函数 train 生成 的 测试 数据 。 

除了 表 27.3 描述 的 函数 外 ，MATLAB 还 提供 了 函数 newff 来 生成 神经 网 络 ， 其 调用 格式 为 : 


net = Dewff(P,T,S,TF)， 


参数 说 明 : net 是 神经 网 络 名 称 。P 是 输入 样本 数据 组 成 的 矩阵 。T 是 每 层 神经 元 的 个 数 。S 
是 N-1 个 隐藏 层 的 size。TF 是 神经 元 传递 函数 。 
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除了 表 27.3 列举 的 训练 函数 外 ，MATLAB 还 提供 了 一 个 通用 的 训练 函数 ， 即 train， 其 调用 格 
式 为 


[net，tr] = train(NET，X，mT，Pi，RAi)， 


参数 说 明 : net 表示 新 的 神经 网 络 。tr 表示 训练 记录 。NET 表示 输入 神经 网 络 。X 表示 神经 网 
络 的 输入 。T 是 神经 网 络 的 目标 。Pi 是 初始 输入 延迟 条 件 。Ai 是 初始 层 延 迟 条 件 。 这 里 X，Pi 和 
Ai 的 默认 值 都 是 零 。 

下 面 举 例 说 明 BP 算法 函数 的 用 法 。 
P=1:5; 多 生成 样本 数据 
T=[2,2,2,3,3]; g% 生成 神经 元 数据 
net = newff(P,T,4,{'tansig'，'purelin'},'trainlm'); 多 生成 神经 网 络 
net = train (net,P,T); g% 进行 训练 

执行 上 面 的 程序 可 以 弹出 如 图 27.10 所 示 的 图 形 。 单 击 Performance 按钮 将 会 弹出 训练 结果 的 
曲线 图 ， 如 图 27.11 所 示 。 更 多 BP 算法 方面 的 函数 可 以 参阅 MATLAB 帮助 文档 提供 的 信息 。 
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图 27.10 ”神经 网 络 训练 过 程 的 对 话 杠 27.11 训练 结果 的 曲线 图 形 


27.8 最短 路径 Dijkstra 和 floyd 算法 


最 短路 径 问 题 ( Shortestpaths problem ) 作为 图 论 中 的 一 个 经 典 问题 ， 已 经 被 应 用 于 许多 领 
域 。 在 网 络 通信 领域， 信息 包 传 递 的 路 径 选择 问题 与 最 短路 径 问题 紧密 相关 。 同 时 解决 最 短路 径 问 
题 的 相关 算法 在 很 多 工程 应 用 领域 有 较 强 的 实用 价值 。 本 节 来 介绍 相关 的 最 短路 径 算法 Dijkstra 和 
Floyd 算法 。 


658 wp jw jw 入 


本 晤 可 可 第 21 > 常用 算法 及 MATLAB 实现 


Dijkstra 算法 的 基本 思想 是 按 距离 从 近 到 远 为 顺序 ， 依 次 求 得 所 有 项 点 的 最 短路 径 和 距离 ， 直 
至 算法 结束 。 为 避免 重复 计算 并 保留 每 一 步 的 计算 信息 ,采用 了 标号 算法 。 下 面 是 该 算法 的 计算 步 


令 Lo)=0， 如 果 v 关 1 ， 令 ZW)=c ，s=W，i=0。 

ED 对 所 有 ,< ( 3-y\S )， 使 用 min[Z(?),Z(o+w(xw)] 代替 CC) 。 计 算 
min{ZG)} ， 把 达到 这 个 最 小 值 的 一 个 顶点 记 为 Wu， 令 Su =SU{fU ij。 

若 ;=| 趾 -1， 计 算 停止 ， 若 Kl|-1， 用 i++1 代替 三 ， 转 至 步骤 2。 


算法 结束 时 ， 从 x 到 各 项 点 y 的 距离 使 用 "最 后 一 次 的 标号 Lvw) 给 出 。 在 ”进入 8; 之 前 的 标号 
Z 人 lw) 记 为 了 标号 ，y 进 入 $i 时 的 标号 Z(w) 记 为 尸 标号 。 该 算法 不 断 修改 各 顶点 的 下 标号， 直至 获 
得 忆 标 号 。 若 在 算法 运行 过 程 中 ， 将 每 一 顶点 获得 尸 标号 所 由 来 的 边 在 图 上 标明 ， 则 算法 结束 时 ， 
uw 至 各 顶点 的 最 短路 径 也 在 图 上 标示 出 来 。 

可 以 下 载 到 Dijkstra 算法 的 MATLAB 程序 ( 参见 附录 A)。 

Floyd 算法 的 基本 思想 是 递 推 产 生 一 系列 size 相同 矩阵 序列 名 ,如 ,……,4…，A,， 其 中 矩 
阵 入 (, 旋 元 素 表示 从 项 点 六 到 顶点 的 路 径 上 所 经 过 顶点 序号 不 大 于 K 的 最 短路 径 长 度 。 在 计 
算 时 采用 的 迭代 公式 为 : 

如 帮 =min[4tG AiG)+A_(KD] ( 27-16 ) 

其 中 ,上 表示 和 迭代 次 数 ， 忆 放大 = 2,m 。 和 迭代 终止 时 ，4, 就 是 各 顶点 之 间 的 最 短 通路 值 。 

可 以 从 网 上 下 载 到 Floyd 算法 的 MATLAB 程序 ( 参见 附录 A)。 ， 


27.9 3 个 圆 的 外 切 圆 算法 


3 个 圆 的 外 切 圆 算法 是 作者 在 与 ivanhit 网 友 交 流 问 题 时 考虑 的 一 个 算法 。 其 算法 原理 如 图 
27.12 所 示 。 





图 27.12 求 3 个 圆 的 外 切 圆 算法 的 原理 图 
算法 的 具体 过 程 如 下 : 首先 计算 出 点 (，, 六 ) 和 点 (xy) 的 中 点 作为 新 坐标 系 的 原点 ， 这 两 点 
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的 连 线 作为 X 轴 ， 其 法 线 方向 取 为 Y 轴 。 可 以 预见 外 接 圆 圆心 应 该 在 图 27.12 中 3 个 圆 围 成 的 区 
域 A 内 。 这 里 设 外接 圆 圆心 坐标 为 (x y) ， 半 径 为 r*， 则 有 : 


r+ 玫 = 一 司 关 +(7 一 站 ( 27-17 ) 
r+ 广 = 一 居 +(O7 玉 六 ( 27-18 ) 


由 式 ( 27-17 ) 和 式 ( 27-18 ) 可 知 点 (xy) 到 点 (xi, 为 ) 和 到 点 (xa, 加) 的 距离 之 差 等 于 帮 一 二 ， 
这 是 一 个 定 值 ， 那 么 点 (”% ?) 应 该 在 一 条 双 曲 线 分 支 上 ， 即 图 27.12 中 虚线 表示 的 双 曲 线 。 唯 一 确 
定点 (x,?) 的 坐标 值 的 另外 一 个 条 件 就 是 通过 点 (xz,yz)。 同 样 地 ,点 (x,?) 到 点 (z, 为 ) 和 到 点 (xz,yz) 
的 距离 之 差 等 于 11- 九 。 在 求解 过 程 中 根据 双 曲 线 可 以 确定 点 (x, y) 的 轨迹 ， 利 用 点 (>,y) 确 定点 
(xy) 坐 标 值 时 ， 可 以 使 用 二 分 法 的 思想 多 次 反复 计算 即 可 得 到 最 终 坐 标 。 此 外 利用 递归 过 程 可 以 
得 到 多 重 外 接 圆 的 结果 。 上 述 过 程 可 以 通过 光盘 中 \Ch27 文件 夹 下 的 circles_1.m 文件 实现 。 

通过 下 面 的 语句 调用 这 个 函数 可 以 得 到 多 重 外 接 圆 图 案 。 


circles_1(5,-2,0,2,0,0,6) 
执行 上 面 的 语句 得 到 如 图 27.13 所 示 的 图 形 。 


图 27.13 多重 外 接 圆 图 案 


27.10 小结 


本 章 主要 介绍 了 几 种 算法 的 MATLAB 实现 。 算 法 在 进行 数值 模拟 研究 时 具有 重要 的 作用 ， 它 
是 成 熟 数 学 模型 的 一 个 浓缩 , 研究 者 把 它 用 通用 的 语言 描述 并 用 程序 实现 。 这 样 不 同 领域 的 研究 人 
员 可 以 交叉 使 用 这 些 算法 ， 使 得 科学 问题 得 到 快速 的 求解 。 本 章 依 次 介绍 了 遗传 算法 、 模 拟 退火 算 
法 、 分 步 傅 里 时 算法 、 蚊 群 算法 、 分 水 岭 算法 、 粒 子 群 算法 、BP 算法 、 最 短路 径 求解 算法 以 及 3 
个 点 外 接 圆 算法 。 通 过 介绍 算法 原理 和 程序 实现 ,读者 可 以 借鉴 其 中 关键 模块 的 程序 实现 方式 , 利 
用 这 些 技巧 在 其 他 新 型 算法 中 应 用 。 
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网 络 程序 下 载 地 址 
厄 米 多 项 式 计算 MATLAB http:/www.mathworks.corymatlabcentraWfileexchan 
geloadFile.do?objectld=4911&obijectType=FILE 





勒 让 德 多 项 式 计算 MATLAB http:/www.mathworks.cormmatlabcentral/fileexchan 
ge/loadFile.do?objectld=4710 


LaguerrePolym 函数 来 计算 拉 盖 尔 多 项 式 系数 http:Wwww.mathworks.corymatlabcentral/fileexchan 
gelioadFile.do?objectld=4912&objectType=File 


多 边 形 或 者 多 角 星 为 元 素 递 归 形 成 的 分 形 图 形 http:Wiuobo.ycool.cornarchive.56999.p5.html 


分 形 盒 维 数值 的 计算 程序 用 户 http:www.mathworks.corymatlabcentral/fileexchan 
gelloadFile.do?objectld=13063&objectType=file 

利用 骸 群 算法 计算 最 短路 径 问 题 http:Wblog.sina.com.cm/s/blog_4b425443010008re， 
html 

Dijkstra 算法 的 MATLAB 程序 http:Wwww,.mathworks.corymatlabcentral/fileexchan 
ge/5550， 
http/www.codesoso.corwCode/Dijkstra-Shortest-P 
ath. aspPx 

Floyd 算法 的 MATLAB 程序 http:Wwww.mathworks.corymatlabcentral/fileexchan 
ge/11549 

全 全 全 
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